From 878f708abab2dbb86733df58e80a34c10b5d885b Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 26 Oct 2010 12:48:29 +0000 Subject: sem_ch3.adb, [...]: Minor reformatting. 2010-10-26 Robert Dewar * sem_ch3.adb, sem_ch4.adb, sem_disp.adb, switch-c.adb: Minor reformatting. * gnat_ugn.texi: Document -gnateP switch. From-SVN: r165953 --- gcc/ada/switch-c.adb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'gcc/ada/switch-c.adb') diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 4e63e31..a1919e9 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 -- cgit v1.1