Micro-optimization for move-from-signed, eliminating one inst.

diff --git a/src/compiler/sparc/move.lisp b/src/compiler/sparc/move.lisp
index 6ad7391..7b683b5 100644 (file)
--- 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)