diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:43:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:43:32 +0000 |
| commit | 0bba2a3eedb2689450ece1d2a9e50aca24fc7409 (patch) | |
| tree | cffa0da8d27a20221632d034280fd6cfc6feb739 /gcc/ada/switch-c.adb | |
| parent | f967473a4c6dda6c5a1f1c9e502b25163c004a38 (diff) | |
| download | gcc-0bba2a3eedb2689450ece1d2a9e50aca24fc7409.tar.gz | |
2005-06-14 Robert Dewar <dewar@adacore.com>
* opt.ads, opt.adb: New flags for persistent_bss mode
Add Ada_Version_Explicit, for implementation of AI-362
Add Assertions_Enabled_Config and associated handling
Needed since setting can be changed with Assertion_Policy pragma
Add new flag Warn_On_Ada_2005_Compatibility
* switch-c.adb: Recognize -gnatwy/Y
Set Ada_Version_Explicit, for implementation of AI-362
The -gnatg switch now includes -gnatyu
* usage.adb: Add -gnatwy/Y
Remove wrong asterisk on -gnatwX line
Add line for -gnatyu switch
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101049 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index a91f9ea464e..7613e735879 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -503,7 +503,7 @@ package body Switch.C is Warn_On_Unchecked_Conversion := True; Warn_On_Unrecognized_Pragma := True; - Set_Style_Check_Options ("3abcdefhiklmnprst"); + Set_Style_Check_Options ("3abcdefhiklmnprstu"); -- Processing for G switch @@ -763,6 +763,7 @@ package body Switch.C is Constant_Condition_Warnings := True; Implementation_Unit_Warnings := True; Ineffective_Inline_Warnings := True; + Warn_On_Ada_2005_Compatibility := True; Warn_On_Bad_Fixed_Value := True; Warn_On_Constant := True; Warn_On_Export_Import := True; @@ -781,6 +782,7 @@ package body Switch.C is Elab_Warnings := False; Implementation_Unit_Warnings := False; Ineffective_Inline_Warnings := False; + Warn_On_Ada_2005_Compatibility := False; Warn_On_Bad_Fixed_Value := False; Warn_On_Constant := False; Warn_On_Dereference := False; @@ -908,6 +910,12 @@ package body Switch.C is when 'X' => Warn_On_Export_Import := False; + when 'y' => + Warn_On_Ada_2005_Compatibility := True; + + when 'Y' => + Warn_On_Ada_2005_Compatibility := False; + when 'z' => Warn_On_Unchecked_Conversion := True; @@ -972,6 +980,7 @@ package body Switch.C is Ptr := Ptr + 1; Extensions_Allowed := True; Ada_Version := Ada_Version_Type'Last; + Ada_Version_Explicit := Ada_Version; -- Processing for y switch @@ -1067,6 +1076,7 @@ package body Switch.C is else Ptr := Ptr + 1; Ada_Version := Ada_83; + Ada_Version_Explicit := Ada_Version; end if; -- Processing for 95 switch @@ -1083,6 +1093,7 @@ package body Switch.C is else Ptr := Ptr + 1; Ada_Version := Ada_95; + Ada_Version_Explicit := Ada_Version; end if; -- Processing for 05 switch @@ -1099,6 +1110,7 @@ package body Switch.C is else Ptr := Ptr + 1; Ada_Version := Ada_05; + Ada_Version_Explicit := Ada_Version; end if; -- Ignore extra switch character |