summarylogtreecommitdiffstats
path: root/a4g-contt.adb-patch
diff options
context:
space:
mode:
authorRod Kay2017-06-16 17:02:21 +1000
committerRod Kay2017-06-16 17:02:21 +1000
commit36f78495f68c65298c27b6904c931e81005129eb (patch)
tree9d72effcd652c933e2e0742aa87f6fb621b15d40 /a4g-contt.adb-patch
parent7e8259c6fa7404580d250eaa08014c108053ba79 (diff)
downloadaur-36f78495f68c65298c27b6904c931e81005129eb.tar.gz
Update to gpl2017 version
Diffstat (limited to 'a4g-contt.adb-patch')
-rw-r--r--a4g-contt.adb-patch54
1 files changed, 54 insertions, 0 deletions
diff --git a/a4g-contt.adb-patch b/a4g-contt.adb-patch
new file mode 100644
index 000000000000..db9ebb8f496a
--- /dev/null
+++ b/a4g-contt.adb-patch
@@ -0,0 +1,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;
+
+