fix P details when creating execution environment: we should save the old one

2013-09-08 22:24:09 +01:00
parent 4c148cc0d3
commit 6966d23195
4 changed files with 7 additions and 2 deletions
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -775,6 +775,8 @@ RestoreEnvInst(yamop start[2], yamop **instp, op_numbers opc, PredEntry *pred)
  ipc->opc = Yap_opcode(_call);
  ipc->u.Osbpp.p = pred;
  ipc->u.Osbpp.p0 = pred;
+  ipc->u.Osbpp.bmap = NULL;
+  ipc->u.Osbpp.s = -Signed(RealEnvSize);
  ipc = NEXTOP(ipc, Osbpp);
  ipc->opc = Yap_opcode(opc);
  *instp = ipc;