2009-07-13 Emmanuel Briot <briot@adacore.com>

	* gnatcmd.adb, prj-proc.adb, prj-proc.ads, make.adb, prj-part.adb,
	prj.adb, prj.ads, clean.adb, prj-nmsc.adb, prj-nmsc.ads, prj-pars.adb,
	prj-pars.ads, prj-conf.adb, prj-conf.ads, prj-env.adb, prj-tree.adb,
	prj-tree.ads: Minor reformatting.
	(Processing_Flags): new record to encapsulate the set of common
	parameters to several subprograms in the project manager.
	(Prj.Nmsc.Process_Naming_Scheme): renames Check, and moved to body
	Remove the need for the Current_Dir parameter in subprograms.
	(Look_For_Sources): minor refactoring, now that we no longer need to
	share subprograms between the two Ada_Only and Multi_Language modes
	(Processing_Flags): New field Error_On_Unknown_Language.
	Merge tests for library project between gnatmake and gprbuild.



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

1 files changed, 4 insertions, 23 deletions

diff --git a/gcc/ada/prj-proc.ads b/gcc/ada/prj-proc.ads
index 7be4382a7a1..4231b4ef961 100644
--- a/gcc/ada/prj-proc.ads
+++ b/gcc/ada/prj-proc.ads
@@ -37,7 +37,7 @@ package Prj.Proc is
       Success                : out Boolean;
       From_Project_Node      : Project_Node_Id;
       From_Project_Node_Tree : Project_Node_Tree_Ref;
-      Report_Error           : Put_Line_Access;
+      Flags                  : Prj.Processing_Flags;
       Reset_Tree             : Boolean := True);
    --  Process a project tree (ie the direct resulting of parsing a .gpr file)
    --  based on the current scenario variables.
@@ -48,12 +48,6 @@ package Prj.Proc is
    --  needed to automatically generate a configuration file. This first phase
    --  of the processing does not require a configuration file.
    --
-   --  If Report_Error is null, use the error reporting mechanism. Otherwise,
-   --  report errors using Report_Error.
-   --
-   --  When_No_Sources indicates what should be done when no sources are found
-   --  in a project for a specified or implied language.
-   --
    --  When Reset_Tree is True, all the project data are removed from the
    --  project table before processing.
 
@@ -63,24 +57,13 @@ package Prj.Proc is
       Success                    : out Boolean;
       From_Project_Node          : Project_Node_Id;
       From_Project_Node_Tree     : Project_Node_Tree_Ref;
-      Report_Error               : Put_Line_Access;
-      When_No_Sources            : Error_Warning := Error;
-      Current_Dir                : String;
-      Require_Sources_Other_Lang : Boolean;
-      Compiler_Driver_Mandatory  : Boolean;
-      Allow_Duplicate_Basenames  : Boolean);
+      Flags                      : Processing_Flags);
    --  Perform the second phase of the processing, filling the rest of the
    --  project with the information extracted from the project tree. This phase
    --  requires that the configuration file has already been parsed (in fact
    --  we currently assume that the contents of the configuration file has
    --  been included in Project through Confgpr.Apply_Config_File). The
    --  parameters are the same as for phase_1, with the addition of:
-   --
-   --  Current_Dir is for optimization purposes, avoiding extra system calls.
-   --
-   --  If Allow_Duplicate_Basenames, then files with the same base names are
-   --  authorized within a project for source-based languages (never for unit
-   --  based languages)
 
    procedure Process
      (In_Tree                : Project_Tree_Ref;
@@ -88,10 +71,8 @@ package Prj.Proc is
       Success                : out Boolean;
       From_Project_Node      : Project_Node_Id;
       From_Project_Node_Tree : Project_Node_Tree_Ref;
-      Report_Error           : Put_Line_Access;
-      When_No_Sources        : Error_Warning := Error;
-      Reset_Tree             : Boolean := True;
-      Current_Dir            : String := "");
+      Flags                  : Processing_Flags;
+      Reset_Tree             : Boolean       := True);
    --  Performs the two phases of the processing
 
 end Prj.Proc;