Itemrelease tried to release 'empty' array

1999-05-22 16:19:30 +00:00
parent d98c0f0053
commit c7b33eb0d6
1 changed files with 1 additions and 1 deletions
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -1041,7 +1041,7 @@ void ItemRelease( PITEM pItem )
      }
      pItem->wLength = 0;
   }
-   else if( IS_ARRAY( pItem ) )
+   else if( IS_ARRAY( pItem ) && pItem->value.pBaseArray )
   {
      if( --( ( PBASEARRAY ) pItem->value.pBaseArray )->wHolders == 0 )
         hb_arrayRelease( pItem );