OSDN Git Service

Remove default for argument Packages_To_Check.
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 13 Oct 2011 11:11:37 +0000 (11:11 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 13 Oct 2011 11:11:37 +0000 (11:11 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179917 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/prj-part.adb
gcc/ada/prj-part.ads
gcc/ada/prj-proc.ads

index 1c18680..022efe3 100644 (file)
@@ -443,7 +443,7 @@ package body Prj.Part is
       Project           : out Project_Node_Id;
       Project_File_Name : String;
       Errout_Handling   : Errout_Mode := Always_Finalize;
-      Packages_To_Check : String_List_Access := All_Packages;
+      Packages_To_Check : String_List_Access;
       Store_Comments    : Boolean := False;
       Current_Directory : String := "";
       Is_Config_File    : Boolean;
index 1184c77..708142d 100644 (file)
@@ -42,7 +42,7 @@ package Prj.Part is
       Project           : out Project_Node_Id;
       Project_File_Name : String;
       Errout_Handling   : Errout_Mode := Always_Finalize;
-      Packages_To_Check : String_List_Access := All_Packages;
+      Packages_To_Check : String_List_Access;
       Store_Comments    : Boolean := False;
       Current_Directory : String := "";
       Is_Config_File    : Boolean;
index f7fb7ad..72ab7eb 100644 (file)
@@ -34,6 +34,7 @@ package Prj.Proc is
    procedure Process_Project_Tree_Phase_1
      (In_Tree                : Project_Tree_Ref;
       Project                : out Project_Id;
+      Packages_To_Check      : String_List_Access;
       Success                : out Boolean;
       From_Project_Node      : Project_Node_Id;
       From_Project_Node_Tree : Project_Node_Tree_Ref;
@@ -68,6 +69,7 @@ package Prj.Proc is
    procedure Process
      (In_Tree                : Project_Tree_Ref;
       Project                : out Project_Id;
+      Packages_To_Check      : String_List_Access;
       Success                : out Boolean;
       From_Project_Node      : Project_Node_Id;
       From_Project_Node_Tree : Project_Node_Tree_Ref;