diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 18:59:45 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 18:59:45 +0100 |
| commit | 64c69860aa9a0a0fda1017d597f6fa5db5ba9e4e (patch) | |
| tree | 325aebf90d3f552916c4782ec974ee0fa609808e /gcc/ada/gnatcmd.adb | |
| parent | 5b8b9057447820207979224e4aa151b2a6d19d00 (diff) | |
| download | gcc-64c69860aa9a0a0fda1017d597f6fa5db5ba9e4e.tar.gz | |
gnatcmd.adb (Process_Link): Use Osint.Executable_Name instead of handling executable extension manually and...
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
From-SVN: r118276
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 628a11a0d40..8eb1563b352 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -871,8 +871,8 @@ procedure GNATCmd is Last_Switches.Table (Last_Switches.Last) := new String'(Name_Buffer (1 .. Name_Len) & Directory_Separator & - Base_Name (Arg (Arg'First .. Last)) & - Get_Executable_Suffix.all); + Executable_Name + (Base_Name (Arg (Arg'First .. Last)))); exit; end if; end if; |