diff options
Diffstat (limited to 'gcc/ada/erroutc.adb')
| -rw-r--r-- | gcc/ada/erroutc.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index f255ac0..a5d963f 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -1340,6 +1340,10 @@ package body Erroutc is function Warnings_Suppressed (Loc : Source_Ptr) return Boolean is begin + if Warning_Mode = Suppress then + return True; + end if; + -- Loop through table of ON/OFF warnings for J in Warnings.First .. Warnings.Last loop |