[multiple changes]

[gcc.git] / gcc / ada / warnsw.adb

diff --git a/gcc/ada/warnsw.adb b/gcc/ada/warnsw.adb
index 8e2b1b6a879810af1cfd48c1dbc2d742500c120a..7920ac902690394d9690b721deff0aeb1f0c8b72 100644 (file)
--- a/gcc/ada/warnsw.adb
+++ b/gcc/ada/warnsw.adb
@@ -87,6 +87,7 @@ package body Warnsw is
             Warn_On_Record_Holes                := True;
             Warn_On_Redundant_Constructs        := True;
             Warn_On_Reverse_Bit_Order           := True;
+            Warn_On_Standard_Redefinition       := True;
             Warn_On_Suspicious_Contract         := True;
             Warn_On_Unchecked_Conversion        := True;
             Warn_On_Unordered_Enumeration_Type  := True;
@@ -109,6 +110,12 @@ package body Warnsw is
          when 'I' =>
             Warn_On_Overlap                     := False;
 
+         when 'k' =>
+            Warn_On_Standard_Redefinition       := True;
+
+         when 'K' =>
+            Warn_On_Standard_Redefinition       := False;
+
          when 'l' =>
             List_Inherited_Aspects              := True;
 
@@ -307,6 +314,7 @@ package body Warnsw is
             Warn_On_Questionable_Missing_Parens := False;
             Warn_On_Redundant_Constructs        := False;
             Warn_On_Reverse_Bit_Order           := False;
+            Warn_On_Standard_Redefinition       := False;
             Warn_On_Suspicious_Contract         := False;
             Warn_On_Suspicious_Modulus_Value    := False;
             Warn_On_Unchecked_Conversion        := False;