[Sbcl-commits] master: x86-64: use storew* in with-fixed-allocation.

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  5dfd9d63ae8bee0afebec566b374e82851cd1e8c (commit)
      from  fd14fa5697d97ed5b64937c403a66df8151dccfc (commit)

- Log -----------------------------------------------------------------
commit 5dfd9d63ae8bee0afebec566b374e82851cd1e8c
Author: Stas Boukarev <sta...@gm...>
Date:   Tue Oct 4 07:18:17 2016 +0300

    x86-64: use storew* in with-fixed-allocation.
---
 src/compiler/x86-64/macros.lisp |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index 966ffce..88bf16d 100644
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -262,8 +262,9 @@
     `(maybe-pseudo-atomic ,stack-allocate-p
       (allocation ,result-tn (pad-data-block ,size) ,inline ,stack-allocate-p
                   other-pointer-lowtag)
-      (storew (logior (ash (1- ,size) n-widetag-bits) ,widetag)
-              ,result-tn 0 other-pointer-lowtag)
+      (storew* (logior (ash (1- ,size) n-widetag-bits) ,widetag)
+               ,result-tn 0 other-pointer-lowtag
+               (not ,stack-allocate-p))
       ,@forms)))
 
 ;;;; error code

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL