In optimised code for (A,B), tail should set E[B]

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@754 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-01-30 19:00:08 +00:00 · 2003-01-30 19:00:08 +00:00 · d3b8ad429d
commit d3b8ad429d
parent 533365611c
1 changed files with 1 additions and 0 deletions
--- a/C/absmi.c
+++ b/C/absmi.c
@ -12060,6 +12060,7 @@ Yap_absmi(int inp)
      execute_after_comma:
 	ALWAYS_LOOKAHEAD(pen->OpcodeOfPred);
 	PREG = pen->CodeOfPred;
+	E_YREG[E_CB] = (CELL)B;
 #ifdef DEPTH_LIMIT
 	if (DEPTH <= MkIntTerm(1)) {/* I assume Module==0 is primitives */
 	  if (pen->ModuleOfPred) {