Some minor fixes

2002-02-01 06:42:18 +00:00
parent 27dda84665
commit ced32a8bd2
1 changed files with 4 additions and 2 deletions
--- 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;
 }
-