mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 14:21:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in number.d (CL_FIXNUM_BITS -> FIXNUM_BITS).

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-08-21 22:07:43 +02:00
parent 61b7c0ac31
commit 3556aae864
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/number.d
View file

@ -390,13 +390,13 @@ ecl_to_unsigned_long_long(cl_object x) {
return (ecl_ulong_long_t)mpz_get_ui(x->big.big_num);
} else {
cl_object copy = big_register0_get();
int i = ECL_LONG_LONG_BITS - CL_FIXNUM_BITS;
int i = ECL_LONG_LONG_BITS - FIXNUM_BITS;
mpz_fdiv_q_2exp(copy->bit.big_num, x->big.big_num, i);
if (mpz_fits_ulong_p(copy->big.big_num)) {
volatile ecl_ulong_long_t output;
output = mpz_get_ui(copy->big.big_num);
for (i -= CL_FIXNUM_BITS; i; i-= CL_FIXNUM_BITS) {
output = (output << CL_FIXNUM_BITS);
for (i -= FIXNUM_BITS; i; i-= FIXNUM_BITS) {
output = (output << FIXNUM_BITS);
output += mpz_get_ui(x->big.big_num);
}
return output;
@ -422,13 +422,13 @@ ecl_to_long_long(cl_object x)
return (ecl_long_long_t)mpz_get_si(x->big.big_num);
} else {
cl_object copy = big_register0_get();
int i = ECL_LONG_LONG_BITS - CL_FIXNUM_BITS;
int i = ECL_LONG_LONG_BITS - FIXNUM_BITS;
mpz_fdiv_q_2exp(copy->bit.big_num, x->big.big_num, i);
if (mpz_fits_ulong_p(copy->big.big_num)) {
volatile ecl_long_long_t output;
output = mpz_get_si(copy->big.big_num);
for (i -= CL_FIXNUM_BITS; i; i-= CL_FIXNUM_BITS) {
output = (output << CL_FIXNUM_BITS);
for (i -= FIXNUM_BITS; i; i-= FIXNUM_BITS) {
output = (output << FIXNUM_BITS);
output += mpz_get_ui(x->big.big_num);
}
return output;