diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 17:59:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 17:59:45 +0000 |
| commit | 4e3d59b946d70c2eaa5cb7eee47acdd16f07ae15 (patch) | |
| tree | 325aebf90d3f552916c4782ec974ee0fa609808e /gcc/ada/switch-m.adb | |
| parent | 4ae1e6f7f33111aafa2b9c7f7c7f4e6ade5869e1 (diff) | |
| download | gcc-4e3d59b946d70c2eaa5cb7eee47acdd16f07ae15.tar.gz | |
2006-10-31 Arnaud Charlet <charlet@adacore.com>
Robert Dewar <dewar@adacore.com>
* gnatcmd.adb (Process_Link): Use Osint.Executable_Name instead of
handling executable extension manually and duplicating code.
* make.adb: Implement new -S switch
(Gnatmake): Use new function Osint.Executable_Name instead
of handling executable extension manually.
* prj-util.adb (Executable_Of): Make sure that if an Executable_Suffix
is specified, the executable name ends with this suffix.
Take advantage of Osint.Executable_Name instead of duplicating code.
* switch-m.adb: Recognize new gnatmake -S switch
* targparm.ads, targparm.adb (Executable_Extension_On_Target): New
variable.
(Get_Target_Parameters): Set Executable_Extension_On_Target if
available.
* makeusg.adb: Add line for gnatmake -S switch
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118276 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/switch-m.adb')
| -rw-r--r-- | gcc/ada/switch-m.adb | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/switch-m.adb b/gcc/ada/switch-m.adb index b193a112fa8..dc3fe569356 100644 --- a/gcc/ada/switch-m.adb +++ b/gcc/ada/switch-m.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -471,7 +471,6 @@ package body Switch.M is if Last = 0 then return (1 .. 0 => null); - else return Global_Switches (Global_Switches'First .. Last); end if; @@ -594,13 +593,13 @@ package body Switch.M is case Switch_Chars (Ptr) is - -- processing for eI switch + -- Processing for eI switch when 'I' => Ptr := Ptr + 1; Scan_Pos (Switch_Chars, Max, Ptr, Main_Index, C); - -- processing for eL switch + -- Processing for eL switch when 'L' => Ptr := Ptr + 1; @@ -702,6 +701,12 @@ package body Switch.M is Ptr := Ptr + 1; Check_Switches := True; + -- Processing for S switch + + when 'S' => + Ptr := Ptr + 1; + Commands_To_Stdout := True; + -- Processing for v switch when 'v' => |