Mercurial > hg > xemacs-beta
diff src/number.c @ 5936:574f0cded429 cygwin
try to replace all nnnL or nnnUL constants with EMACS_[U]INT
| author | Henry Thompson <ht@markup.co.uk> |
|---|---|
| date | Sun, 13 Dec 2015 13:22:58 +0000 |
| parents | d5eb0914ca1f |
| children |
line wrap: on
line diff
--- a/src/number.c Sat Dec 12 21:49:31 2015 +0000 +++ b/src/number.c Sun Dec 13 13:22:58 2015 +0000 @@ -389,7 +389,7 @@ args_out_of_range_3 (*val, Qzero, Vbigfloat_max_prec); prec = bignum_to_ulong (XBIGNUM_DATA (*val)); } - if (prec != 0UL) + if (prec != UE0) bigfloat_set_default_prec (prec); #endif return 0; @@ -406,7 +406,7 @@ return make_float (d); #ifdef HAVE_BIGFLOAT else - return make_bigfloat (d, 0UL); + return make_bigfloat (d, UE0); #endif } @@ -442,7 +442,7 @@ #ifdef HAVE_RATIO if (RATIOP (number) && bignum_fits_long_p (XRATIO_DENOMINATOR (number)) && - bignum_to_long (XRATIO_DENOMINATOR (number)) == 1L) + bignum_to_long (XRATIO_DENOMINATOR (number)) == E1) number = Fcanonicalize_number (make_bignum_bg (XRATIO_NUMERATOR (number))); #endif #ifdef HAVE_BIGNUM @@ -542,7 +542,7 @@ return number; case RATIO_T: #ifdef HAVE_RATIO - bignum_set_long (scratch_bignum, 1L); + bignum_set_long (scratch_bignum, E1); return make_ratio_bg (XBIGNUM_DATA (number), scratch_bignum); #else ABORT (); @@ -690,7 +690,7 @@ type2 == BIGFLOAT_T ? XBIGFLOAT_GET_PREC (*arg2) : #endif - 0UL); + UE0); return type2; } @@ -701,7 +701,7 @@ type1 == BIGFLOAT_T ? XBIGFLOAT_GET_PREC (*arg1) : #endif - 0UL); + UE0); return type1; } @@ -726,24 +726,24 @@ { CHECK_SYMBOL (type); if (EQ (type, Qfixnum)) - return internal_coerce_number (number, FIXNUM_T, 0UL); + return internal_coerce_number (number, FIXNUM_T, UE0); else if (EQ (type, Qinteger)) { /* If bignums are available, we always convert to one first, then downgrade to a fixnum if possible. */ #ifdef HAVE_BIGNUM return Fcanonicalize_number - (internal_coerce_number (number, BIGNUM_T, 0UL)); + (internal_coerce_number (number, BIGNUM_T, UE0)); #else - return internal_coerce_number (number, FIXNUM_T, 0UL); + return internal_coerce_number (number, FIXNUM_T, UE0); #endif } #ifdef HAVE_RATIO else if (EQ (type, Qratio)) - return internal_coerce_number (number, RATIO_T, 0UL); + return internal_coerce_number (number, RATIO_T, UE0); #endif else if (EQ (type, Qfloat)) - return internal_coerce_number (number, FLOAT_T, 0UL); + return internal_coerce_number (number, FLOAT_T, UE0); #ifdef HAVE_BIGFLOAT else if (EQ (type, Qbigfloat)) { @@ -858,7 +858,7 @@ reinit_vars_of_number (void) { #if defined(HAVE_BIGFLOAT) && defined(HAVE_BIGNUM) - Vbigfloat_max_prec = make_bignum (0L); + Vbigfloat_max_prec = make_bignum (E0); bignum_set_ulong (XBIGNUM_DATA (Vbigfloat_max_prec), ULONG_MAX); #endif }