diff options
-rw-r--r-- | share/txr/stdlib/asm.tl | 2 | ||||
-rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index a03ead4e..74ba5866 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -135,7 +135,7 @@ (defmeth assembler immediate-fits-type (me arg operand-type) (and (member (typeof arg) - '(fixnum bignum chr)) + '(fixnum chr)) (<= (+ (width arg) [me.sign-bits (typeof arg)] 2) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 886cad47..4275daf0 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -339,7 +339,7 @@ (defmeth compiler comp-atom (me oreg form) (cond ((null form) (new (frag '(t 0) nil))) - ((or (and (integerp form) + ((or (and (fixnump form) (<= (width form) (- %imm-width% 3))) (chrp form)) (new (frag oreg ^((movi ,oreg ,form))))) |