From 7535b0588e15caa57361a409182ecb6d71696214 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Thu, 7 Jun 2012 23:49:34 +0200 Subject: [PATCH] Simplify ppc's MOVE-TO-WORD/INTEGER --- src/compiler/ppc/move.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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) -- 1.7.10.4