From c7b33eb0d6a3aedf20cbaa6cdd15be7aa138b777 Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Sat, 22 May 1999 16:19:30 +0000
Subject: [PATCH] Itemrelease tried to release 'empty' array

---
 harbour/source/vm/hvm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index a6935115f6..128db041a4 100644
--- 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 );