From 4d3a8b6a53561f987f53a42afc3b966149816af1 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 28 Oct 2003 21:11:31 +0000
Subject: [PATCH] PREG never crosses setregs()

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@909 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/absmi.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C/absmi.c b/C/absmi.c
index 552c84aae..91a616ea5 100644
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -1075,14 +1075,17 @@ Yap_absmi(int inp)
       BOp(stale_lu_index, Ill);
       saveregs();
       {
+	yamop *ipc;
+
 	/* update ASP before calling IPred */
 	ASP = YREG+E_CB;
 	if (ASP > (CELL *) B) {
 	  ASP = (CELL *) B;
 	}
-	PREG = Yap_CleanUpIndex(PREG->u.Ill.I);
+	ipc = Yap_CleanUpIndex(PREG->u.Ill.I);
 	/* restart index */
 	setregs();
+	PREG = ipc;
 	CACHED_A1() = ARG1;
 	JMPNext();
       }