diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-06-20 19:01:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-06-20 19:01:57 +0200 |
| commit | 6f7777c99483cdc10d5eafe7bd47e752a34f862a (patch) | |
| tree | 079030e609e22233a50f90a4edcb5bbd6a6b96d9 | |
| parent | e3945ec7d3a10888c42505343600e946cf960da2 (diff) | |
| download | ghdl-6f7777c99483cdc10d5eafe7bd47e752a34f862a.tar.gz ghdl-6f7777c99483cdc10d5eafe7bd47e752a34f862a.tar.bz2 ghdl-6f7777c99483cdc10d5eafe7bd47e752a34f862a.zip | |
errorout-memory: avoid a crash after the limit is
| -rw-r--r-- | src/errorout-memory.adb | 5 | ||||
| -rw-r--r-- | src/errorout.adb | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/src/errorout-memory.adb b/src/errorout-memory.adb index c0e6cd1df..a13e5c668 100644 --- a/src/errorout-memory.adb +++ b/src/errorout-memory.adb @@ -115,7 +115,10 @@ package body Errorout.Memory is pragma Assert (Group /= Msg_Single); case Errors.Table (Errors.Last).Header.Group is when Msg_Single | Msg_Last => - raise Internal_Error; + -- Check consistency until messages are discarded. + if Nbr_Errors <= Max_Nbr_Errors then + raise Internal_Error; + end if; when Msg_Main => Errors.Table (Errors.Last).Header.Group := Msg_Single; when Msg_Related => diff --git a/src/errorout.adb b/src/errorout.adb index 98a844c7b..5e706c475 100644 --- a/src/errorout.adb +++ b/src/errorout.adb @@ -202,7 +202,7 @@ package body Errorout is and then New_Id = Msgid_Error then if Nbr_Errors = Max_Nbr_Errors then - -- Limit reached. Emit a message. + -- Limit reached. Emit a message on the first message. Report_Handler.Error_Start (Err => (Option, Msgid_Error, No_Source_File_Entry, 0, 0, 0)); |