diff options
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 4e63e3177bb..a1919e9c726 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -567,7 +567,13 @@ package body Switch.C is Set_GNAT_Mode_Warnings; Set_GNAT_Style_Check_Options; - -- Other special modes set by -gnatg + -- Suppress categorization errors. The run-time has several + -- instances of violations of the categorization errors (e.g. + -- Pure units withing Preelaborate units. These violations are + -- harmless in the cases where we intend them, and we suppress + -- the warnings with Warnings (Off). In cases where we do not + -- intend the violation, warnings are errors in -gnatg mode + -- anyway, so we will still get an error. Treat_Categorization_Errors_As_Warnings := True; @@ -929,8 +935,8 @@ package body Switch.C is when 'X' => Ptr := Ptr + 1; - Extensions_Allowed := True; - Ada_Version := Ada_Version_Type'Last; + Extensions_Allowed := True; + Ada_Version := Ada_Version_Type'Last; Ada_Version_Explicit := Ada_Version_Type'Last; -- Processing for y switch |