summaryrefslogtreecommitdiff
path: root/gcc/ada/par-ch5.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/par-ch5.adb')
-rw-r--r--gcc/ada/par-ch5.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb
index 71324884f77..6293ad6ba6b 100644
--- a/gcc/ada/par-ch5.adb
+++ b/gcc/ada/par-ch5.adb
@@ -1268,10 +1268,10 @@ package body Ch5 is
-- Otherwise check for redundant parens
else
- if Warn_On_Redundant_Constructs
+ if Style_Check
and then Paren_Count (Cond) > 0
then
- Error_Msg_F ("redundant parentheses?", Cond);
+ Style.Check_Xtra_Parens (First_Sloc (Cond));
end if;
-- And return the result