diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-02 10:16:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-02 10:16:40 +0200 |
| commit | 2a7b8e181bd51b6e96864840550c66619573e8d1 (patch) | |
| tree | f51de0844cc6806f85f20e8913a750c5ab9a0084 /gcc/ada/switch-m.adb | |
| parent | 5f49133f81390b80edb508542edaa91583c9628a (diff) | |
| download | gcc-2a7b8e181bd51b6e96864840550c66619573e8d1.zip gcc-2a7b8e181bd51b6e96864840550c66619573e8d1.tar.gz gcc-2a7b8e181bd51b6e96864840550c66619573e8d1.tar.bz2 | |
[multiple changes]
2012-10-02 Bob Duff <duff@adacore.com>
* checks.adb (Apply_Predicate_Check): Disable check in -gnatc mode.
2012-10-02 Vincent Pucci <pucci@adacore.com>
* sem_ch6.adb (Analyze_Function_Call): Dimension propagation
for function calls moved to Analyze_Dimension_Call.
* sem_dim.adb (Analyze_Dimension_Call): Properly propagate the
dimensions from the returned type for function calls.
2012-10-02 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Take into account any configuration pragma file
in the project files for gnat pretty/stub/metric.
2012-10-02 Ed Schonberg <schonberg@adacore.com>
* sem_ch13.adb (Check_Indexing_Functions): Refine several tests
on the legality of indexing aspects: Constant_Indexing functions
do not have to return a reference type, and given an indexing
aspect Func, not all overloadings of Func in the current scope
need to be indexing functions.
2012-10-02 Vasiliy Fofanov <fofanov@adacore.com>
* gnat_ugn.texi: Adjust docs for overflow checks to be VMS-friendly.
2012-10-02 Vincent Celier <celier@adacore.com>
* switch-m.adb (Normalize_Compiler_Switches): Recognize switches
-gnatox and -gnatoxx when x=0/1/2/3.
From-SVN: r191960
Diffstat (limited to 'gcc/ada/switch-m.adb')
| -rw-r--r-- | gcc/ada/switch-m.adb | 32 |
1 files changed, 29 insertions, 3 deletions
diff --git a/gcc/ada/switch-m.adb b/gcc/ada/switch-m.adb index d082c90..0d769dc 100644 --- a/gcc/ada/switch-m.adb +++ b/gcc/ada/switch-m.adb @@ -236,9 +236,9 @@ package body Switch.M is -- One-letter switches when 'a' | 'A' | 'b' | 'B' | 'c' | 'C' | 'E' | 'f' | - 'F' | 'g' | 'h' | 'H' | 'I' | 'L' | 'N' | 'o' | - 'p' | 'P' | 'q' | 'Q' | 'r' | 's' | 'S' | 't' | - 'u' | 'U' | 'v' | 'x' | 'X' | 'Z' => + 'F' | 'g' | 'h' | 'H' | 'I' | 'L' | 'N' | 'p' | + 'P' | 'q' | 'Q' | 'r' | 's' | 'S' | 't' | 'u' | + 'U' | 'v' | 'x' | 'X' | 'Z' => Storing (First_Stored) := C; Add_Switch_Component (Storing (Storing'First .. First_Stored)); @@ -441,6 +441,32 @@ package body Switch.M is Add_Switch_Component (Storing (Storing'First .. Last_Stored)); + -- -gnato may be -gnatox or -gnatoxx, with x=0/1/2/3 + + when 'o' => + Last_Stored := First_Stored; + Storing (Last_Stored) := 'o'; + Ptr := Ptr + 1; + + if Ptr <= Max + and then Switch_Chars (Ptr) in '0' .. '3' + then + Last_Stored := Last_Stored + 1; + Storing (Last_Stored) := Switch_Chars (Ptr); + Ptr := Ptr + 1; + + if Ptr <= Max + and then Switch_Chars (Ptr) in '0' .. '3' + then + Last_Stored := Last_Stored + 1; + Storing (Last_Stored) := Switch_Chars (Ptr); + Ptr := Ptr + 1; + end if; + end if; + + Add_Switch_Component + (Storing (Storing'First .. Last_Stored)); + -- -gnatR may be followed by '0', '1', '2' or '3', -- then by 's' |