From 3356ee073b0b29d6468464d1b4d3b26415f8cbac Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Tue, 31 Oct 2006 19:04:28 +0100 Subject: [PATCH] prj-makr.adb (Packages_To_Check_By_Gnatname): New global constant 2006-10-31 Vincent Celier * prj-makr.adb (Packages_To_Check_By_Gnatname): New global constant (Make): Call Parse with Packages_To_Check_By_Gnatname for parameter Packages_To_Check. From-SVN: r118292 --- gcc/ada/prj-makr.adb | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/gcc/ada/prj-makr.adb b/gcc/ada/prj-makr.adb index 2fedbe7b7e7..75f4589dfc3 100644 --- a/gcc/ada/prj-makr.adb +++ b/gcc/ada/prj-makr.adb @@ -47,11 +47,23 @@ with System.CRTL; package body Prj.Makr is + -- Packages of project files where unknown attributes are errors + + -- All the following need comments ??? All global variables and + -- subprograms must be fully commented. + + Naming_String : aliased String := "naming"; + + Gnatname_Packages : aliased String_List := (1 => Naming_String'Access); + + Packages_To_Check_By_Gnatname : constant String_List_Access := + Gnatname_Packages'Access; + function Dup (Fd : File_Descriptor) return File_Descriptor; procedure Dup2 (Old_Fd, New_Fd : File_Descriptor); - Gcc : constant String := "gcc"; + Gcc : constant String := "gcc"; Gcc_Path : String_Access := null; Non_Empty_Node : constant Project_Node_Id := 1; @@ -79,7 +91,7 @@ package body Prj.Makr is Table_Index_Type => Natural, Table_Low_Bound => 0, Table_Initial => 10, - Table_Increment => 10, + Table_Increment => 100, Table_Name => "Prj.Makr.Processed_Directories"); --------- @@ -172,7 +184,7 @@ package body Prj.Makr is Table_Index_Type => Natural, Table_Low_Bound => 0, Table_Initial => 50, - Table_Increment => 50, + Table_Increment => 100, Table_Name => "Prj.Makr.SFN_Pragmas"); procedure Process_Directory (Dir_Name : String; Recursively : Boolean); @@ -730,7 +742,8 @@ package body Prj.Makr is Project => Project_Node, Project_File_Name => Output_Name (1 .. Output_Name_Last), Always_Errout_Finalize => False, - Store_Comments => True); + Store_Comments => True, + Packages_To_Check => Packages_To_Check_By_Gnatname); -- Fail if parsing was not successful -- 2.30.2