Bug fixed on hb_arrayReleaseGarbage() for string items

2002-01-31 16:33:11 +00:00
parent 54d3793404
commit 7e123d7939
1 changed files with 3 additions and 3 deletions
--- a/harbour/source/vm/arrays.c
+++ b/harbour/source/vm/arrays.c
@@ -914,8 +914,8 @@ HB_GARBAGE_FUNC( hb_arrayReleaseGarbage )
          * Arrays, objects and codeblock should be released directly by
          * the garbage collector
          */
-         if( HB_IS_STRING( pItem ) && pItem->item.asString.value && pItem->item.asString.bPcode )
-            hb_xfree( pItem->item.asString.value );
+         if( HB_IS_STRING( pItem ) )
+            hb_itemClear( pItem );

         ++pItem;
      }
@@ -923,4 +923,4 @@ HB_GARBAGE_FUNC( hb_arrayReleaseGarbage )
      pBaseArray->pItems = NULL;
      pBaseArray->ulLen  = 0;
   }
-}
+}