Update of /cvsroot/sbcl/sbcl/src/compiler/alpha
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv22620/src/compiler/alpha
Modified Files:
move.lisp
Log Message:
1.0.30.3: deal with load-time-value constants more aggressively
* Revert 1.0.29.54.rc5 to allow constant moves from LTV TNs.
* Modify the relevant VOPs to handle LTV constants correctly.
While this mostly results in duplicated code, VOPs can generate
better code even for unknown values in the constant vector.
Index: move.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/move.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- move.lisp 14 Jul 2005 16:30:43 -0000 1.9
+++ move.lisp 18 Jul 2009 17:53:00 -0000 1.10
@@ -161,7 +161,11 @@
(:results (y :scs (signed-reg unsigned-reg)))
(:note "constant load")
(:generator 1
- (inst li (tn-value x) y)))
+ (cond ((sc!c::tn-leaf x)
+ (inst li (tn-value x) y))
+ (t
+ (loadw y code-tn (tn-offset x) other-pointer-lowtag)
+ (inst sra y n-fixnum-tag-bits y)))))
(define-move-vop move-to-word-c :move
(constant) (signed-reg unsigned-reg))
|