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

fix non-gmp calls to arith2

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-04-26 19:24:21 -05:00
parent a89f9a35ba
commit 61ad7c6da8
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
H/arith2.h
View File

@ -139,7 +139,14 @@ inline static Term
do_sll(Int i, Int j) do_sll(Int i, Int j)
{ {
if (sl_overflow(i,j)) { if (sl_overflow(i,j)) {
#ifdef USE_GMP
return Yap_gmp_sll_ints(i, j); return Yap_gmp_sll_ints(i, j);
#else
Yap_Error(EVALUATION_ERROR_INT_OVERFLOW, t1,
"rem/2 with %d and %d", i1, i2);
P = (yamop *)FAILCODE;
RERROR();
#endif
} }
RINT(i << j); RINT(i << j);
} }
@ -343,7 +350,14 @@ p_div(Term t1, Term t2) {
P = (yamop *)FAILCODE; P = (yamop *)FAILCODE;
RERROR(); RERROR();
} else if (i1 == Int_MIN && i2 == -1) { } else if (i1 == Int_MIN && i2 == -1) {
#ifdef USE_GMP
return Yap_gmp_add_ints(Int_MAX, 1); 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
} else { } else {
RINT(IntegerOfTerm(t1) / i2); RINT(IntegerOfTerm(t1) / i2);
} }