2012-05-21 15:43 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* harbour/src/vm/garbage.c
    + allow to call hb_itemPutPtrGC() with the same GC block more
      then once.

harbour/ChangeLog

@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-05-21 15:43 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * harbour/src/vm/garbage.c
+    + allow to call hb_itemPutPtrGC() with the same GC block more
+      then once.
+
 2012-05-18 17:58 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbwin/win_reg.prg
     ! fixed RTE when non-NIL/non-numeric nRegSam is passed + minor cleanup/formatting

harbour/src/vm/garbage.c

@@ -473,10 +473,13 @@ void hb_gcAttach( void * pBlock )
             hb_gcUnlink( &s_pLockedBlock, pAlloc );
             hb_gcLink( &s_pCurrBlock, pAlloc );
             HB_GC_AUTO_INC
+            pAlloc = NULL;
          }
       }
       HB_GC_UNLOCK
    }
+   if( pAlloc )
+      hb_xRefInc( pAlloc );
 }
 
 /* mark passed memory block as used so it will be not released by the GC */