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/options.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/options.adb')
| -rw-r--r-- | src/options.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/options.adb b/src/options.adb index 31f5c89b5..a68f949a4 100644 --- a/src/options.adb +++ b/src/options.adb @@ -18,6 +18,7 @@ with Simple_IO; with Errorout; use Errorout; +with Types; use Types; with Libraries; with Std_Names; with PSL.Nodes; @@ -138,7 +139,8 @@ package body Options is elsif Opt'Length > 2 and then Opt (1 .. 2) = "-W" then return Option_Warning (Opt (3 .. Opt'Last), True); elsif Opt'Length > 7 and then Opt (1 .. 7) = "--work=" then - if not Libraries.Decode_Work_Option (Opt) then + Libraries.Work_Library_Name := Libraries.Decode_Work_Option (Opt); + if Libraries.Work_Library_Name = Null_Identifier then return Option_Err; end if; elsif Opt = "-C" or else Opt = "--mb-comments" then |