diff options
Diffstat (limited to 'a4g-contt.ads-patch')
-rw-r--r-- | a4g-contt.ads-patch | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/a4g-contt.ads-patch b/a4g-contt.ads-patch new file mode 100644 index 000000000000..0b582a189ef1 --- /dev/null +++ b/a4g-contt.ads-patch @@ -0,0 +1,70 @@ +--- 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 -- + |