[Ada] Simplify check for extra parens
gcc/ada/ * par-ch5.adb (P_Condition): Simplify condition for warning about extra parens and make it easier to understand.
This commit is contained in:
parent
3a6298d639
commit
7d07d75d69
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user