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

allow easy shunting, but make sure we do not shunt chains below the current CP.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-05 09:47:17 -05:00
parent b5a5e10544
commit 4b91f13ee1
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/heapgc.c
View File

@ -24,7 +24,7 @@ static char SccsId[] = "%W% %G%";
#include "attvar.h"
#if !defined(TABLING)
/* #define EASY_SHUNTING 1 */
#define EASY_SHUNTING 1
#endif /* !TABLING */
#define HYBRID_SCHEME 1
@ -1221,13 +1221,15 @@ mark_variable(CELL_PTR current)
current = next;
}
}
} else if (IsVarTerm(cnext) &&
/* try to shorten chains if they go through the current CP */
} else if (next > HB &&
IsVarTerm(cnext) &&
UNMARK_CELL(cnext) != (CELL)next &&
current < LCL0) {
/* This step is possible because we clean up the trail */
*current = UNMARK_CELL(cnext);
UNMARK(current);
if (current >= H0 && current < H) {
if (current >= H0 && current < H ) {
total_marked--;
if (current < HGEN) {
total_oldies--;