From ea5f7f3962a0781cfd36016776adf79986929bfa Mon Sep 17 00:00:00 2001 From: Ghjuvan Lacambre Date: Mon, 18 Oct 2021 15:34:42 +0200 Subject: [PATCH] [Ada] Fix deleted Compile_Time warnings causing crashes gcc/ada/ * erroutc.adb (Count_Compile_Time_Pragma_Warnings): Don't count deleted warnings. --- gcc/ada/erroutc.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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; -- 2.47.3