diff options
| -rw-r--r-- | gcc/ada/par-ch5.adb | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index ce02af7..a8d49b1 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -1306,14 +1306,16 @@ package body Ch5 is -- syntax rule. else - if Style_Check and then Paren_Count (Cond) > 0 then - if Nkind (Cond) not in N_If_Expression - | N_Case_Expression + if Style_Check + and then + Paren_Count (Cond) > + (if Nkind (Cond) in N_Case_Expression + | N_If_Expression | N_Quantified_Expression - or else Paren_Count (Cond) > 1 - then - Style.Check_Xtra_Parens (First_Sloc (Cond)); - end if; + then 1 + else 0) + then + Style.Check_Xtra_Parens (First_Sloc (Cond)); end if; -- And return the result |