From d2b075f3de988b9c3bfabd06c585d5670dbcdadf Mon Sep 17 00:00:00 2001 From: Ghjuvan Lacambre Date: Mon, 11 Jan 2021 16:26:45 +0100 Subject: [PATCH] [Ada] Don't emit style errors when parens are required gcc/ada/ * par-ch5.adb (P_Condition): Check if expression is declare expression. --- gcc/ada/par-ch5.adb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 9d0ac2c..7f82557 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -1299,17 +1299,16 @@ package body Ch5 is return Cond; - -- Otherwise check for redundant parentheses - - -- If the condition is a conditional or a quantified expression, it is - -- parenthesized in the context of a condition, because of a separate - -- syntax rule. + -- Otherwise check for redundant parentheses but do not emit messages + -- about expressions that require parentheses (e.g. conditional, + -- quantified or declaration expressions). else if Style_Check and then Paren_Count (Cond) > (if Nkind (Cond) in N_Case_Expression + | N_Expression_With_Actions | N_If_Expression | N_Quantified_Expression then 1 -- 2.7.4