From 38a804db1ed3e0df5762df429062af1ef84a1f7c Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 22 Jul 2013 10:43:38 -0500
Subject: [PATCH] fix indexing of long instructions

---
 H/headclause.h | 3 +++
 misc/buildops  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/H/headclause.h b/H/headclause.h
index 238b5bcb9..686c74d4d 100644
--- 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;
diff --git a/misc/buildops b/misc/buildops
index ef211a74f..d4b6ec15a 100644
--- a/misc/buildops
+++ b/misc/buildops
@@ -851,7 +851,7 @@ opinfo("p_nonvar_x",[body,ifthenelse]).
 opinfo("p_nonvar_y",[body,ifthenelse]).
 opinfo("save_b_x",[body,new("x")]).
 opinfo("save_b_y",[body,new("y")]).
-opinfo("ensure_space",[body]).
+opinfo("ensure_space",[]).
 opinfo("write_x_loc",[body]).
 opinfo("write_x_var",[body,new("x")]).
 opinfo("write_y_var",[body,new("y")]).