Remove Packages_To_Check parameter.

From-SVN: r179918

diff --git a/gcc/ada/prj-conf.adb b/gcc/ada/prj-conf.adb
index 1514107effbf6e9d709591461cdd61553ff878ab..db8dba4ae8891ddd3d5cf994526e00a1301cc95e 100644 (file)
--- a/gcc/ada/prj-conf.adb
+++ b/gcc/ada/prj-conf.adb
@@ -1324,6 +1324,7 @@ package body Prj.Conf is
          Prj.Proc.Process_Project_Tree_Phase_1
            (In_Tree                => Project_Tree,
             Project                => Config,
+            Packages_To_Check      => Packages_To_Check,
             Success                => Success,
             From_Project_Node      => Config_Project_Node,
             From_Project_Node_Tree => Project_Node_Tree,
@@ -1465,6 +1466,7 @@ package body Prj.Conf is
       Process_Project_Tree_Phase_1
         (In_Tree                => Project_Tree,
          Project                => Main_Project,
+         Packages_To_Check      => Packages_To_Check,
          Success                => Success,
          From_Project_Node      => User_Project_Node,
          From_Project_Node_Tree => Project_Node_Tree,

diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb
index f2d289f5c3872ba76c2a60af5ef621a3bd28893c..b76a77f1066f39053725a6ff1ff321c5651ac665 100644 (file)
--- a/gcc/ada/prj-pars.adb
+++ b/gcc/ada/prj-pars.adb
@@ -43,7 +43,7 @@ package body Prj.Pars is
      (In_Tree           : Project_Tree_Ref;
       Project           : out Project_Id;
       Project_File_Name : String;
-      Packages_To_Check : String_List_Access := All_Packages;
+      Packages_To_Check : String_List_Access;
       Reset_Tree        : Boolean := True;
       In_Node_Tree      : Prj.Tree.Project_Node_Tree_Ref := null;
       Env               : in out Prj.Tree.Environment)

diff --git a/gcc/ada/prj-pars.ads b/gcc/ada/prj-pars.ads
index fb424a900338640b881ca347f04091cad096007c..23f3347d7002370a785c8a0d00bebeb6b6f85db0 100644 (file)
--- a/gcc/ada/prj-pars.ads
+++ b/gcc/ada/prj-pars.ads
@@ -36,7 +36,7 @@ package Prj.Pars is
      (In_Tree           : Project_Tree_Ref;
       Project           : out Project_Id;
       Project_File_Name : String;
-      Packages_To_Check : String_List_Access := All_Packages;
+      Packages_To_Check : String_List_Access;
       Reset_Tree        : Boolean := True;
       In_Node_Tree      : Prj.Tree.Project_Node_Tree_Ref := null;
       Env               : in out Prj.Tree.Environment);