diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-29 08:56:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-29 08:56:01 +0000 |
| commit | 086161d0e63327d328ff3b96d1707f28ec81c2b7 (patch) | |
| tree | cb52e4a743dca38df679be386ba0c94ca39728f9 /gcc/ada/gnatcmd.adb | |
| parent | 64f7f579ebc1d607b685a456d0732969673cbc39 (diff) | |
| download | gcc-086161d0e63327d328ff3b96d1707f28ec81c2b7.tar.gz | |
PR ada/864
* osint.ads, osint.adb (Program_Name): New parameter "Prog" to
allow recognition of program suffix in addition to prefix.
* gnatchop.adb (Locate_Executable): Add support for prefix.
* make.adb, gnatcmd.adb, gnatlink.adb, prj-makr.adb,
mlib-utl.adb: Adjust calls to Program_Name.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136149 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 2b0c6c4add2..c75931a42d5 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -787,7 +787,7 @@ procedure GNATCmd is Name : Path_Name_Type; -- Path of the file FD - GN_Name : constant String := Program_Name ("gnatmake").all; + GN_Name : constant String := Program_Name ("gnatmake", "gnat").all; -- Name for gnatmake GN_Path : constant String_Access := Locate_Exec_On_Path (GN_Name); @@ -1345,7 +1345,7 @@ procedure GNATCmd is if C = Stack then Put (Command_List (C).Unixcmd.all); else - Put (Program_Name (Command_List (C).Unixcmd.all).all); + Put (Program_Name (Command_List (C).Unixcmd.all, "gnat").all); end if; declare @@ -1581,7 +1581,7 @@ begin else Program := - Program_Name (Command_List (The_Command).Unixcmd.all); + Program_Name (Command_List (The_Command).Unixcmd.all, "gnat"); end if; -- Locate the executable for the command |