diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cleanups

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1617 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-04-28 16:14:05 +00:00
parent 9101c18410
commit 720db316ce
4 changed files with 17 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
C/heapgc.c
View File

@@ -149,18 +149,12 @@ static rb_red_blk_node *db_root, *db_nil;
static void
gc_growtrail(int committed)
{
#if USE_SYSTEM_MALLOC
TR = OldTR;
save_machine_regs();
longjmp(Yap_gc_restore, 2);
#else
if (!Yap_growtrail(64 * 1024L, TRUE)) {
TR = OldTR;
/* could not find more trail */
save_machine_regs();
longjmp(Yap_gc_restore, 2);
}
#endif
}
inline static void
@@ -1600,8 +1594,9 @@ mark_trail(tr_fr_ptr trail_ptr, tr_fr_ptr trail_base, CELL *gc_H, choiceptr gc_B
tr_fr_ptr nsTR = (tr_fr_ptr)cont_top0;
CELL *cptr = (CELL *)trail_cell;
if ((ADDR)nsTR > Yap_TrailTop-1024)
Yap_growtrail(64 * 1024L, TRUE);
if ((ADDR)nsTR > Yap_TrailTop-1024) {
gc_growtrail(TRUE);
}
TrailTerm(nsTR) = (CELL)NULL;
TrailTerm(nsTR+1) = *hp;
TrailTerm(nsTR+2) = trail_cell;