[Ada] Fix deleted Compile_Time warnings causing crashes

gcc/ada/

	* erroutc.adb (Count_Compile_Time_Pragma_Warnings): Don't count
	deleted warnings.
This commit is contained in:
Ghjuvan Lacambre 2021-10-18 15:34:42 +02:00 committed by Pierre-Marie de Rodat
parent 387c665392
commit ea5f7f3962

View File

@ -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;