OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Doug Rupp 2005-03-15 17:02:05 +01:00 committed by Arnaud Charlet
parent 6e40e48148
commit 454ff542f8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/ada/gnatchop.adb
View File

@ -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;