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

fix fixes

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