See changelog

harbour/ChangeLog

@@ -1,3 +1,7 @@
+19990514-19:50 CET Eddie Runia
+  * source/rtl/codebloc.c
+    Codeblock patch from Ryszard applied
+
 19990514-19:45 CET Eddie Runia
   * source/rtl/arrays.c
     Patch from David (see below) was overwritten ??

harbour/source/rtl/codebloc.c

@@ -99,8 +99,13 @@ void  CodeblockDelete( PCODEBLOCK pCBlock )
 
     /* free space allocated for local variables
     */
-    while( w < pCBlock->wLocals )
-      ItemRelease( &pCBlock->pItems[ w++ ] );
+    if( pCBlock->pItems )
+    {
+      while( w < pCBlock->wLocals )
+        ItemRelease( &pCBlock->pItems[ w++ ] );
+      _xfree( pCBlock->pItems );
+    }
+
     /* free space allocated for a CODEBLOCK structure
     */
     _xfree( pCBlock );