diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-19 10:56:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-19 10:56:53 +0000 |
| commit | 25ba8eb38bbbc147d86796ff8db54c44252709f7 (patch) | |
| tree | bd2bdeb5f19ff29203c41b2c8b4fd854bcaa43aa /gcc/ada/par-ch5.adb | |
| parent | 5245b786fc5507b712ad9dd5fc461962d269f78d (diff) | |
| download | gcc-25ba8eb38bbbc147d86796ff8db54c44252709f7.tar.gz | |
* errout.ads, errout.adb: (First_Sloc): New function
* par-ch5.adb (P_Condition): Check for redundant parens is now a style
check (-gnatyx) instead of being included as a redundant construct
warning.
* sem_ch6.adb: Change name Style_Check_Subprogram_Order to
Style_Check_Order_Subprograms.
* style.ads, styleg.ads, styleg.adb, styleg-c.adb, stylesw.ads,
stylesw.adb: Add Style_Check_Xtra_Parens
* usage.adb: Add line for -gnatyx (check extra parens)
* vms_data.ads: Add entry for STYLE_CHECKS=XTRA_PARENS => -gnatyx
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90905 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch5.adb')
| -rw-r--r-- | gcc/ada/par-ch5.adb | 4 |
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 |