PREG never crosses setregs()

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@909 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-10-28 21:11:31 +00:00
parent 614bdd981f
commit 4d3a8b6a53

View File

@ -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();
}