diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-15 06:48:45 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-15 06:48:45 +0200 |
commit | 66335e7a44dc449e99706c26d51f6da11b01a7f7 (patch) | |
tree | efdeccdf216a35e9c1829e0e6202c372f755b966 /src/ghdldrv | |
parent | 001bdb593ff5d2413c3a3a39ee0b65fc20a27cd0 (diff) | |
download | ghdl-66335e7a44dc449e99706c26d51f6da11b01a7f7.tar.gz ghdl-66335e7a44dc449e99706c26d51f6da11b01a7f7.tar.bz2 ghdl-66335e7a44dc449e99706c26d51f6da11b01a7f7.zip |
Use Decode_Work_Option in options. Factorize code.
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 448a248be..f22174e0e 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -160,7 +160,9 @@ package body Ghdlsynth is pragma Assert (Arg'First = 1); begin if Arg'Last > 7 and then Arg (1 .. 7) = "--work=" then - if not Libraries.Decode_Work_Option (Arg, True, False) then + if Libraries.Decode_Work_Option (Arg) then + Libraries.Load_Work_Library (True); + else return Null_Iir; end if; else |