1.0.27.16: slightly smaller LISTIFY-REST-ARGS on x86/x86-64
authorGabor Melis <mega@hotpop.com>
Tue, 21 Apr 2009 11:30:38 +0000 (11:30 +0000)
committerGabor Melis <mega@hotpop.com>
Tue, 21 Apr 2009 11:30:38 +0000 (11:30 +0000)
src/compiler/x86-64/call.lisp
src/compiler/x86/call.lisp
version.lisp-expr

index be785c1..28da0dd 100644 (file)
       (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.
        (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)
index fa0c163..3fec798 100644 (file)
       (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.
        (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)
index e939f45..4c2ca0d 100644 (file)
@@ -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"