diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 18:04:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 18:04:28 +0000 |
| commit | 0eeabc1eee6fce2ff7cfd9eadcab88393d9f0933 (patch) | |
| tree | 63465c8ad006c4484b02232725c9b09ff904c998 /gcc/ada/prj-makr.adb | |
| parent | 5efbcf9b2a1a37e98fddbe3b418c9e69b247138c (diff) | |
| download | gcc-0eeabc1eee6fce2ff7cfd9eadcab88393d9f0933.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118292 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-makr.adb')
| -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 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 |