makegpr.adb (Link_Executables): Do not fail when the root project has no sources...

2007-09-26  Vincent Celier  <celier@adacore.com>

	* makegpr.adb (Link_Executables): Do not fail when the root project has
	no sources, but is an extending project.

From-SVN: r128809

diff --git a/gcc/ada/makegpr.adb b/gcc/ada/makegpr.adb
index 954a4d787be3caef04c5385fe80fff9f7ab1cf3c..4548916aee31775fba156e33a4997130947ab098 100644 (file)
--- a/gcc/ada/makegpr.adb
+++ b/gcc/ada/makegpr.adb
@@ -3804,8 +3804,9 @@ package body Makegpr is
 
          --  Only Ada sources in the main project, and even maybe not
 
-         if not Data.Langs (Ada_Language_Index) then
-
+         if Data.Extends = No_Project and then
+           not Data.Langs (Ada_Language_Index)
+         then
             --  Fail if the main project has no source of any language
 
             Osint.Fail