be careful: error handling may have changed PC in call_c_with_fail!
This commit is contained in:
parent
5b527e7eeb
commit
61973a2be6
@ -7598,10 +7598,13 @@ Yap_absmi(int inp)
|
||||
SREG = (CELL *)((f)());
|
||||
setregs();
|
||||
}
|
||||
if (!SREG)
|
||||
PREG = PREG->u.slp.l;
|
||||
else
|
||||
if (!SREG) {
|
||||
/* be careful about error handling */
|
||||
if (PREG != FAILCODE)
|
||||
PREG = PREG->u.slp.l;
|
||||
} else {
|
||||
PREG = NEXTOP(PREG, slp);
|
||||
}
|
||||
CACHE_A1();
|
||||
JMPNext();
|
||||
ENDBOp();
|
||||
|
Reference in New Issue
Block a user