From c7d2973c1eb6e9df8fb7c33af561f203f61b1f86 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sun, 19 Oct 2014 01:51:50 +0100
Subject: [PATCH] avoid confusing gc.

---
 C/exec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/exec.c b/C/exec.c
index 1e0214d90..7e5bdeac1 100755
--- a/C/exec.c
+++ b/C/exec.c
@@ -1114,7 +1114,7 @@ Yap_PrepGoal(UInt arity, CELL *pt, choiceptr saved_b USES_REGS)
   EX = NULL;
   //  sl = Yap_InitSlot(t);
   YENV = ASP;
-  YENV[E_CP] = (CELL)P;
+  YENV[E_CP] = (CELL)YESCODE;
   YENV[E_CB] = (CELL)B;
   YENV[E_E]  = (CELL)ENV;
 #ifdef  TABLING