diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-06-04 18:26:00 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-06-04 18:26:00 +0200 |
| commit | e54640fae9e30b6f842a857dbee7c9ae9243dbdd (patch) | |
| tree | 9f0514ae63dfb6e36039b554bd6e5a1b3d334a91 | |
| parent | 25f61f81547d51ecc3983eb5779813fb94ca90ef (diff) | |
| download | ghdl-e54640fae9e30b6f842a857dbee7c9ae9243dbdd.tar.gz ghdl-e54640fae9e30b6f842a857dbee7c9ae9243dbdd.tar.bz2 ghdl-e54640fae9e30b6f842a857dbee7c9ae9243dbdd.zip | |
errorout: stop after error limit.
| -rw-r--r-- | src/errorout.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/errorout.adb b/src/errorout.adb index c00e46e05..98a844c7b 100644 --- a/src/errorout.adb +++ b/src/errorout.adb @@ -208,9 +208,9 @@ package body Errorout is No_Source_File_Entry, 0, 0, 0)); Report_Handler.Message ("error limit reached"); Report_Handler.Message_End.all; - else - Nbr_Errors := Nbr_Errors + 1; end if; + + Nbr_Errors := Nbr_Errors + 1; end if; -- Limit the number of errors. |