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/libraries.adb | |
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/libraries.adb')
-rw-r--r-- | src/libraries.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index d4e809b63..c1d06c7eb 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -1642,8 +1642,7 @@ package body Libraries is return Libraries_Chain; end Get_Libraries_Chain; - function Decode_Work_Option - (Opt : String; Immediate : Boolean; Load_Lib : Boolean) return Boolean + function Decode_Work_Option (Opt : String) return Boolean is pragma Assert (Opt'First = 1); Name : String (1 .. Opt'Last - 8 + 1); @@ -1655,9 +1654,6 @@ package body Libraries is return False; end if; Libraries.Work_Library_Name := Get_Identifier (Name); - if Immediate then - Libraries.Load_Work_Library (not Load_Lib); - end if; return True; end Decode_Work_Option; end Libraries; |