fix indexing of long instructions

2013-07-22 10:43:38 -05:00
parent 0639f86980
commit 38a804db1e
2 changed files with 4 additions and 1 deletions
--- a/H/headclause.h
+++ b/H/headclause.h
@@ -6,6 +6,9 @@
  while (TRUE) {
    op_numbers op = Yap_op_from_opcode(cl->opc);
    switch (op) {
+    case _ensure_space:
+      cl = NEXTOP(cl,Osbpa);
+      break;
    case _native_me:
      cl = NEXTOP(cl,aFlp);
      break;