diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-02-19 08:59:10 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-02-19 08:59:10 +0100 |
| commit | c254871698f100d3600edf29f7f467564531418c (patch) | |
| tree | e839d80942886f226152ed2510b47f1a3e3f7c3f | |
| parent | 58c808dd88007ba260aba454a4ec2b2e4686b23b (diff) | |
| download | ghdl-c254871698f100d3600edf29f7f467564531418c.tar.gz ghdl-c254871698f100d3600edf29f7f467564531418c.tar.bz2 ghdl-c254871698f100d3600edf29f7f467564531418c.zip | |
ghdlsynth.adb: unknown vendor library is now an error. Fix #1650
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index d754f1663..fda42bcbc 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -283,11 +283,16 @@ package body Ghdlsynth is Lib : Node; begin Lib := Libraries.Get_Library - (Cmd.Vendor_Libraries (I), No_Location); + (Cmd.Vendor_Libraries (I), Libraries.Command_Line_Location); Set_Vendor_Library_Flag (Lib, True); end; end loop; + -- Maybe a vendor library is unknown. + if Errorout.Nbr_Errors > 0 then + return Null_Iir; + end if; + Flags.Flag_Elaborate_With_Outdated := E_Opt >= Args'First; -- Analyze files (if any) |