diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-10-18 15:34:42 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-25 15:07:19 +0000 |
| commit | ea5f7f3962a0781cfd36016776adf79986929bfa (patch) | |
| tree | fba5329b94d975d6a1d70b7d5dcacc291114b05b /gcc/ada/erroutc.adb | |
| parent | 387c665392366a543fb29badaee329533b32abb3 (diff) | |
| download | gcc-ea5f7f3962a0781cfd36016776adf79986929bfa.zip gcc-ea5f7f3962a0781cfd36016776adf79986929bfa.tar.gz gcc-ea5f7f3962a0781cfd36016776adf79986929bfa.tar.bz2 | |
[Ada] Fix deleted Compile_Time warnings causing crashes
gcc/ada/
* erroutc.adb (Count_Compile_Time_Pragma_Warnings): Don't count
deleted warnings.
Diffstat (limited to 'gcc/ada/erroutc.adb')
| -rw-r--r-- | gcc/ada/erroutc.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 9e67b92..8d362de 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; |