From ced32a8bd2571d4142790d845855a8d8059c1d69 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 1 Feb 2002 06:42:18 +0000
Subject: [PATCH] Some minor fixes

---
 harbour/source/vm/codebloc.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/harbour/source/vm/codebloc.c b/harbour/source/vm/codebloc.c
index 956f94be1e..eee37e3778 100644
--- a/harbour/source/vm/codebloc.c
+++ b/harbour/source/vm/codebloc.c
@@ -241,8 +241,11 @@ void  hb_codeblockDelete( HB_ITEM_PTR pItem )
 
       /* free space allocated for pcodes - if it was a macro-compiled codeblock
        */
-      if( pCBlock->dynBuffer )
+      if( pCBlock->pCode && pCBlock->dynBuffer )
+      {
          hb_xfree( pCBlock->pCode );
+         pCBlock->pCode = NULL;
+      }
 
       /* free space allocated for a CODEBLOCK structure
       */
@@ -324,4 +327,3 @@ PHB_ITEM  hb_codeblockGetRef( HB_CODEBLOCK_PTR pCBlock, PHB_ITEM pRefer )
 
    return pCBlock->pLocals - pRefer->item.asRefer.value;
 }
-