From d3b8ad429d17b3b55d4bcb5a73a8c43c883d61f1 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 30 Jan 2003 19:00:08 +0000
Subject: [PATCH] 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
---
 C/absmi.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C/absmi.c b/C/absmi.c
index 45f20dce8..ca8d99bea 100644
--- 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) {