From 6f7777c99483cdc10d5eafe7bd47e752a34f862a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 20 Jun 2019 19:01:57 +0200
Subject: errorout-memory: avoid a crash after the limit is

---
 src/errorout.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/errorout.adb')

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));
-- 
cgit v1.2.3