diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PREG never crosses setregs()

Browse Source 
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
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
C/absmi.c
View File

@@ -1075,14 +1075,17 @@ Yap_absmi(int inp)
BOp(stale_lu_index, Ill); BOp(stale_lu_index, Ill);
saveregs(); saveregs();
{ {
yamop *ipc;
/* update ASP before calling IPred */ /* update ASP before calling IPred */
ASP = YREG+E_CB; ASP = YREG+E_CB;
if (ASP > (CELL *) B) { if (ASP > (CELL *) B) {
ASP = (CELL *) B; ASP = (CELL *) B;
} }
PREG = Yap_CleanUpIndex(PREG->u.Ill.I); ipc = Yap_CleanUpIndex(PREG->u.Ill.I);
/* restart index */ /* restart index */
setregs(); setregs();
PREG = ipc;
CACHED_A1() = ARG1; CACHED_A1() = ARG1;
JMPNext(); JMPNext();
} }