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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138398 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb
index 1755ade..a0a909d 100644 (file)
--- a/gcc/ada/makeutl.adb
+++ b/gcc/ada/makeutl.adb
@@ -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;
 
    ----------