From f0bf3aa13c57856ace41b66e16a79b131ed5e2ec Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 23 Jun 2010 09:08:31 +0000 Subject: 2010-06-23 Ed Schonberg * sem_res.adb (Resolve_Intrinsic_Operator): Add guards to handle properly the rare cases where VMS operators are visible through Extend_System, but the default System is being used and Address is a private type. * sem_util.adb: Widen predicate Is_VMS_Operator. 2010-06-23 Vincent Celier * switch-m.adb (Normalize_Compiler_Switches): Take into account -gnatC and -gnateS. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161263 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/switch-m.adb | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'gcc/ada/switch-m.adb') diff --git a/gcc/ada/switch-m.adb b/gcc/ada/switch-m.adb index 98fc4c1d04c..b549b2cac69 100644 --- a/gcc/ada/switch-m.adb +++ b/gcc/ada/switch-m.adb @@ -71,7 +71,7 @@ package body Switch.M is procedure Add_Switch_Component (S : String); -- Add a new String_Access component in Switches. If a string equal -- to S is already stored in the table Normalized_Switches, use it. - -- Other wise add a new component to the table. + -- Otherwise add a new component to the table. -------------------------- -- Add_Switch_Component -- @@ -215,10 +215,10 @@ package body Switch.M is -- One-letter switches - when 'a' | 'A' | 'b' | 'c' | 'D' | 'E' | 'f' | 'F' | - 'g' | 'h' | 'H' | 'l' | 'L' | 'n' | 'N' | 'o' | - 'O' | 'p' | 'P' | 'q' | 'Q' | 'r' | 's' | 't' | - 'u' | 'U' | 'v' | 'x' | 'X' | 'Z' => + when 'a' | 'A' | 'b' | 'c' | 'C' | 'D' | 'E' | 'f' | + 'F' | 'g' | 'h' | 'H' | 'l' | 'L' | 'n' | 'N' | + 'o' | 'O' | 'p' | 'P' | 'q' | 'Q' | 'r' | 's' | + 't' | 'u' | 'U' | 'v' | 'x' | 'X' | 'Z' => Storing (First_Stored) := C; Add_Switch_Component (Storing (Storing'First .. First_Stored)); @@ -268,8 +268,9 @@ package body Switch.M is when 'e' => - -- Store -gnateD, -gnatep= and -gnateG in the ALI file. - -- The other -gnate switches do not need to be stored. + -- Store -gnateD, -gnatep=, -gnateG and -gnateS in the + -- ALI file. The other -gnate switches do not need to be + -- stored. Storing (First_Stored) := 'e'; Ptr := Ptr + 1; @@ -277,7 +278,8 @@ package body Switch.M is if Ptr > Max or else (Switch_Chars (Ptr) /= 'D' and then Switch_Chars (Ptr) /= 'G' - and then Switch_Chars (Ptr) /= 'p') + and then Switch_Chars (Ptr) /= 'p' + and then Switch_Chars (Ptr) /= 'S') then Last := 0; return; @@ -322,6 +324,9 @@ package body Switch.M is elsif Switch_Chars (Ptr) = 'G' then Add_Switch_Component ("-gnateG"); + + elsif Switch_Chars (Ptr) = 'S' then + Add_Switch_Component ("-gnateS"); end if; return; -- cgit v1.2.1