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

64 bit machines may be using S while calling ExpandIndex.

Browse Source
This commit is contained in:
Costa Vitor 2009-08-19 20:22:04 -05:00
parent 40ea33c150
commit 418fa1a396
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/absmi.c
View File

@ -7901,10 +7901,16 @@ Yap_absmi(int inp)
JMPNext(); JMPNext();
} }
#endif #endif
#ifdef SHADOW_S
S = SREG;
#endif /* SHADOW_S */
saveregs(); saveregs();
pt0 = Yap_ExpandIndex(pe, 0); pt0 = Yap_ExpandIndex(pe, 0);
/* restart index */ /* restart index */
setregs(); setregs();
#ifdef SHADOW_S
SREG = S;
#endif /* SHADOW_S */
PREG = pt0; PREG = pt0;
#if defined(YAPOR) || defined(THREADS) #if defined(YAPOR) || defined(THREADS)
if (!PP) if (!PP)