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/ghdldrv.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/ghdldrv.adb')
-rw-r--r-- | src/ghdldrv/ghdldrv.adb | 4 |
1 files changed, 4 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 |