diff --git a/src/compiler/sparc/move.lisp b/src/compiler/sparc/move.lisp index 6ad7391f9fe7931c74a668b9904c569dc221ba5d..7b683b5c0dae594be7a27bbef0f99ce426797549 100644 --- a/src/compiler/sparc/move.lisp +++ b/src/compiler/sparc/move.lisp @@ -260,8 +260,7 @@ ;; Frode Vatvedt Fjeld: (zerop (logand #b110 (1+ temp))) (inst srln temp x positive-fixnum-bits) (inst add temp 1) - (inst and temp #b110) - (inst cmp temp) + (inst andcc temp #b110) (inst b :eq done) (inst slln y x fixnum-tag-bits)