From 4b8b7784ed24a039d3a092ec87dd2ec3b778d9fd Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 13 Oct 2011 13:11:37 +0200 Subject: Remove default for argument Packages_To_Check. From-SVN: r179917 --- gcc/ada/prj-part.adb | 2 +- gcc/ada/prj-part.ads | 2 +- gcc/ada/prj-proc.ads | 2 ++ 3 files changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index 1c18680f..022efe3 100644 --- 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 1184c77..708142d 100644 --- 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 f7fb7ad..72ab7eb 100644 --- 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; -- cgit v1.1