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

More fixes about integer types.

Browse source
This commit is contained in:
jjgarcia 2002-12-09 12:51:40 +00:00
parent 1b64032b99
commit 43099ff052
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/num_arith.d
View file

@ -796,7 +796,7 @@ one_plus(cl_object x)
case t_fixnum:
if (x == MAKE_FIXNUM(MOST_POSITIVE_FIXNUM))
return(bignum1(MOST_POSITIVE_FIXNUM+1));
return (cl_object)((int)x + ((int)MAKE_FIXNUM(1) - FIXNUM_TAG));
return (cl_object)((cl_fixnum)x + ((cl_fixnum)MAKE_FIXNUM(1) - FIXNUM_TAG));
case t_bignum:
return(number_plus(x, MAKE_FIXNUM(1)));
@ -842,7 +842,7 @@ one_minus(cl_object x)
case t_fixnum:
if (x == MAKE_FIXNUM(MOST_NEGATIVE_FIXNUM))
return(bignum1(MOST_NEGATIVE_FIXNUM-1));
return (cl_object)((int)x - ((int)MAKE_FIXNUM(1) - FIXNUM_TAG));
return (cl_object)((cl_fixnum)x - ((cl_fixnum)MAKE_FIXNUM(1) - FIXNUM_TAG));
case t_bignum:
return(number_minus(x, MAKE_FIXNUM(1)));