diff options
| author | Doug Rupp <rupp@adacore.com> | 2005-03-15 17:02:05 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-15 17:02:05 +0100 |
| commit | 454ff542f82f1320a05f8423691bf9a9890b21d3 (patch) | |
| tree | e17b1c8a979b4b4b507721aa32c95be631698232 /gcc/ada | |
| parent | 6e40e4814884d3e9243ce4b58ad7d92e2606cfe3 (diff) | |
| download | gcc-454ff542f82f1320a05f8423691bf9a9890b21d3.zip gcc-454ff542f82f1320a05f8423691bf9a9890b21d3.tar.gz gcc-454ff542f82f1320a05f8423691bf9a9890b21d3.tar.bz2 | |
gnatchop.adb (Locate_Executable): Normalize the possibly VMS style Command_Name.
2005-03-08 Doug Rupp <rupp@adacore.com>
* gnatchop.adb (Locate_Executable): Normalize the possibly VMS style
Command_Name.
From-SVN: r96498
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/gnatchop.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index a6b12e5..a7c6570 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -521,17 +521,19 @@ procedure Gnatchop is function Locate_Executable (Program_Name : String; - Look_For_Prefix : Boolean := True) - return String_Access + Look_For_Prefix : Boolean := True) return String_Access is - Current_Command : constant String := Command_Name; - End_Of_Prefix : Natural := Current_Command'First - 1; - Start_Of_Prefix : Positive := Current_Command'First; + Current_Command : constant String := Normalize_Pathname (Command_Name); + End_Of_Prefix : Natural; + Start_Of_Prefix : Positive; Result : String_Access; begin + Start_Of_Prefix := Current_Command'First; + End_Of_Prefix := Start_Of_Prefix - 1; if Look_For_Prefix then + -- Find Start_Of_Prefix for J in reverse Current_Command'Range loop @@ -546,8 +548,6 @@ procedure Gnatchop is -- Find End_Of_Prefix - End_Of_Prefix := Start_Of_Prefix - 1; - for J in reverse Start_Of_Prefix .. Current_Command'Last loop if Current_Command (J) = '-' then End_Of_Prefix := J; |