prj-proc.adb, [...] (Load_Naming_Exceptions): New subprogram.

2009-04-22  Emmanuel Briot  <briot@adacore.com>

	* prj-proc.adb, prj-nmsc.adb (Load_Naming_Exceptions): New subprogram.
	Minor refactoring to reduce the size of
	Process_Sources_In_Multi_Language_Mode.
	Avoid extra copied of Source_Data, which we found in the past could be
	quite slow.
	(Mark_Excluded_Sources): new subprogram.
	(Remove_Locally_Removed_Files_From_Units): merged into the above
 	Refactors Process_Sources_In_Multi_Language_Mode to reduce its size,
 	and allow better sharing of code between multi_lang and ada_only modes
	(Project_Extends): removed, since exact duplicate of Prj.Is_Extending

From-SVN: r146565

gcc/ada/ChangeLog

 2009-04-22  Emmanuel Briot  <briot@adacore.com>
 
+	* prj-proc.adb, prj-nmsc.adb (Load_Naming_Exceptions): New subprogram.
+	Minor refactoring to reduce the size of
+	Process_Sources_In_Multi_Language_Mode.
+	Avoid extra copied of Source_Data, which we found in the past could be
+	quite slow.
+	(Mark_Excluded_Sources): new subprogram.
+	(Remove_Locally_Removed_Files_From_Units): merged into the above
+ 	Refactors Process_Sources_In_Multi_Language_Mode to reduce its size,
+ 	and allow better sharing of code between multi_lang and ada_only modes
+	(Project_Extends): removed, since exact duplicate of Prj.Is_Extending
+
+2009-04-22  Emmanuel Briot  <briot@adacore.com>
+
 	* prj-proc.adb, prj.adb, prj.ads (Project_Data.First_Referred_By):
 	Removed, since unused.
 

gcc/ada/prj-proc.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2001-2008, Free Software Foundation, Inc.         --
+--          Copyright (C) 2001-2009, 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- --
@@ -2632,6 +2632,7 @@ package body Prj.Proc is
                declare
                   New_Project : Project_Id;
                   New_Data    : Project_Data;
+                  pragma Unreferenced (New_Data);
                   Proj_Node   : Project_Node_Id;
 
                begin
@@ -2834,6 +2835,7 @@ package body Prj.Proc is
                declare
                   New_Project : Project_Id;
                   New_Data    : Project_Data;
+                  pragma Unreferenced (New_Data);
                   Proj_Node   : Project_Node_Id;
 
                begin