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

2009-05-09 23:40:17 -04:00 · 2009-05-09 23:40:17 -04:00 · 61973a2be6
commit 61973a2be6
parent 5b527e7eeb
1 changed files with 6 additions and 3 deletions
--- a/C/absmi.c
+++ b/C/absmi.c
@ -7598,10 +7598,13 @@ Yap_absmi(int inp)
 	SREG = (CELL *)((f)());
 	setregs();
      }
-      if (!SREG)
+      if (!SREG) {
+	/* be careful about error handling */
+	if (PREG != FAILCODE)
 	  PREG = PREG->u.slp.l;
-      else
+      } else {
 	PREG = NEXTOP(PREG, slp);
+      }
      CACHE_A1();
      JMPNext();
      ENDBOp();