diff options
Diffstat (limited to 'gcc/ada/checks.adb')
| -rw-r--r-- | gcc/ada/checks.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index ab628b30f8b..195b69e1be8 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -7378,12 +7378,10 @@ package body Checks is function Tag_Checks_Suppressed (E : Entity_Id) return Boolean is begin - if Present (E) then - if Kill_Tag_Checks (E) then - return True; - elsif Checks_May_Be_Suppressed (E) then - return Is_Check_Suppressed (E, Tag_Check); - end if; + if Present (E) + and then Checks_May_Be_Suppressed (E) + then + return Is_Check_Suppressed (E, Tag_Check); end if; return Scope_Suppress (Tag_Check); |