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

fix gmp calls

Browse Source
This commit is contained in:
Vitor Santos Costa
2016-05-13 11:43:01 +01:00
parent 428a6255e1
commit 3a9ecf929e
2 changed files with 27 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
C/gmp_support.c
View File

@@ -1234,6 +1234,19 @@ Yap_gmp_cmp_big_int(Term t, Int i)
}
}
int
Yap_gmp_cmp_int_big(Int i, Term t)
{
CELL *pt = RepAppl(t);
if (pt[1] == BIG_INT) {
MP_INT *b = Yap_BigIntOfTerm(t);
return -mpz_cmp_si(b,i);
} else {
MP_RAT *b = Yap_BigRatOfTerm(t);
return -mpq_cmp_si(b,i,1);
}
}
int
Yap_gmp_cmp_big_float(Term t, Float d)
{
@@ -1304,6 +1317,18 @@ Yap_gmp_tcmp_big_int(Term t, Int i)
}
}
int
Yap_gmp_tcmp_int_big(Int i, Term t)
{
CELL *pt = RepAppl(t);
if (pt[1] == BIG_INT) {
MP_INT *b = Yap_BigIntOfTerm(t);
return -mpz_cmp_si(b,i);
} else {
return 1;
}
}
int
Yap_gmp_tcmp_big_float(Term t, Float d)
{