diff options
Diffstat (limited to 'a4g-contt.ads-patch')
| -rw-r--r-- | a4g-contt.ads-patch | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/a4g-contt.ads-patch b/a4g-contt.ads-patch deleted file mode 100644 index 0b582a189ef1..000000000000 --- a/a4g-contt.ads-patch +++ /dev/null @@ -1,70 +0,0 @@ ---- asis-gpl-2017-src/asis/a4g-contt.ads -+++ asis-gpl-2017-src-new/asis/a4g-contt.ads -@@ -387,34 +387,34 @@ - Table_Index_Type => Int, - Table_Low_Bound => 0, - Table_Initial => Alloc.Name_Chars_Initial, -- Table_Increment => Alloc.Name_Chars_Increment, -- Table_Name => "A_Name_Chars"); -+ Table_Increment => Alloc.Name_Chars_Increment); -+-- Table_Name => "A_Name_Chars"); - - package Unit_Table is new GNAT.Table ( - Table_Component_Type => A4G.Unit_Rec.Unit_Record, - Table_Index_Type => A4G.A_Types.Unit_Id, - Table_Low_Bound => A4G.A_Types.First_Unit_Id, - Table_Initial => A4G.A_Alloc.Alloc_ASIS_Units_Initial, -- Table_Increment => A4G.A_Alloc.Alloc_ASIS_Units_Increment, -- Table_Name => "ASIS_Compilation_Units"); -+ Table_Increment => A4G.A_Alloc.Alloc_ASIS_Units_Increment); -+-- Table_Name => "ASIS_Compilation_Units"); - - package Tree_Table is new GNAT.Table ( - Table_Component_Type => A4G.Tree_Rec.Tree_Record, - Table_Index_Type => A4G.A_Types.Tree_Id, - Table_Low_Bound => A4G.A_Types.First_Tree_Id, - Table_Initial => A4G.A_Alloc.Alloc_ASIS_Trees_Initial, -- Table_Increment => A4G.A_Alloc.Alloc_ASIS_Trees_Increment, -- Table_Name => "ASIS_Trees"); -+ Table_Increment => A4G.A_Alloc.Alloc_ASIS_Trees_Increment); -+-- Table_Name => "ASIS_Trees"); - - subtype Directory_List_Ptr is Argument_List_Access; - subtype Tree_File_List_Ptr is Argument_List_Access; - -- type Saved_Context is record -- Context_Name_Chars : A_Name_Chars.Saved_Table; -- Context_Unit_Lists : A4G.A_Elists.Saved_Lists; -- Units : Unit_Table.Saved_Table; -- Trees : Tree_Table.Saved_Table; -- end record; -+-- type Saved_Context is record -+-- Context_Name_Chars : A_Name_Chars.Saved_Table; -+-- Context_Unit_Lists : A4G.A_Elists.Saved_Lists; -+-- Units : Unit_Table.Saved_Table; -+-- Trees : Tree_Table.Saved_Table; -+-- end record; - - -------------------- - -- Context Record -- -@@ -502,7 +502,7 @@ - - Context_Tree_Files : Tree_File_List_Ptr; - -- Back_Up : Saved_Context; -+-- Back_Up : Saved_Context; - - Mode : Context_Mode := All_Trees; - Tree_Processing : Tree_Mode := Pre_Created; -@@ -523,8 +523,8 @@ - Table_Index_Type => Context_Id, - Table_Low_Bound => First_Context_Id, - Table_Initial => Alloc_Contexts_Initial, -- Table_Increment => Alloc_Contexts_Increment, -- Table_Name => "ASIS_Contexts"); -+ Table_Increment => Alloc_Contexts_Increment); -+-- Table_Name => "ASIS_Contexts"); - - ------------------------------------------------------ - -- "Back-Up" Name Buffer for NB_Save and NB_Restore -- - |