From: Gabor Melis <mega@hotpop.com>
Date: Tue, 21 Apr 2009 11:30:38 +0000 (+0000)
Subject: 1.0.27.16: slightly smaller LISTIFY-REST-ARGS on x86/x86-64
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a9817f3c36bf28a8c50814beea31aecbc5ac8473;p=sbcl.git

1.0.27.16: slightly smaller LISTIFY-REST-ARGS on x86/x86-64
---

diff --git a/src/compiler/x86-64/call.lisp b/src/compiler/x86-64/call.lisp
index be785c1..28da0dd 100644
--- a/src/compiler/x86-64/call.lisp
+++ b/src/compiler/x86-64/call.lisp
@@ -1224,7 +1224,6 @@
       (inst lea dst (make-ea :qword :base rcx :index rcx))
       (maybe-pseudo-atomic stack-allocate-p
        (allocation dst dst node stack-allocate-p list-pointer-lowtag)
-       (inst shr rcx (1- n-lowtag-bits))
        ;; Set decrement mode (successive args at lower addresses)
        (inst std)
        ;; Set up the result.
@@ -1242,7 +1241,7 @@
        (inst lods rax)
        (storew rax dst 0 list-pointer-lowtag)
        ;; Go back for more.
-       (inst sub rcx 1)
+       (inst sub rcx n-word-bytes)
        (inst jmp :nz loop)
        ;; NIL out the last cons.
        (storew nil-value dst 1 list-pointer-lowtag)
diff --git a/src/compiler/x86/call.lisp b/src/compiler/x86/call.lisp
index fa0c163..3fec798 100644
--- a/src/compiler/x86/call.lisp
+++ b/src/compiler/x86/call.lisp
@@ -1253,7 +1253,6 @@
       (inst lea dst (make-ea :dword :base ecx :index ecx))
       (maybe-pseudo-atomic stack-allocate-p
        (allocation dst dst node stack-allocate-p list-pointer-lowtag)
-       (inst shr ecx (1- n-lowtag-bits))
        ;; Set decrement mode (successive args at lower addresses)
        (inst std)
        ;; Set up the result.
@@ -1271,7 +1270,7 @@
        (inst lods eax)
        (storew eax dst 0 list-pointer-lowtag)
        ;; Go back for more.
-       (inst sub ecx 1)
+       (inst sub ecx n-word-bytes)
        (inst jmp :nz loop)
        ;; NIL out the last cons.
        (storew nil-value dst 1 list-pointer-lowtag)
diff --git a/version.lisp-expr b/version.lisp-expr
index e939f45..4c2ca0d 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.27.15"
+"1.0.27.16"