From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Tue, 5 Dec 2006 20:10:25 +0000 (+0000)
Subject: 1.0.0.23:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=42c8db936ab8874bdcbacfe55de9cb9b933db687;p=sbcl.git

1.0.0.23:
	Use more efficent base+index lea instruction in %LISTIFY-REST-ARGS.
---

diff --git a/src/compiler/x86/call.lisp b/src/compiler/x86/call.lisp
index ad0bac1..c4200f3 100644
--- a/src/compiler/x86/call.lisp
+++ b/src/compiler/x86/call.lisp
@@ -1363,7 +1363,7 @@
       ;; Check to see whether there are no args, and just return NIL if so.
       (inst mov result nil-value)
       (inst jecxz done)
-      (inst lea dst (make-ea :dword :index ecx :scale 2))
+      (inst lea dst (make-ea :dword :base ecx :index ecx))
       (maybe-pseudo-atomic stack-allocate-p
        (allocation dst dst node stack-allocate-p)
        (inst lea dst (make-ea :byte :base dst :disp list-pointer-lowtag))
diff --git a/version.lisp-expr b/version.lisp-expr
index 3e2c6ff..f63e977 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".)
-"1.0.0.22"
+"1.0.0.23"