blob: db9ebb8f496ab5445847443cfa95e8315b563250 (
plain)
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
|
--- asis-gpl-2017-src/asis/a4g-contt.adb
+++ asis-gpl-2017-src-new/asis/a4g-contt.adb
@@ -1938,16 +1938,18 @@
procedure Restore_Context (C : Context_Id) is
begin
pragma Assert (C in Contexts.First .. Contexts.Last);
- A_Name_Chars.Restore
- (Contexts.Table (C).Back_Up.Context_Name_Chars);
- Unit_Table.Restore (Contexts.Table (C).Back_Up.Units);
- Tree_Table.Restore (Contexts.Table (C).Back_Up.Trees);
+
+ raise Program_Error with "Restore_Context is not implemented";
+-- A_Name_Chars.Restore
+-- (Contexts.Table (C).Back_Up.Context_Name_Chars);
+-- Unit_Table.Restore (Contexts.Table (C).Back_Up.Units);
+-- Tree_Table.Restore (Contexts.Table (C).Back_Up.Trees);
-- restoring lists tables:
- A4G.A_Elists.Elmts.Restore
- (Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elmts);
- A4G.A_Elists.Elists.Restore
- (Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elists);
+-- A4G.A_Elists.Elmts.Restore
+-- (Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elmts);
+-- A4G.A_Elists.Elists.Restore
+-- (Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elists);
end Restore_Context;
------------------
@@ -1958,15 +1960,16 @@
begin
if Is_Opened (C) then
pragma Assert (C in Contexts.First .. Contexts.Last);
- Contexts.Table (C).Back_Up.Context_Name_Chars := A_Name_Chars.Save;
- Contexts.Table (C).Back_Up.Units := Unit_Table.Save;
- Contexts.Table (C).Back_Up.Trees := Tree_Table.Save;
+ raise Program_Error with "Save_Context is not implemented";
+-- Contexts.Table (C).Back_Up.Context_Name_Chars := A_Name_Chars.Save;
+-- Contexts.Table (C).Back_Up.Units := Unit_Table.Save;
+-- Contexts.Table (C).Back_Up.Trees := Tree_Table.Save;
-- saving lists tables:
- Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elmts :=
- A4G.A_Elists.Elmts.Save;
- Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elists :=
- A4G.A_Elists.Elists.Save;
+-- Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elmts :=
+-- A4G.A_Elists.Elmts.Save;
+-- Contexts.Table (C).Back_Up.Context_Unit_Lists.Saved_Elists :=
+-- A4G.A_Elists.Elists.Save;
end if;
end Save_Context;
|