summarylogtreecommitdiffstats
path: root/a4g-contt.adb-patch
diff options
context:
space:
mode:
Diffstat (limited to 'a4g-contt.adb-patch')
-rw-r--r--a4g-contt.adb-patch54
1 files changed, 0 insertions, 54 deletions
diff --git a/a4g-contt.adb-patch b/a4g-contt.adb-patch
deleted file mode 100644
index db9ebb8f496..00000000000
--- a/a4g-contt.adb-patch
+++ /dev/null
@@ -1,54 +0,0 @@
---- 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;
-
-