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/ghdlprint.adb | |
| 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/ghdlprint.adb')
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 3 |
1 files changed, 3 insertions, 0 deletions
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; |