[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:
parent
387c665392
commit
ea5f7f3962
@ -277,7 +277,9 @@ package body Erroutc is
|
|||||||
begin
|
begin
|
||||||
for J in 1 .. Errors.Last loop
|
for J in 1 .. Errors.Last loop
|
||||||
begin
|
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
|
then
|
||||||
Result := Result + 1;
|
Result := Result + 1;
|
||||||
end if;
|
end if;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user