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

fix sTR0 to always point to base of updates.

This commit is contained in:
Vitor Santos Costa 2010-03-30 10:59:12 +01:00
parent 9a728ed796
commit f45e95ba68
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/heapgc.c
View File

@ -342,7 +342,7 @@ GC_ALLOC_NEW_MASPACE(void)
gc_ma_h_top++;
cont_top = (cont *)gc_ma_h_top;
#ifdef EASY_SHUNTING
sTR = (tr_fr_ptr)cont_top;
sTR = sTR0 = (tr_fr_ptr)cont_top;
#else
cont_top0 = cont_top;
#endif
@ -1627,12 +1627,14 @@ mark_trail(tr_fr_ptr trail_ptr, tr_fr_ptr trail_base, CELL *gc_H, choiceptr gc_B
{
#ifdef EASY_SHUNTING
tr_fr_ptr begsTR = NULL, endsTR = NULL;
tr_fr_ptr OldsTR0 = sTR0;
#endif
#ifdef COROUTINING
CELL *detatt = NULL;
#endif
cont *old_cont_top0 = cont_top0;
GC_NEW_MAHASH((gc_ma_hash_entry *)cont_top0);
while (trail_base < trail_ptr) {
register CELL trail_cell;
@ -1804,6 +1806,7 @@ mark_trail(tr_fr_ptr trail_ptr, tr_fr_ptr trail_base, CELL *gc_H, choiceptr gc_B
}
#endif /* TABLING */
#ifdef EASY_SHUNTING
/* set back old variables */
sTR = (tr_fr_ptr)old_cont_top0;
while (begsTR != NULL) {
tr_fr_ptr newsTR = (tr_fr_ptr)TrailTerm(begsTR);
@ -1812,6 +1815,7 @@ mark_trail(tr_fr_ptr trail_ptr, tr_fr_ptr trail_base, CELL *gc_H, choiceptr gc_B
begsTR = newsTR;
sTR += 2;
}
sTR0 = OldsTR0;
#else
cont_top0 = old_cont_top0;
#endif