From 473fd5516dab2c576aa0edd73191a63cc04a4ea9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Mon, 2 Aug 2010 19:47:29 +0100
Subject: [PATCH] small fix to Osbmp type instructions.

---
 H/rclause.h | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/H/rclause.h b/H/rclause.h
index a99ecc17e..a8dffffcf 100644
--- a/H/rclause.h
+++ b/H/rclause.h
@@ -44,8 +44,11 @@ restore_opcodes(yamop *pc, yamop *max)
     case _p_execute:
       OrArgAdjust(pc->u.Osbmp.or_arg);
       pc->u.Osbmp.s = ConstantAdjust(pc->u.Osbmp.s);
-      pc->u.Osbmp.mod = CellPtoHeapAdjust(pc->u.Osbmp.mod);
-      pc->u.Osbmp.p0 = ModuleAdjust(pc->u.Osbmp.p0);
+      pc->u.Osbmp.bmap = CellPtoHeapAdjust(pc->u.Osbmp.bmap);
+      pc->u.Osbmp.mod = ModuleAdjust(pc->u.Osbmp.mod);
+      pc->u.Osbmp.p0 = PtoPredAdjust(pc->u.Osbmp.p0);
+      pc = NEXTOP(pc,Osbmp);
+      break;
       /* instructions type Osbpi */
     case _ensure_space:
       OrArgAdjust(pc->u.Osbpi.or_arg);