diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-11-05 18:54:46 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-11-05 18:54:46 +0100 |
| commit | 68e5a0ad8c2637ea0009057b22fcb883893c6f34 (patch) | |
| tree | 43dbe3ef22f062e3294c1820a7fd4c6c3407e789 /src/ghdldrv/ghdlcomp.adb | |
| parent | 894b357144b5b84800e970ee952f137485b6fb62 (diff) | |
| download | ghdl-68e5a0ad8c2637ea0009057b22fcb883893c6f34.tar.gz ghdl-68e5a0ad8c2637ea0009057b22fcb883893c6f34.tar.bz2 ghdl-68e5a0ad8c2637ea0009057b22fcb883893c6f34.zip | |
ghdlcomp: exit with error status in case of error. For #1908
Diffstat (limited to 'src/ghdldrv/ghdlcomp.adb')
| -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 |