diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-09 21:08:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-09 21:12:10 +0200 |
| commit | 47547a132eb132778117ca5c4eb3394df0500898 (patch) | |
| tree | 0a0b2fb9686978b1ba85d6c35285ae51dcdcb0e2 /src/ghdldrv/ghdlsynth.adb | |
| parent | 288764bb1dfe19c83e119d89009e1d9a47f682b7 (diff) | |
| download | ghdl-47547a132eb132778117ca5c4eb3394df0500898.tar.gz ghdl-47547a132eb132778117ca5c4eb3394df0500898.tar.bz2 ghdl-47547a132eb132778117ca5c4eb3394df0500898.zip | |
vhdl: allows --work between files for -c. Fix #1362
Diffstat (limited to 'src/ghdldrv/ghdlsynth.adb')
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 08d980581..8ca51b81e 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -251,13 +251,14 @@ package body Ghdlsynth is declare Arg : String renames Args (I).all; pragma Assert (Arg'First = 1); + Id : Name_Id; begin if Arg'Last > 7 and then Arg (1 .. 7) = "--work=" then - if Libraries.Decode_Work_Option (Arg) then - Libraries.Load_Work_Library (True); - else + Id := Libraries.Decode_Work_Option (Arg); + if Id = Null_Identifier then return Null_Iir; end if; + Libraries.Load_Work_Library (True); else Ghdlcomp.Compile_Load_File (Arg); end if; |