Complete previous check-in: add Style_Check_Xtra_Parens.

From-SVN: r91289

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;