[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 9e67b929cb7703fd158993a7b479a402d8455c87..8d362de665734ea7564a2e53463290c75060ee7f 100644 (file)
--- 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;