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

Failure in checking for integer constants.

Browse source
This commit is contained in:
jjgarcia 2008-06-19 16:41:15 +00:00
parent 7a1fd864e1
commit da0452752b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -1936,7 +1936,7 @@ compile_form(cl_object stmt, int flags) {
cl_fixnum n;
if (stmt == Cnil) {
asm_op(push? OP_PUSHNIL : OP_NIL);
} else if (FIXNUMP(stmt) && (n = fix(stmt), abs(n)) <= MAX_OPARG) {
} else if (FIXNUMP(stmt) && (n = fix(stmt)) <= MAX_OPARG && n >= -MAX_OPARG) {
asm_op2(push? OP_PINT : OP_INT, n);
} else {
asm_op2c(push? OP_PUSHQ : OP_QUOTE, stmt);