From 47e8813625e02fc0eb00bf87e87b1449b0829a70 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 18 Mar 2002 12:53:56 +0000
Subject: [PATCH] bug fix on codeblock execution memvars management

---
 harbour/source/vm/hvm.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index af136d6d99..a3410a1651 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -719,8 +719,10 @@ void HB_EXPORT hb_vmExecute( const BYTE * pCode, PHB_SYMB pSymbols )
             break;
 
          case HB_P_ENDBLOCK:
-            hb_vmEndBlock();
             HB_TRACE(HB_TR_INFO, ("(EndBlock)"));
+            hb_vmEndBlock();
+            if( pSymbols )
+               hb_memvarSetPrivatesBase( ulPrivateBase );
             return;   /* end of a codeblock - stop evaluation */
 
          /* BEGIN SEQUENCE/RECOVER/END SEQUENCE */