From 2fdf8e9bda82232bfa21296fdbf7425de77ca547 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Manuel=20de=20Morais=20Santos=20Costa?= Date: Tue, 3 Nov 2009 23:17:06 +0000 Subject: [PATCH] fix bad ! register when calling continuation of meta-predicate (obs from A Kimmig). --- C/absmi.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C/absmi.c b/C/absmi.c index ffd4d3542..93b3a437d 100644 --- a/C/absmi.c +++ b/C/absmi.c @@ -14056,7 +14056,7 @@ Yap_absmi(int inp) /* for profiler */ save_pc(); ALWAYS_LOOKAHEAD(pen->OpcodeOfPred); - ENV_YREG[E_CB] = pt0[E_CB]; + ENV_YREG[E_CB] = (CELL)B; #ifdef LOW_LEVEL_TRACER if (Yap_do_low_level_trace) low_level_trace(enter_pred,pen,XREGS+1);