diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-06-08 21:24:04 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-06-08 21:24:04 +0200 |
commit | a9ec8b7775d64fc5acec0da1e0016a37bc8b44fa (patch) | |
tree | 33245e541400471f7631478c8adb6b247821fc8b /src | |
parent | 785e8bbe85cf01cb7818935d6c12eb0aae15655a (diff) | |
download | ghdl-a9ec8b7775d64fc5acec0da1e0016a37bc8b44fa.tar.gz ghdl-a9ec8b7775d64fc5acec0da1e0016a37bc8b44fa.tar.bz2 ghdl-a9ec8b7775d64fc5acec0da1e0016a37bc8b44fa.zip |
ghdldrv: use output name for creating the elaboration files.
Diffstat (limited to 'src')
-rw-r--r-- | src/ghdldrv/ghdldrv.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 28613c727..ce20e2cc8 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -771,12 +771,17 @@ package body Ghdldrv is Unit_Name := new String'(Prim_Name.all & '(' & Sec_Name.all & ')'); end if; - Elab_Name := new String'(Elab_Prefix & Base_Name.all); Filelist_Name := null; + -- Choose a default name for the executable. if Output_File = null then Output_File := new String'(Base_Name.all); end if; + + -- Set a name for the elaboration files. Use the basename of the + -- output file, so that parallel builds with different output files + -- are allowed. + Elab_Name := new String'(Elab_Prefix & Get_Base_Name (Output_File.all)); end Set_Elab_Units; procedure Set_Elab_Units (Cmd_Name : String; Args : Argument_List) |