Jump and Throw need to store the term away, if they try to use arena

the term will hang in the stack (#152).
2009-12-02 21:59:41 +00:00
parent 8213d52af4
commit 06d30b9fc9
9 changed files with 61 additions and 14 deletions
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -967,6 +967,11 @@ restore_codes(void)
  /* restore consult stack. It consists of heap pointers, so it
     is easy to fix.
  */
+  if (Yap_heap_regs->wl.ball_term) {
+    Yap_heap_regs->wl.ball_term  = 
+      DBTermAdjust(Yap_heap_regs->wl.ball_term);
+    RestoreDBTerm(Yap_heap_regs->wl.ball_term, TRUE);
+  }
  Yap_heap_regs->wl.consultlow  = 
    ConsultObjAdjust(Yap_heap_regs->wl.consultlow);
  Yap_heap_regs->wl.consultbase =