bignum support fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1531 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-02-01 13:28:57 +00:00
parent 5f56e91375
commit 9e697d5bee
13 changed files with 45 additions and 16 deletions
--- a/C/bignum.c
+++ b/C/bignum.c
@@ -38,8 +38,8 @@ Yap_MkBigIntTerm(MP_INT *big)
  CELL *ret = H;

  if (mpz_fits_slong_p(big)) {
-    int out = mpz_get_si(big);
-    return MkIntegerTerm(out);
+    long int out = mpz_get_si(big);
+    return MkIntegerTerm((Int)out);
  }
  nlimbs = (big->_mp_alloc)*(sizeof(mp_limb_t)/CellSize);
  if (nlimbs > (ASP-ret)-1024) {