/[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 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  }  }

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

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