fix bug with incremental gc setting HZ incorrectly.
This commit is contained in:
parent
abf74a8aa9
commit
7cc1d98079
@ -3696,6 +3696,11 @@ compaction_phase(tr_fr_ptr old_TR, CELL *current_env, yamop *curp USES_REGS)
|
|||||||
}
|
}
|
||||||
if (CurrentH0) {
|
if (CurrentH0) {
|
||||||
H0 = CurrentH0;
|
H0 = CurrentH0;
|
||||||
|
#ifdef TABLING
|
||||||
|
/* make sure that we have the correct H_FZ if we're not tabling */
|
||||||
|
if (B_FZ == (choiceptr)LCL0)
|
||||||
|
H_FZ = H0;
|
||||||
|
#endif /* TABLING */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user