/[gcl]/gcl/o/gmp_big.c
ViewVC logotype

Diff of /gcl/o/gmp_big.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6.6.2.10.1.2.1 by camm, Fri Sep 30 22:16:03 2005 UTC revision 1.6.6.2.10.1.2.2 by camm, Wed Oct 12 23:13:06 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_slong_p(MP(x))) {    if (mpz_fits_sint_p(MP(x))) {
440      MP_INT *u = MP(x);      MP_INT *u = MP(x);
441      return make_fixnum(mpz_get_si(u));      return make_fixnum(mpz_get_si(u));
442    }    }

Legend:
Removed from v.1.6.6.2.10.1.2.1  
changed lines
  Added in v.1.6.6.2.10.1.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26