diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-23 12:09:38 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-23 12:09:38 +0200 |
| commit | 0d354370f2e1b51efcf45c9241cabd0c7873b977 (patch) | |
| tree | 4cf2eac6922db590544ebbe8c49c46f4c7b45b6c /gcc/ada/prj-proc.adb | |
| parent | 85b7d482bb14e368989797ff40e6ae09dde2e820 (diff) | |
| download | gcc-0d354370f2e1b51efcf45c9241cabd0c7873b977.zip gcc-0d354370f2e1b51efcf45c9241cabd0c7873b977.tar.gz gcc-0d354370f2e1b51efcf45c9241cabd0c7873b977.tar.bz2 | |
[multiple changes]
2009-06-23 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb (Remove_Limited_With_Clause): Clean up code that handles
incomplete type declarations. Previous code was potentially quadratic
in the number of visible declarations in any package appearing in a
limited_with_clause.
2009-06-23 Robert Dewar <dewar@adacore.com>
* prj-conf.ads, prj-part.adb, prj-proc.adb, prj-proc.ads, sem_ch8.adb,
xref_lib.adb: Minor reformatting
From-SVN: r148843
Diffstat (limited to 'gcc/ada/prj-proc.adb')
| -rw-r--r-- | gcc/ada/prj-proc.adb | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index c65a286..677c5973 100644 --- a/gcc/ada/prj-proc.adb +++ b/gcc/ada/prj-proc.adb @@ -79,11 +79,11 @@ package body Prj.Proc is -- the package or project with declarations Decl. procedure Check - (In_Tree : Project_Tree_Ref; - Project : Project_Id; - Current_Dir : String; - When_No_Sources : Error_Warning; - Is_Config_File : Boolean; + (In_Tree : Project_Tree_Ref; + Project : Project_Id; + Current_Dir : String; + When_No_Sources : Error_Warning; + Is_Config_File : Boolean; Compiler_Driver_Mandatory : Boolean); -- Set all projects to not checked, then call Recursive_Check for the -- main project Project. Project is set to No_Project if errors occurred. @@ -148,11 +148,11 @@ package body Prj.Proc is -- project. type Recursive_Check_Data is record - In_Tree : Project_Tree_Ref; - Current_Dir : String_Access; - When_No_Sources : Error_Warning; - Proc_Data : Processing_Data; - Is_Config_File : Boolean; + In_Tree : Project_Tree_Ref; + Current_Dir : String_Access; + When_No_Sources : Error_Warning; + Proc_Data : Processing_Data; + Is_Config_File : Boolean; Compiler_Driver_Mandatory : Boolean; end record; -- Data passed to Recursive_Check @@ -180,7 +180,6 @@ package body Prj.Proc is elsif Str /= No_Name and then Str /= Empty_String then declare S : constant String := Get_Name_String (Str); - begin Get_Name_String (To_Exp); Add_Str_To_Name_Buffer (S); @@ -296,11 +295,12 @@ package body Prj.Proc is Data : Recursive_Check_Data; begin - Data.In_Tree := In_Tree; - Data.Current_Dir := Dir'Unchecked_Access; - Data.When_No_Sources := When_No_Sources; - Data.Is_Config_File := Is_Config_File; + Data.In_Tree := In_Tree; + Data.Current_Dir := Dir'Unchecked_Access; + Data.When_No_Sources := When_No_Sources; + Data.Is_Config_File := Is_Config_File; Data.Compiler_Driver_Mandatory := Compiler_Driver_Mandatory; + Initialize (Data.Proc_Data); Check_All_Projects (Project, Data, Imported_First => True); @@ -2310,15 +2310,15 @@ package body Prj.Proc is ---------------------------------- 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; + (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) is Obj_Dir : Path_Name_Type; @@ -2334,7 +2334,7 @@ package body Prj.Proc is if Project /= No_Project then Check (In_Tree, Project, Current_Dir, When_No_Sources, - Is_Config_File => Is_Config_File, + Is_Config_File => Is_Config_File, Compiler_Driver_Mandatory => Compiler_Driver_Mandatory); end if; @@ -2460,7 +2460,7 @@ package body Prj.Proc is (Project, Data.In_Tree, Error_Report, Data.When_No_Sources, Data.Current_Dir.all, Data.Proc_Data, Compiler_Driver_Mandatory => Data.Compiler_Driver_Mandatory, - Is_Config_File => Data.Is_Config_File); + Is_Config_File => Data.Is_Config_File); end Recursive_Check; ----------------------- |