From bb144c9d0f653d19d32bb1a703b445a651cb131f Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Tue, 1 Jan 2013 10:34:38 -0800
Subject: [PATCH] Micro-optimization for move-from-signed, eliminating one
 inst.

---
 src/compiler/sparc/move.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/compiler/sparc/move.lisp b/src/compiler/sparc/move.lisp
index 6ad7391f9..7b683b5c0 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)
       
-- 
GitLab