X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fmove.lisp;h=e0c83feb4965fa3843393d1d7085aa5a23dd4f53;hb=f980e90c5539626c007de121278e66acdb91d37c;hp=63011ee8075fd8c434a405c4bb7b8a04d8feadc8;hpb=94023958a1013881e38745f443240f905c1b4a0b;p=sbcl.git

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)