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;
@@ -293,6 +295,9 @@ package body Stylesw is
             when 't' =>
                Style_Check_Tokens            := True;
 
+            when 'x' =>
+               Style_Check_Xtra_Parens       := True;
+
             when ' ' =>
                null;