diff options
-rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index 541e8b7cb..d06da3510 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -755,6 +755,10 @@ package body Ghdlcomp is -- Create list of files. Files_List := Build_Dependence (Lib_Id, Prim_Id, Sec_Id); + if Errorout.Nbr_Errors /= 0 then + raise Errorout.Compilation_Error; + end if; + -- Unmark all libraries. Lib := Libraries.Std_Library; while Lib /= Null_Iir loop |