From: David Lichteblau <david@lichteblau.com>
Date: Thu, 7 Jun 2012 21:49:34 +0000 (+0200)
Subject: Simplify ppc's MOVE-TO-WORD/INTEGER
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7535b0588e15caa57361a409182ecb6d71696214;p=sbcl.git

Simplify ppc's MOVE-TO-WORD/INTEGER
---

diff --git a/src/compiler/ppc/move.lisp b/src/compiler/ppc/move.lisp
index 63011ee..e0c83fe 100644
--- a/src/compiler/ppc/move.lisp
+++ b/src/compiler/ppc/move.lisp
@@ -168,11 +168,7 @@
   (:generator 4
     (let ((done (gen-label)))
       (inst andi. temp x fixnum-tag-mask)
-      (sc-case y
-        (signed-reg
-         (inst srawi y x n-fixnum-tag-bits))
-        (unsigned-reg
-         (inst srwi y x n-fixnum-tag-bits)))
+      (inst srawi y x n-fixnum-tag-bits)
 
       (inst beq done)
       (loadw y x bignum-digits-offset other-pointer-lowtag)