X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fmove.lisp;h=e0c83feb4965fa3843393d1d7085aa5a23dd4f53;hb=74cf7a4d01664fbf72a662ba093ad67ca243b524;hp=e5b8324b494f5cd16335923e1cd1cf60dec3ba5b;hpb=7deecae2d959173eda6a153d490c752c32050a9e;p=sbcl.git

diff --git a/src/compiler/ppc/move.lisp b/src/compiler/ppc/move.lisp
index e5b8324..e0c83fe 100644
--- a/src/compiler/ppc/move.lisp
+++ b/src/compiler/ppc/move.lisp
@@ -33,7 +33,7 @@
 
 (define-move-fun (load-character 1) (vop x y)
   ((immediate) (character-reg))
-  (inst li y (char-code (tn-value x))))
+  (inst lr y (char-code (tn-value x))))
 
 (define-move-fun (load-system-area-pointer 1) (vop x y)
   ((immediate) (sap-reg))
@@ -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)