From 1ece771a4e7629e9634edcaeefc8546c4de5d351 Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Sat, 2 Mar 2002 13:24:04 +0000
Subject: [PATCH]  * Fixed hb_arrayClone()    + line 777 -
 pDstBaseArray->puiClsTree = NULL;      was token from __objClone() and
 xHarbour.      thanks, Ron.

---
 harbour/source/vm/arrays.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/harbour/source/vm/arrays.c b/harbour/source/vm/arrays.c
index 05aa1ff923..36449d8175 100644
--- a/harbour/source/vm/arrays.c
+++ b/harbour/source/vm/arrays.c
@@ -770,6 +770,12 @@ PHB_ITEM hb_arrayClone( PHB_ITEM pSrcArray, PHB_NESTED_CLONED pClonedList )
       pDstBaseArray = pDstArray->item.asArray.value;
       pDstBaseArray->uiClass = pSrcBaseArray->uiClass;
 
+      /*-----------------12/20/2001 7:05PM----------------
+       * TODO: Is this correct? was taken from __objClone()
+       * was token from xHarbour
+       * --------------------------------------------------*/
+      pDstBaseArray->puiClsTree = NULL;
+
       for( ulCount = 0; ulCount < ulSrcLen; ulCount++ )
       {
          PHB_ITEM pSrcItem = pSrcBaseArray->pItems + ulCount;
@@ -923,4 +929,4 @@ HB_GARBAGE_FUNC( hb_arrayReleaseGarbage )
       pBaseArray->pItems = NULL;
       pBaseArray->ulLen  = 0;
    }
-}
\ No newline at end of file
+}