diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 09:16:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 09:16:31 +0000 |
| commit | 4eafea4c70890f237b2331faf5fa43dbb27bfbdd (patch) | |
| tree | 50fe25cb1308810069cefd58d6ccb0397db77aaa /gcc/ada/prj-proc.ads | |
| parent | 189243d59e89001449ec294fa1ff7816c7ef68f3 (diff) | |
| download | ppe42-gcc-4eafea4c70890f237b2331faf5fa43dbb27bfbdd.tar.gz ppe42-gcc-4eafea4c70890f237b2331faf5fa43dbb27bfbdd.zip | |
2009-07-13 Emmanuel Briot <briot@adacore.com>
* prj-proc.adb, prj-proc.ads, prj.ads, prj-nmsc.adb, prj-nmsc.ads,
prj-pars.adb, prj-conf.adb, prj-conf.ads: Remove all remaining global
variables and tables in prj-nmsc.adb.
(Tree_Processing_Data): Renames Processing_Data, some new fields added
(Project_Processing_Data): New record
Simplify/unify check for missing sources.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149558 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-proc.ads')
| -rw-r--r-- | gcc/ada/prj-proc.ads | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/gcc/ada/prj-proc.ads b/gcc/ada/prj-proc.ads index ae69d968ff6..7be4382a7a1 100644 --- a/gcc/ada/prj-proc.ads +++ b/gcc/ada/prj-proc.ads @@ -58,17 +58,17 @@ package Prj.Proc is -- project table before processing. procedure Process_Project_Tree_Phase_2 - (In_Tree : Project_Tree_Ref; - Project : Project_Id; - 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; - Is_Config_File : Boolean; - Compiler_Driver_Mandatory : Boolean; - Allow_Duplicate_Basenames : Boolean); + (In_Tree : Project_Tree_Ref; + Project : Project_Id; + 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); -- 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 @@ -78,8 +78,6 @@ package Prj.Proc is -- -- Current_Dir is for optimization purposes, avoiding extra system calls. -- - -- Is_Config_File should be true if Project is a config file (.cgpr) - -- -- 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) @@ -93,8 +91,7 @@ package Prj.Proc is Report_Error : Put_Line_Access; When_No_Sources : Error_Warning := Error; Reset_Tree : Boolean := True; - Current_Dir : String := ""; - Is_Config_File : Boolean); + Current_Dir : String := ""); -- Performs the two phases of the processing end Prj.Proc; |
