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

recognise exceptions within comparisons.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-03-26 00:37:57 +00:00
parent 2e807fc5c7
commit 5c2e5c524b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/absmi.c
View File

@ -11271,7 +11271,7 @@ Yap_absmi(int inp)
d0 = (CELL) (f) (d0,d1); d0 = (CELL) (f) (d0,d1);
setregs(); setregs();
} }
if (!d0) { if (!d0 || PREG == FAILCODE) {
if (PREG != FAILCODE) if (PREG != FAILCODE)
PREG = PREG->u.plxxs.f; PREG = PREG->u.plxxs.f;
JMPNext(); JMPNext();
@ -11344,7 +11344,7 @@ Yap_absmi(int inp)
d0 = (CELL) (f) (d0,d1); d0 = (CELL) (f) (d0,d1);
setregs(); setregs();
} }
if (!d0) { if (!d0 || PREG == FAILCODE) {
if (PREG != FAILCODE) if (PREG != FAILCODE)
PREG = PREG->u.plxys.f; PREG = PREG->u.plxys.f;
JMPNext(); JMPNext();
@ -11417,7 +11417,7 @@ Yap_absmi(int inp)
d0 = (CELL) (f) (d0,d1); d0 = (CELL) (f) (d0,d1);
setregs(); setregs();
} }
if (!d0) { if (!d0 || PREG == FAILCODE) {
if (PREG != FAILCODE) if (PREG != FAILCODE)
PREG = PREG->u.plxys.f; PREG = PREG->u.plxys.f;
JMPNext(); JMPNext();
@ -11491,9 +11491,9 @@ Yap_absmi(int inp)
CmpPredicate f = PREG->u.plyys.p->cs.d_code; CmpPredicate f = PREG->u.plyys.p->cs.d_code;
saveregs(); saveregs();
d0 = (CELL) (f) (d0,d1); d0 = (CELL) (f) (d0,d1);
setregs();
} }
setregs(); if (!d0 || PREG == FAILCODE) {
if (!d0) {
if (PREG != FAILCODE) if (PREG != FAILCODE)
PREG = PREG->u.plyys.f; PREG = PREG->u.plyys.f;
JMPNext(); JMPNext();