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

fix non GMP code (obs from Tony Wilson).

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-04-26 10:46:00 -05:00
parent 710d15e506
commit c5ba7e3854
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
C/arith2.c
View File

@ -75,7 +75,14 @@ p_mod(Term t1, Term t2) {
if (i2 == 0) goto zero_divisor;
if (i1 == Int_MIN && i2 == -1) {
#ifdef USE_GMP
return Yap_gmp_add_ints(Int_MAX, 1);
#else
Yap_Error(EVALUATION_ERROR_INT_OVERFLOW, t1,
"// /2 with %d and %d", i1, i2);
P = (yamop *)FAILCODE;
RERROR();
#endif
}
mod = i1%i2;
if (mod && (mod ^ i2) < 0)
@ -167,7 +174,14 @@ p_rem(Term t1, Term t2) {
if (i2 == 0) goto zero_divisor;
if (i1 == Int_MIN && i2 == -1) {
#ifdef USE_GMP
return Yap_gmp_add_ints(Int_MAX, 1);
#else
Yap_Error(EVALUATION_ERROR_INT_OVERFLOW, t1,
"rem/2 with %d and %d", i1, i2);
P = (yamop *)FAILCODE;
RERROR();
#endif
}
mod = i1%i2;
RINT(i1%i2);