Commit 4b8b7784 by Arnaud Charlet

Remove default for argument Packages_To_Check.

From-SVN: r179917
parent 0626faca
...@@ -443,7 +443,7 @@ package body Prj.Part is ...@@ -443,7 +443,7 @@ package body Prj.Part is
Project : out Project_Node_Id; Project : out Project_Node_Id;
Project_File_Name : String; Project_File_Name : String;
Errout_Handling : Errout_Mode := Always_Finalize; Errout_Handling : Errout_Mode := Always_Finalize;
Packages_To_Check : String_List_Access := All_Packages; Packages_To_Check : String_List_Access;
Store_Comments : Boolean := False; Store_Comments : Boolean := False;
Current_Directory : String := ""; Current_Directory : String := "";
Is_Config_File : Boolean; Is_Config_File : Boolean;
......
...@@ -42,7 +42,7 @@ package Prj.Part is ...@@ -42,7 +42,7 @@ package Prj.Part is
Project : out Project_Node_Id; Project : out Project_Node_Id;
Project_File_Name : String; Project_File_Name : String;
Errout_Handling : Errout_Mode := Always_Finalize; Errout_Handling : Errout_Mode := Always_Finalize;
Packages_To_Check : String_List_Access := All_Packages; Packages_To_Check : String_List_Access;
Store_Comments : Boolean := False; Store_Comments : Boolean := False;
Current_Directory : String := ""; Current_Directory : String := "";
Is_Config_File : Boolean; Is_Config_File : Boolean;
......
...@@ -34,6 +34,7 @@ package Prj.Proc is ...@@ -34,6 +34,7 @@ package Prj.Proc is
procedure Process_Project_Tree_Phase_1 procedure Process_Project_Tree_Phase_1
(In_Tree : Project_Tree_Ref; (In_Tree : Project_Tree_Ref;
Project : out Project_Id; Project : out Project_Id;
Packages_To_Check : String_List_Access;
Success : out Boolean; Success : out Boolean;
From_Project_Node : Project_Node_Id; From_Project_Node : Project_Node_Id;
From_Project_Node_Tree : Project_Node_Tree_Ref; From_Project_Node_Tree : Project_Node_Tree_Ref;
...@@ -68,6 +69,7 @@ package Prj.Proc is ...@@ -68,6 +69,7 @@ package Prj.Proc is
procedure Process procedure Process
(In_Tree : Project_Tree_Ref; (In_Tree : Project_Tree_Ref;
Project : out Project_Id; Project : out Project_Id;
Packages_To_Check : String_List_Access;
Success : out Boolean; Success : out Boolean;
From_Project_Node : Project_Node_Id; From_Project_Node : Project_Node_Id;
From_Project_Node_Tree : Project_Node_Tree_Ref; From_Project_Node_Tree : Project_Node_Tree_Ref;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment