diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-15 07:40:34 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-16 07:05:31 +0100 |
| commit | 6f3f9645ef7f05150dd13488025d419deb29c6da (patch) | |
| tree | f4b7e32f54cd9e8541c98f92d846e8e2a5e9fcaa /src/ghdldrv | |
| parent | fe1d817d034d969e012faaa661238ff1587aed25 (diff) | |
| download | ghdl-6f3f9645ef7f05150dd13488025d419deb29c6da.tar.gz ghdl-6f3f9645ef7f05150dd13488025d419deb29c6da.tar.bz2 ghdl-6f3f9645ef7f05150dd13488025d419deb29c6da.zip | |
Finish_Compilation: do not raise Compilation_Error.
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdldrv.adb | 4 | ||||
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 3 |
2 files changed, 7 insertions, 0 deletions
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; |