OSDN Git Service

2005-03-29 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:16:42 +0000 (16:16 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:16:42 +0000 (16:16 +0000)
* make.adb (Gnatmake): Don't fail if the main project file is declared
as having no Ada sources. Do not display message "no sources to
compile" in quiet output.

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

gcc/ada/make.adb

index 9c11556..563b772 100644 (file)
@@ -3931,10 +3931,20 @@ package body Make is
                         All_Projects => Unique_Compile_All_Projects,
                         Into_Q       => False);
 
-                     --  If there are no sources to compile, we fail
+                     --  If no sources to compile, then there is nothing to do
 
                      if Osint.Number_Of_Files = 0 then
-                        Make_Failed ("no sources to compile");
+                        if not Debug.Debug_Flag_N then
+                           Delete_Mapping_Files;
+                           Prj.Env.Delete_All_Path_Files (Project_Tree);
+                        end if;
+
+                        if not Quiet_Output then
+                           Osint.Write_Program_Name;
+                           Write_Line (": no sources to compile");
+                        end if;
+
+                        Exit_Program (E_Success);
                      end if;
                   end if;