From f028d5bd1e96c846f40217d0304fe1ac952463ad Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Fri, 14 Jun 2002 16:36:51 +0000
Subject: [PATCH]   * source/rtl/getlist.prg     + Add __GetListLast() for
 support to the compatibility functions       Update() and ReadUpdate()

---
 harbour/source/rtl/getlist.prg | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/harbour/source/rtl/getlist.prg b/harbour/source/rtl/getlist.prg
index 1ede36cd29..3543b84b41 100644
--- 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
+