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

makegpr.adb (Link_Executables): Do not fail when the root project has no sources, but is an extending project. 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

makegpr.adb (Link_Executables): Do not fail when the root project has no…
makegpr.adb (Link_Executables): Do not fail when the root project has no sources, but is an extending project. 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
43943e40 · Vincent Celier · Arnaud Charlet · 7954ad60 · 43943e40
Commit 43943e40 authored Sep 26, 2007 by Vincent Celier Committed by Arnaud Charlet Sep 26, 2007
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

gcc/ada/makegpr.adb
+3 -2

No files found.
--- 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