* source/rtl/getlist.prg

+ Add __GetListLast() for support to the compatibility functions Update() and ReadUpdate()
2002-06-14 16:36:51 +00:00
parent be9855b1c8
commit f028d5bd1e
1 changed files with 8 additions and 0 deletions
--- a/harbour/source/rtl/getlist.prg
+++ b/harbour/source/rtl/getlist.prg
@@ -53,6 +53,7 @@
 /* NOTE: Harbour internal function to set and get the active GetList */

 STATIC s_oGetListActive
+STATIC s_oGetListLast

 PROCEDURE __GetListSetActive( oGetList )

@@ -73,3 +74,10 @@ PROCEDURE __GetListSetActive( oGetList )
 FUNCTION __GetListActive()
   RETURN s_oGetListActive

+FUNCTION __GetListLast( oGetListLast )
+
+   if oGetListLast != NIL
+      s_oGetListLast := oGetListLast
+   endif
+   RETURN s_oGetListLast
+