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

Fixed typo in _ecl_big_set_fixnum() for (long < cl_fixnum)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-08-19 22:15:45 +02:00
parent 806a6553f7
commit 3e44d52978
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/big.d
View file

@ -369,7 +369,7 @@ _ecl_big_set_fixnum(cl_object x, cl_fixnum f)
ECL_BIGNUM_LIMBS(x)[0] = f;
} else if (f < 0) {
ECL_BIGNUM_SIZE(x) = -1;
ECL_BIGNUM_LIMBS(x) = -f;
ECL_BIGNUM_LIMBS(x)[0] = -f;
}
}
@ -381,9 +381,6 @@ _ecl_big_set_index(cl_object x, cl_index f)
} else if (f > 0) {
ECL_BIGNUM_SIZE(x) = 1;
ECL_BIGNUM_LIMBS(x)[0] = f;
} else if (f < 0) {
ECL_BIGNUM_SIZE(x) = -1;
ECL_BIGNUM_LIMBS(x)[0] = -f;
}
}