Remove default for argument Packages_To_Check.

From-SVN: r179917

diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb
index 1c18680fbe8971145a44f8a85891bc498194375a..022efe3c80bfbe36cf1c82b0f74a3d0dbf5e99a1 100644 (file)
--- a/gcc/ada/prj-part.adb
+++ b/gcc/ada/prj-part.adb
@@ -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;

diff --git a/gcc/ada/prj-part.ads b/gcc/ada/prj-part.ads
index 1184c77a08d87ea3d761006969d46f96a09a884b..708142ddb27dfe16a6d9aa599d331e97e073a451 100644 (file)
--- a/gcc/ada/prj-part.ads
+++ b/gcc/ada/prj-part.ads
@@ -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;

diff --git a/gcc/ada/prj-proc.ads b/gcc/ada/prj-proc.ads
index f7fb7ad1411be3c3c9e3caa63b48260d3257f45b..72ab7eb919d695970ab7ac1d01091d415c28ce97 100644 (file)
--- a/gcc/ada/prj-proc.ads
+++ b/gcc/ada/prj-proc.ads
@@ -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;