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/libraries.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/libraries.adb')
-rw-r--r-- | src/libraries.adb | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index 6b1570d5a..0425030ad 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -1648,18 +1648,17 @@ package body Libraries is return Libraries_Chain; end Get_Libraries_Chain; - function Decode_Work_Option (Opt : String) return Boolean + function Decode_Work_Option (Opt : String) return Name_Id is - pragma Assert (Opt'First = 1); - Name : String (1 .. Opt'Last - 8 + 1); + Name : String (Opt'First + 7 .. Opt'Last); Err : Boolean; begin - Name := Opt (8 .. Opt'Last); + Name := Opt (Opt'First + 7 .. Opt'Last); Vhdl.Scanner.Convert_Identifier (Name, Err); if Err then - return False; + return Null_Identifier; end if; - Libraries.Work_Library_Name := Get_Identifier (Name); - return True; + return Get_Identifier (Name); + -- Libraries.Work_Library_Name := end Decode_Work_Option; end Libraries; |