fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2001-12-17 07:20 UTC+0100 JFL (Mafact) <jfl@mafact.com>

Browse Source
This commit is contained in:
Jean-Francois Lefebvre
2001-12-17 06:19:22 +00:00
parent f8ae6c3b7a
commit d4f626b2a9
2 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2001-12-17 07:20 UTC+0100 JFL (Mafact) <jfl@mafact.com>
* source/vm/garbage.c
! RON Fix for forever loop when GC try to free first item in the
arrayclone cloned list.
2001-12-16 21:28 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rtl/tbrowse.prg

14
harbour/source/vm/garbage.c
View File

@@ -179,7 +179,7 @@ HB_ITEM_PTR hb_gcGripGet( HB_ITEM_PTR pOrigin )
if( pAlloc )
{
HB_ITEM_PTR pItem = ( HB_ITEM_PTR )( pAlloc + 1 );
hb_gcLink( &s_pLockedBlock, pAlloc );
pAlloc->pFunc = hb_gcGripRelease;
pAlloc->locked = 1;
@@ -209,7 +209,7 @@ void hb_gcGripDrop( HB_ITEM_PTR pItem )
--pAlloc;
hb_itemClear( pItem ); /* clear value stored in this item */
hb_gcUnlink( &s_pLockedBlock, pAlloc );
HB_GARBAGE_FREE( pAlloc );
}
@@ -368,7 +368,9 @@ void hb_gcCollectAll( void )
/* call a cleanup function */
s_pCurrBlock->used |= HB_GC_DELETE;
if( s_pCurrBlock->pFunc )
{
( s_pCurrBlock->pFunc )( ( void *)( s_pCurrBlock + 1 ) );
}
}
s_pCurrBlock = s_pCurrBlock->pNext;
} while ( s_pCurrBlock && (pAlloc != s_pCurrBlock) );
@@ -380,10 +382,18 @@ void hb_gcCollectAll( void )
{
pDelete = s_pCurrBlock;
hb_gcUnlink( &s_pCurrBlock, s_pCurrBlock );
if( pDelete == pAlloc )
{
pAlloc = s_pCurrBlock;
}
HB_GARBAGE_FREE( pDelete );
}
else
{
s_pCurrBlock = s_pCurrBlock->pNext;
}
} while ( s_pCurrBlock && (pAlloc != s_pCurrBlock) );
s_bCollecting = FALSE;