Parent Directory | Revision Log | Patch
revision 1.6.6.2.10.1 by camm, Mon Jul 18 17:07:24 2005 UTC | revision 1.6.6.2.10.1.2.1 by camm, Fri Sep 30 22:16:03 2005 UTC | |
---|---|---|
# | Line 436 maybe_replace_big(object x) | Line 436 maybe_replace_big(object x) |
436 | bug or feature of gmp.. | bug or feature of gmp.. |
437 | */ | */ |
438 | if (MP_SIZE(x) == 0) return small_fixnum(0); | if (MP_SIZE(x) == 0) return small_fixnum(0); |
439 | if (mpz_fits_sint_p(MP(x))) { | if (mpz_fits_slong_p(MP(x))) { |
440 | MP_INT *u = MP(x); | MP_INT *u = MP(x); |
441 | signed long int xx = mpz_get_si(u); | return make_fixnum(mpz_get_si(u)); |
return make_fixnum(xx); | ||
442 | } | } |
443 | return make_bignum(MP(x)); | return make_bignum(MP(x)); |
444 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |