From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Mon, 18 Oct 2021 13:34:42 +0000 (+0200)
Subject: [Ada] Fix deleted Compile_Time warnings causing crashes
X-Git-Tag: basepoints/gcc-13~3646
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ea5f7f3962a0781cfd36016776adf79986929bfa;p=thirdparty%2Fgcc.git

[Ada] Fix deleted Compile_Time warnings causing crashes

gcc/ada/

	* erroutc.adb (Count_Compile_Time_Pragma_Warnings): Don't count
	deleted warnings.
---

diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
index 9e67b929cb77..8d362de66573 100644
--- a/gcc/ada/erroutc.adb
+++ b/gcc/ada/erroutc.adb
@@ -277,7 +277,9 @@ package body Erroutc is
    begin
       for J in 1 .. Errors.Last loop
          begin
-            if Errors.Table (J).Warn and Errors.Table (J).Compile_Time_Pragma
+            if Errors.Table (J).Warn
+               and then Errors.Table (J).Compile_Time_Pragma
+               and then not Errors.Table (J).Deleted
             then
                Result := Result + 1;
             end if;