diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:36:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:36:45 +0000 |
| commit | 0335e9e043977a9c493cc3b5b130c0740ad3aae8 (patch) | |
| tree | 21c6aed88c4d5ed4dfbc700b0cbb33b914758de6 /gcc/ada/switch.adb | |
| parent | 84d0d4a52f7446c35fd0bb186facaf4a13bc7ac8 (diff) | |
| download | gcc-0335e9e043977a9c493cc3b5b130c0740ad3aae8.tar.gz | |
2006-02-13 Robert Dewar <dewar@adacore.com>
Vincent Celier <celier@adacore.com>
* debug.adb: Eliminate numeric switches for binder/gnatmake
* switch-m.adb (Normalize_Compiler_Switches): Record numeric debug
switches for the compiler.
(Scan_Make_Switches): Do not allow numeric debug switches for gnatmake
(Scan_Make_Switches): When failing with an illegal switch, output an
error message with the full switch.
Eliminate numeric switches for binder/gnatmake
* switch.ads, switch.adb (Bad_Switch): New procedure
* switch-b.adb (Scan_Binder_Switches): Do not accept combined switches.
Remove 0-9 as debug flag character possibilities
-d is now controlling the primary stack size when its value is a
positive. Also add checks against invalid values, and support for kb,
mb. Ditto for -D switch.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111053 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/switch.adb')
| -rw-r--r-- | gcc/ada/switch.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/switch.adb b/gcc/ada/switch.adb index 048678bd19f..7692f589f98 100644 --- a/gcc/ada/switch.adb +++ b/gcc/ada/switch.adb @@ -37,6 +37,11 @@ package body Switch is Osint.Fail ("invalid switch: ", (1 => Switch)); end Bad_Switch; + procedure Bad_Switch (Switch : String) is + begin + Osint.Fail ("invalid switch: ", Switch); + end Bad_Switch; + ------------------------- -- Is_Front_End_Switch -- ------------------------- @@ -63,7 +68,6 @@ package body Switch is and then Switch_Chars (Switch_Chars'First) = '-'; end Is_Switch; - ------------------------ -------------- -- Scan_Nat -- -------------- |