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

fix fixes 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1854 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-03-21 23:49:41 +00:00
parent 51e0e2f54e
commit a8409c5f52
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/heapgc.c
View File

@ -157,8 +157,8 @@ gc_growtrail(int committed, tr_fr_ptr begsTR, cont *old_cont_top0)
begsTR = newsTR;
sTR += 2;
}
set_conditionals(sTR);
}
set_conditionals(sTR);
#endif
/* could not find more trail */
save_machine_regs();
@ -3366,6 +3366,7 @@ set_conditionals(tr_fr_ptr str) {
cptr = (CELL *)TrailTerm(str+1);
*cptr = TrailTerm(str);
}
sTR = sTR0 = NULL;
}
#endif
@ -3598,7 +3599,6 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
/* we cannot recover, fail system */
restore_machine_regs();
sz = Yap_TrailTop-(ADDR)OldTR;
fprintf(stderr,"sz=%d\n",sz);
/* ask for double the size */
sz = 2*sz;
TR = OldTR;
@ -3623,6 +3623,9 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
#endif
}
}
#if EASY_SHUNTING
sTR0 = sTR = NULL;
#endif
total_marked = 0;
total_oldies = 0;
#ifdef COROUTING