fix bug with incremental gc setting HZ incorrectly.

2011-09-20 09:53:43 +01:00 · 2011-09-20 09:53:43 +01:00 · 7cc1d98079
commit 7cc1d98079
parent abf74a8aa9
1 changed files with 5 additions and 0 deletions
--- a/C/heapgc.c
+++ b/C/heapgc.c
@ -3696,6 +3696,11 @@ compaction_phase(tr_fr_ptr old_TR, CELL *current_env, yamop *curp USES_REGS)
    }
  if (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 */
  }
 }