diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-02 12:39:39 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-02 12:39:39 +0000 |
| commit | 2fb581a932680f7c9031a388d83fd9461ae5aff7 (patch) | |
| tree | 3fc3c7221a155722969c9d76ed30e1b1127f4ad2 /gcc/ada/gnatcmd.adb | |
| parent | c643c550aace860f7d2ab17015f684444cb88c53 (diff) | |
| download | gcc-2fb581a932680f7c9031a388d83fd9461ae5aff7.tar.gz | |
2008-06-02 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r136272
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@136278 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 |