be careful: error handling may have changed PC in call_c_with_fail!

This commit is contained in:
Vitor Santos Costa 2009-05-09 23:40:17 -04:00
parent 5b527e7eeb
commit 61973a2be6

View File

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