From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Tue, 14 Feb 2006 19:30:12 +0000 (+0000)
Subject: 0.9.9.30:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3fb47b51497ebc70f2be4c5792885f16bfebfd48;p=sbcl.git

0.9.9.30:
	PPC micro-optimization of COPY-MORE-ARG VOP.  Use LWZU/STWU to
	  avoid ADDI instructions.
---

diff --git a/src/compiler/ppc/call.lisp b/src/compiler/ppc/call.lisp
index cdbadcc..ece3e57 100644
--- a/src/compiler/ppc/call.lisp
+++ b/src/compiler/ppc/call.lisp
@@ -1043,11 +1043,9 @@ default-value-8
 
       (emit-label loop)
       ;; *--dst = *--src, --count
-      (inst addi src src (- n-word-bytes))
       (inst addic. count count (- (fixnumize 1)))
-      (loadw temp src)
-      (inst addi dst dst (- n-word-bytes))
-      (storew temp dst)
+      (inst lwzu temp src (- n-word-bytes))
+      (inst stwu temp dst (- n-word-bytes))
       (inst bgt loop)
 
       (emit-label do-regs)
diff --git a/version.lisp-expr b/version.lisp-expr
index cc83ade..c45488e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.9.29"
+"0.9.9.30"