Skip to content
Snippets Groups Projects
Commit e1d386bb authored by rtoy's avatar rtoy
Browse files

Remove old, unused vop.

parent d8674ec8
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment