fix bad ! register when calling continuation of meta-predicate (obs from A Kimmig).

2009-11-03 23:17:06 +00:00
parent 69d34fb0ce
commit 2fdf8e9bda
1 changed files with 1 additions and 1 deletions
--- 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);