make.adb (Gnatmake): Do not fail when the main project has no object directory.

	* make.adb (Gnatmake): Do not fail when the main project has no object
	directory.

From-SVN: r94817

gcc/ada/make.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -4079,12 +4079,10 @@ package body Make is
 
       if Main_Project /= No_Project then
 
-         if Projects.Table (Main_Project).Object_Directory = No_Name then
-            Make_Failed ("no sources to compile");
-         end if;
+         if Projects.Table (Main_Project).Object_Directory /= No_Name then
 
-         --  Change the current directory to the object directory of the main
-         --  project.
+            --  Change the current directory to the object directory of
+            --  the main project.
 
             begin
                Project_Object_Directory := No_Project;
@@ -4100,7 +4098,9 @@ package body Make is
                      Parent : constant Dir_Name_Str :=
                                 Dir_Name
                                   (Get_Name_String
-                           (Projects.Table (Main_Project).Object_Directory));
+                                     (Projects.Table
+                                        (Main_Project).Object_Directory));
+
                      Dir  : Dir_Type;
                      Str  : String (1 .. 200);
                      Last : Natural;
@@ -4131,11 +4131,13 @@ package body Make is
                         end if;
                   end;
 
-               Make_Failed ("unable to change working directory to """,
+                  Make_Failed
+                    ("unable to change working directory to """,
                      Get_Name_String
                        (Projects.Table (Main_Project).Object_Directory),
                      """");
             end;
+         end if;
 
          --  Source file lookups should be cached for efficiency.
          --  Source files are not supposed to change.