diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-23 09:08:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-23 09:08:31 +0000 |
| commit | f0bf3aa13c57856ace41b66e16a79b131ed5e2ec (patch) | |
| tree | 3ab23cac4a000697a1f18501282634000c077718 /gcc/ada/switch-m.adb | |
| parent | 4a377444a7409e73967de08b797d6a83d7589330 (diff) | |
| download | gcc-f0bf3aa13c57856ace41b66e16a79b131ed5e2ec.tar.gz | |
2010-06-23 Ed Schonberg <schonberg@adacore.com>
* 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 <celier@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/switch-m.adb')
| -rw-r--r-- | gcc/ada/switch-m.adb | 21 |
1 files changed, 13 insertions, 8 deletions
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; |