From 8145bea176e33c017446454046808d083f8f9bb0 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Tue, 20 Dec 2016 18:54:08 -0500 Subject: [PATCH] x86-64: shorten MAKE-CLOSURE by a few bytes usually --- src/compiler/x86-64/alloc.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/x86-64/alloc.lisp b/src/compiler/x86-64/alloc.lisp index 3e352bd00..d1fe26336 100644 --- a/src/compiler/x86-64/alloc.lisp +++ b/src/compiler/x86-64/alloc.lisp @@ -293,8 +293,8 @@ (let ((size (+ length closure-info-offset))) (allocation result (pad-data-block size) node stack-allocate-p fun-pointer-lowtag) - (storew (logior (ash (1- size) n-widetag-bits) closure-header-widetag) - result 0 fun-pointer-lowtag)) + (storew* (logior (ash (1- size) n-widetag-bits) closure-header-widetag) + result 0 fun-pointer-lowtag (not stack-allocate-p))) (loadw temp function closure-fun-slot fun-pointer-lowtag) (storew temp result closure-fun-slot fun-pointer-lowtag)))) -- 2.11.4.GIT