2008-12-17 Sebastian Pop <sebastian.pop@amd.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / stylesw.adb

diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb
index a037528..764d9af 100644 (file)
--- a/gcc/ada/stylesw.adb
+++ b/gcc/ada/stylesw.adb
@@ -49,6 +49,7 @@ package body Stylesw is
       Style_Check_Layout                := False;
       Style_Check_Max_Line_Length       := False;
       Style_Check_Max_Nesting_Level     := False;
+      Style_Check_Missing_Overriding    := False;
       Style_Check_Mode_In               := False;
       Style_Check_Order_Subprograms     := False;
       Style_Check_Pragma_Casing         := False;
@@ -123,6 +124,7 @@ package body Stylesw is
       Add ('l', Style_Check_Layout);
       Add ('n', Style_Check_Standard);
       Add ('o', Style_Check_Order_Subprograms);
+      Add ('O', Style_Check_Missing_Overriding);
       Add ('p', Style_Check_Pragma_Casing);
       Add ('r', Style_Check_References);
       Add ('s', Style_Check_Specs);
@@ -206,7 +208,7 @@ package body Stylesw is
       --  Concatenates image of N at end of Style_Msg_Buf
 
       procedure Bad_Style_Switch (Msg : String);
-      --  Called if bad style switch found. Msg is mset in Style_Msg_Buf and
+      --  Called if bad style switch found. Msg is set in Style_Msg_Buf and
       --  Style_Msg_Len. OK is set False.
 
       -------------
@@ -370,6 +372,9 @@ package body Stylesw is
             when 'o' =>
                Style_Check_Order_Subprograms     := True;
 
+            when 'O' =>
+               Style_Check_Missing_Overriding    := True;
+
             when 'p' =>
                Style_Check_Pragma_Casing         := True;