See changelog

harbour/ChangeLog

@@ -1,3 +1,11 @@
+19990522-17:25 CET Eddie Runia
+  * source/vm/hvm.c
+    'Array' bug possibly resolved.
+  * source/rtl/arrays.c
+    aClone does not loose memory anymore
+  * tests/working/ainstest.prg
+    test for aClone added.
+
 19990522-15:55 CET Eddie Runia
   * docs/hrb.faq
     Clean up

harbour/source/rtl/arrays.c

@@ -6,6 +6,7 @@
 #include <ctoharb.h>
 
 PITEM hb_itemNew( PITEM );
+PITEM hb_itemArrayPut( PITEM , ULONG , PITEM );
 
 extern STACK  stack;
 extern SYMBOL symEval;
@@ -540,14 +541,13 @@ PITEM hb_arrayClone( PITEM pSrcArray )
 
       for ( ulCount = 0; ulCount < ulSrcLen; ulCount ++ )
 	{
-	  PITEM pSrcItem = pSrcBaseArray->pItems + ulCount;
-	  PITEM pDstItem = pDstBaseArray->pItems + ulCount;
+      PITEM pSrcItem = pSrcBaseArray->pItems + ulCount;
 
 	  if ( pSrcItem->wType == IT_ARRAY )
-	    ItemCopy( pDstItem, hb_arrayClone( pSrcItem ) );
+            hb_itemArrayPut( pDstArray, ulCount, hb_arrayClone( pSrcItem ) );
 	  else
-	    ItemCopy( pDstItem, pSrcItem );
-	}
+            hb_itemArrayPut( pDstArray, ulCount, pSrcItem );
+    }
       return pDstArray;
     }
   else

harbour/tests/working/ainstest.prg

@@ -10,7 +10,7 @@ function Main()
     local aSecond
     local aMore
 
-    aFirst := { 1,2,4 }
+    aFirst := aClone( { 1,2,4 } )
     aIns( aFirst, 3 )
     aFirst[3] = "3"
     QQOut( "Testing aIns .. " )