From 6f3f9645ef7f05150dd13488025d419deb29c6da Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 15 Dec 2018 07:40:34 +0100 Subject: Finish_Compilation: do not raise Compilation_Error. --- src/ghdldrv/ghdldrv.adb | 4 ++++ src/ghdldrv/ghdlprint.adb | 3 +++ 2 files changed, 7 insertions(+) (limited to 'src/ghdldrv') diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index b353159d5..7e73a0785 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -1503,6 +1503,10 @@ package body Ghdldrv is -- Create list of files. Files_List := Build_Dependence (Prim_Name, Sec_Name); + if Errorout.Nbr_Errors /= 0 then + raise Errorout.Compilation_Error; + end if; + if Cmd.Flag_Depend_Unit then Put_Line ("Units analysis order:"); for I in Design_Units.First .. Design_Units.Last loop diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 6e75df65f..c0dc66707 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -1285,6 +1285,9 @@ package body Ghdlprint is raise Internal_Error; when Date_Parse => Sem_Lib.Load_Design_Unit (Unit, Unit); + if Errorout.Nbr_Errors /= 0 then + raise Compilation_Error; + end if; when Date_Analyze => null; end case; -- cgit v1.2.3