From e54640fae9e30b6f842a857dbee7c9ae9243dbdd Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Jun 2019 18:26:00 +0200
Subject: errorout: stop after error limit.

---
 src/errorout.adb | 4 ++--
 1 file 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.
-- 
cgit v1.2.3