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

makeutl.adb (Executable_Prefix_Path): If Locate_Exec_On_Path fails...

Browse Source 
2008-07-31  Vincent Celier  <celier@adacore.com>

	* makeutl.adb (Executable_Prefix_Path): If Locate_Exec_On_Path fails,
	return the empty string, instead of raising Constraint_Error.

From-SVN: r138398
This commit is contained in:
Vincent Celier 2008-07-31 14:46:11 +02:00 committed by Arnaud Charlet
parent 9cc98b79b1
commit 67d7b0ab5f
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/makeutl.adb
View File

@ -246,7 +246,17 @@ package body Makeutl is
-- If we get here, the user has typed the executable name with no
-- directory prefix.
return Get_Install_Dir (Locate_Exec_On_Path (Exec_Name).all);
declare
Path : constant String_Access := Locate_Exec_On_Path (Exec_Name);
begin
if Path = null then
return "";
else
return Get_Install_Dir (Path.all);
end if;
end;
end Executable_Prefix_Path;
----------