diff options
Diffstat (limited to 'gcc/ada/warnsw.adb')
-rw-r--r-- | gcc/ada/warnsw.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/warnsw.adb b/gcc/ada/warnsw.adb index 4a7dcc3..733c962 100644 --- a/gcc/ada/warnsw.adb +++ b/gcc/ada/warnsw.adb @@ -80,6 +80,7 @@ package body Warnsw is Warn_On_Questionable_Layout := Setting; Warn_On_Questionable_Missing_Parens := Setting; Warn_On_Record_Holes := Setting; + Warn_On_Ignored_Equality := Setting; Warn_On_Component_Order := Setting; Warn_On_Redundant_Constructs := Setting; Warn_On_Reverse_Bit_Order := Setting; @@ -181,6 +182,8 @@ package body Warnsw is W.Warn_On_Questionable_Missing_Parens; Warn_On_Record_Holes := W.Warn_On_Record_Holes; + Warn_On_Ignored_Equality := + W.Warn_On_Ignored_Equality; Warn_On_Component_Order := W.Warn_On_Component_Order; Warn_On_Redundant_Constructs := @@ -295,6 +298,8 @@ package body Warnsw is Warn_On_Questionable_Missing_Parens; W.Warn_On_Record_Holes := Warn_On_Record_Holes; + W.Warn_On_Ignored_Equality := + Warn_On_Ignored_Equality; W.Warn_On_Component_Order := Warn_On_Component_Order; W.Warn_On_Redundant_Constructs := @@ -516,6 +521,12 @@ package body Warnsw is when 'P' => Warn_On_Pedantic_Checks := False; + when 'q' => + Warn_On_Ignored_Equality := True; + + when 'Q' => + Warn_On_Ignored_Equality := False; + when 'r' => Warn_On_Component_Order := True; |