diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-11-25 14:07:56 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-11-25 14:07:56 +0100 |
| commit | 62b6316473cb472092a35d7b43842ce276483c95 (patch) | |
| tree | 0c47ddccbc65f5e0469cf978ddb532369f6120d6 /gcc | |
| parent | bef638f4d4e0d0eed5ddf4ad706afd69377663e2 (diff) | |
| download | gcc-62b6316473cb472092a35d7b43842ce276483c95.zip gcc-62b6316473cb472092a35d7b43842ce276483c95.tar.gz gcc-62b6316473cb472092a35d7b43842ce276483c95.tar.bz2 | |
Complete previous check-in: add Style_Check_Xtra_Parens.
From-SVN: r91289
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/stylesw.adb | 33 |
1 files changed, 19 insertions, 14 deletions
diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb index b07826f..1b3ea5f 100644 --- a/gcc/ada/stylesw.adb +++ b/gcc/ada/stylesw.adb @@ -46,12 +46,13 @@ package body Stylesw is Style_Check_Layout := False; Style_Check_Max_Line_Length := False; Style_Check_Max_Nesting_Level := False; + Style_Check_Order_Subprograms := False; Style_Check_Pragma_Casing := False; Style_Check_References := False; Style_Check_Specs := False; Style_Check_Standard := False; - Style_Check_Order_Subprograms := False; Style_Check_Tokens := False; + Style_Check_Xtra_Parens := False; end Reset_Style_Check_Options; ------------------------------ @@ -118,6 +119,7 @@ package body Stylesw is Add ('r', Style_Check_References); Add ('s', Style_Check_Specs); Add ('t', Style_Check_Tokens); + Add ('x', Style_Check_Xtra_Parens); if Style_Check_Max_Line_Length then P := P + 1; @@ -184,31 +186,31 @@ package body Stylesw is := Character'Pos (C) - Character'Pos ('0'); when 'a' => - Style_Check_Attribute_Casing := True; + Style_Check_Attribute_Casing := True; when 'b' => - Style_Check_Blanks_At_End := True; + Style_Check_Blanks_At_End := True; when 'c' => - Style_Check_Comments := True; + Style_Check_Comments := True; when 'e' => - Style_Check_End_Labels := True; + Style_Check_End_Labels := True; when 'f' => - Style_Check_Form_Feeds := True; + Style_Check_Form_Feeds := True; when 'h' => - Style_Check_Horizontal_Tabs := True; + Style_Check_Horizontal_Tabs := True; when 'i' => - Style_Check_If_Then_Layout := True; + Style_Check_If_Then_Layout := True; when 'k' => - Style_Check_Keyword_Casing := True; + Style_Check_Keyword_Casing := True; when 'l' => - Style_Check_Layout := True; + Style_Check_Layout := True; when 'L' => Style_Max_Nesting_Level := 0; @@ -240,11 +242,11 @@ package body Stylesw is Style_Check_Max_Nesting_Level := Style_Max_Nesting_Level /= 0; when 'm' => - Style_Check_Max_Line_Length := True; - Style_Max_Line_Length := 79; + Style_Check_Max_Line_Length := True; + Style_Max_Line_Length := 79; when 'n' => - Style_Check_Standard := True; + Style_Check_Standard := True; when 'N' => Reset_Style_Check_Options; @@ -276,7 +278,7 @@ package body Stylesw is or else Options (J) not in '0' .. '9'; end loop; - Style_Check_Max_Line_Length := Style_Max_Line_Length /= 0; + Style_Check_Max_Line_Length := Style_Max_Line_Length /= 0; when 'o' => Style_Check_Order_Subprograms := True; @@ -293,6 +295,9 @@ package body Stylesw is when 't' => Style_Check_Tokens := True; + when 'x' => + Style_Check_Xtra_Parens := True; + when ' ' => null; |