From 08aa9a4a1cc0bb4a94b2612a9818578fc9222cde Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 1 Dec 2003 14:29:28 +0100 Subject: [multiple changes] 2003-12-01 Nicolas Setton * a-except.adb (Raise_Current_Excep): Add a pragma Inspection_Point, so that the debugger can reliably access the value of the parameter, and therefore is able to display the exception name when an exception breakpoint is reached. 2003-12-01 Thomas Quinot * fmap.adb: Fix typo in warning message. * g-socket.ads, g-socket.adb: Make Free a visible instance of Ada.Unchecked_Deallocation (no need to wrap it in a subprogram). 2003-12-01 Vincent Celier * mlib-prj.adb (Build_Library.Process): Do not check a withed unit if ther is no Afile. (Build_Library): Get the switches only if Default_Switches is declared in package Binder. 2003-12-01 Ed Schonberg * exp_ch6.adb (Expand_Actuals): When applying validity checks to actuals that are indexed components, reanalyze actual to ensure that packed array references are properly expanded. * sem_ch5.adb (Diagnose_Non_Variable_Lhs): Add special case for attempted assignment to a discriminant. 2003-12-01 Robert Dewar * rtsfind.adb, exp_ch4.adb, s-exnint.ads, s-exnint.adb: Minor reformatting. * switch-c.adb: Minor reformatting of comments 2003-12-01 Arnaud Charlet * Makefile.in: Clean ups. 2003-12-01 GNAT Script * Make-lang.in: Makefile automatically updated From-SVN: r74100 --- gcc/ada/switch-c.adb | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) (limited to 'gcc/ada/switch-c.adb') diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 5f4e6ca..837be56 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -296,20 +296,21 @@ package body Switch.C is Xref_Active := False; Set_Debug_Flag ('g'); - -- Processing for e switch + -- -gnate? (extended switches) when 'e' => - -- Only -gnateD and -gnatep= are stored - Ptr := Ptr + 1; + -- The -gnate? switches are all double character switches + -- so we must always have a character after the e. + if Ptr > Max then raise Bad_Switch; end if; case Switch_Chars (Ptr) is - -- Configuration pragmas + -- -gnatec (configuration pragmas) when 'c' => Store_Switch := False; @@ -359,7 +360,7 @@ package body Switch.C is return; - -- Symbol definition + -- -gnateD switch (symbol definition) when 'D' => Store_Switch := False; @@ -381,7 +382,7 @@ package body Switch.C is (Storing'First .. First_Stored + Max - Ptr + 2)); return; - -- Full source path for brief error messages + -- -gnatef (full source path for brief error messages) when 'f' => Store_Switch := False; @@ -389,7 +390,7 @@ package body Switch.C is Full_Path_Name_For_Brief_Errors := True; return; - -- Mapping file + -- -gnatem (mapping file) when 'm' => Store_Switch := False; @@ -410,7 +411,7 @@ package body Switch.C is new String'(Switch_Chars (Ptr .. Max)); return; - -- Preprocessing data file + -- -gnatep (preprocessing data file) when 'p' => Store_Switch := False; @@ -445,19 +446,21 @@ package body Switch.C is Store_Compilation_Switch (To_Store); end; - return; + return; + + -- All other -gnate? switches are unassigned when others => raise Bad_Switch; end case; - -- Processing for E switch + -- -gnatE (dynamic elaboration checks) when 'E' => Ptr := Ptr + 1; Dynamic_Elaboration_Checks := True; - -- Processing for f switch + -- -gnatf (full error messages) when 'f' => Ptr := Ptr + 1; -- cgit v1.1