support for space reservation (goal: call gc before trying to insert very large terms).

2010-08-02 13:04:30 +01:00
parent 212758d25e
commit 3d6e223dae
13 changed files with 88 additions and 16 deletions
--- a/H/rclause.h
+++ b/H/rclause.h
@@ -240,6 +240,12 @@ restore_opcodes(yamop *pc, yamop *max)
      IntegerInCodeAdjust(pc->u.i.i);
      pc = NEXTOP(pc,i);
      break;
+      /* instructions type ip */
+    case _ensure_space:
+      IntegerInCodeAdjust(pc->u.ip.i);
+      pc->u.ip.p = PtoPredAdjust(pc->u.ip.p);
+      pc = NEXTOP(pc,ip);
+      break;
      /* instructions type l */
    case _Ystop:
    case _jump: