diff options
| author | Vincent Celier <celier@adacore.com> | 2006-10-31 19:04:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:04:28 +0100 |
| commit | 3356ee073b0b29d6468464d1b4d3b26415f8cbac (patch) | |
| tree | 63465c8ad006c4484b02232725c9b09ff904c998 | |
| parent | aa1c3df226c522b458909d4be42f9417990a21a1 (diff) | |
| download | gcc-3356ee073b0b29d6468464d1b4d3b26415f8cbac.zip gcc-3356ee073b0b29d6468464d1b4d3b26415f8cbac.tar.gz gcc-3356ee073b0b29d6468464d1b4d3b26415f8cbac.tar.bz2 | |
prj-makr.adb (Packages_To_Check_By_Gnatname): New global constant
2006-10-31 Vincent Celier <celier@adacore.com>
* 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
| -rw-r--r-- | gcc/ada/prj-makr.adb | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/gcc/ada/prj-makr.adb b/gcc/ada/prj-makr.adb index 2fedbe7..75f4589 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 |