[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:
Piotr Trojanek 2020-11-26 18:37:09 +01:00 committed by Pierre-Marie de Rodat
parent 3a6298d639
commit 7d07d75d69

View File

@ -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