diff options
| -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) |