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

make arg/3 compatible with SWI for atomic argument (fail silently).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-07-19 14:38:17 +01:00
parent 6183ff0282
commit 834e3ed5d0
1 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
C/absmi.c
View File

@ -7553,7 +7553,7 @@ Yap_absmi(int inp)
FAIL(); FAIL();
} }
/* in case we call Execute */ /* in case we call Execute */
YREG = ENV; YREG = YENV = ENV;
JMPNext(); JMPNext();
ENDBOp(); ENDBOp();
@ -12155,9 +12155,12 @@ Yap_absmi(int inp)
ENDP(pt0); ENDP(pt0);
} }
else { else {
saveregs(); /*
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3"); don't complain here for SWI Prolog compatibility
setregs(); saveregs();
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3");
setregs();
*/
FAIL(); FAIL();
} }
@ -12243,9 +12246,12 @@ Yap_absmi(int inp)
ENDP(pt0); ENDP(pt0);
} }
else { else {
saveregs(); /*
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3"); keep SWI Prolog compatibility, just fail on trying to obtain an argument of a compound term.
setregs(); saveregs();
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3");
setregs();
*/
FAIL(); FAIL();
} }
@ -12350,9 +12356,12 @@ Yap_absmi(int inp)
ENDP(pt0); ENDP(pt0);
} }
else { else {
saveregs(); /*
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3"); don't complain here for SWI Prolog compatibility
setregs(); saveregs();
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3");
setregs();
*/
FAIL(); FAIL();
} }
@ -12453,9 +12462,12 @@ Yap_absmi(int inp)
ENDP(pt0); ENDP(pt0);
} }
else { else {
saveregs(); /*
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3"); don't complain here for SWI Prolog compatibility
setregs(); saveregs();
Yap_Error(TYPE_ERROR_COMPOUND, d1, "arg 2 of arg/3");
setregs();
*/
FAIL(); FAIL();
} }