master: arm64: store to the untagged pointer after allocation

The branch "master" has been updated in SBCL:
       via  12202855b6eba93ec328095f3c0e5ea5f29a96ed (commit)
      from  a6ebdf5177a6eb4259176d21673678296a41ec90 (commit)

- Log -----------------------------------------------------------------
commit 12202855b6eba93ec328095f3c0e5ea5f29a96ed
Author: Stas Boukarev <[email protected]>
Date:   Sat Aug 29 19:17:26 2026 +0300

    arm64: store to the untagged pointer after allocation
    
    Not much of a difference, maybe fewer dependencies.
---
 src/compiler/arm64/alloc.lisp  | 2 +-
 src/compiler/arm64/array.lisp  | 2 +-
 src/compiler/arm64/macros.lisp | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/compiler/arm64/alloc.lisp b/src/compiler/arm64/alloc.lisp
index 31b782ae4..ef04f2fe0 100644
--- a/src/compiler/arm64/alloc.lisp
+++ b/src/compiler/arm64/alloc.lisp
@@ -166,7 +166,7 @@
     ;; Allocate the object and set its header
     (pseudo-atomic (lr)
       (allocation nil bytes lowtag result :flag-tn lr)
-      (storew header result 0 lowtag))))
+      (storew header tmp-tn))))
 
 #+(and sb-xc-host immobile-space)
 (define-vop (alloc-immobile-fixedobj)
diff --git a/src/compiler/arm64/array.lisp b/src/compiler/arm64/array.lisp
index eb747f361..cadc682ce 100644
--- a/src/compiler/arm64/array.lisp
+++ b/src/compiler/arm64/array.lisp
@@ -40,7 +40,7 @@
       (inst orr ndescr type (lsl ndescr array-rank-position))
       (inst lsr ndescr ndescr n-fixnum-tag-bits)
       ;; And store the header value.
-      (storew ndescr header 0 other-pointer-lowtag))
+      (storew ndescr tmp-tn))
     (move result header)))
 
 ;;;; Additional accessors and setters for the array header.
diff --git a/src/compiler/arm64/macros.lisp b/src/compiler/arm64/macros.lisp
index dc2882435..7be2f5a9e 100644
--- a/src/compiler/arm64/macros.lisp
+++ b/src/compiler/arm64/macros.lisp
@@ -247,7 +247,7 @@
        (when ,type-code
          (load-immediate-word ,flag-tn (compute-object-header ,size ,type-code))
          ,@(and store-type-code
-                `((storew ,flag-tn ,result-tn 0 ,lowtag))))
+                `((storew ,flag-tn tmp-tn))))
        ,@body)))
 
 ;;;; Error Code

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


hooks/post-receive
-- 
SBCL