diff --git a/compiler/ppc/move.lisp b/compiler/ppc/move.lisp index 468c9a1b14169b87ff5d2b889965b019bd013918..f6b5a726e41769430ac4d6026a7016952e242bbc 100644 --- a/compiler/ppc/move.lisp +++ b/compiler/ppc/move.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/move.lisp,v 1.4 2004/08/08 11:18:07 rtoy Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/move.lisp,v 1.5 2004/08/09 03:30:48 rtoy Exp $ ;;; ;;; This file contains the SPARC VM definition of operand loading/saving and ;;; the Move VOP. @@ -239,36 +239,6 @@ ;;; Check for fixnum, and possibly allocate one or two word bignum result. Use ;;; a worst-case cost to make sure people know they may be number consing. ;;; -#+nil -(define-vop (move-from-unsigned) - (:args (arg :scs (signed-reg unsigned-reg) :target x)) - (:results (y :scs (any-reg descriptor-reg))) - (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) x temp) - (:temporary (:sc non-descriptor-reg :offset nl3-offset) pa-flag) - (:note "unsigned word to integer coercion") - (:generator 20 - (move x arg) - (let ((done (gen-label)) - (one-word (gen-label)) - (initial-alloc (pad-data-block (1+ bignum-digits-offset)))) - (inst srawi. temp x 29) - (inst slwi y x 2) - (inst beq done) - - (pseudo-atomic (pa-flag :extra initial-alloc) - (inst cmpwi x 0) - (inst ori y alloc-tn other-pointer-type) - (inst li temp (logior (ash 1 type-bits) bignum-type)) - (inst bge one-word) - (inst addi alloc-tn alloc-tn - (- (pad-data-block (+ bignum-digits-offset 2)) - (pad-data-block (+ bignum-digits-offset 1)))) - (inst li temp (logior (ash 2 type-bits) bignum-type)) - (emit-label one-word) - (storew temp y 0 other-pointer-type) - (storew x y bignum-digits-offset other-pointer-type)) - (emit-label done)))) - (define-vop (move-from-unsigned) (:args (arg :scs (signed-reg unsigned-reg) :target x)) (:results (y :scs (any-reg descriptor-reg)))