1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
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 --
|