diff options
author | Rod Kay | 2017-06-16 17:02:21 +1000 |
---|---|---|
committer | Rod Kay | 2017-06-16 17:02:21 +1000 |
commit | 36f78495f68c65298c27b6904c931e81005129eb (patch) | |
tree | 9d72effcd652c933e2e0742aa87f6fb621b15d40 /a4g-contt.adb-patch | |
parent | 7e8259c6fa7404580d250eaa08014c108053ba79 (diff) | |
download | aur-36f78495f68c65298c27b6904c931e81005129eb.tar.gz |
Update to gpl2017 version
Diffstat (limited to 'a4g-contt.adb-patch')
-rw-r--r-- | a4g-contt.adb-patch | 54 |
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; + + |