master: arm64: can't call sc-is on unused tns

stassats via Sbcl-commits <[email protected]> Sun, 07 Jun 2026 01:46:05 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  ddedba22893371ebb96b2b81865eefd2ba27ab6d (commit)
      from  db0328683bd10509f6c02f5c6e41716ebf18e6c2 (commit)

- Log -----------------------------------------------------------------
commit ddedba22893371ebb96b2b81865eefd2ba27ab6d
Author: Stas Boukarev <[email protected]>
Date:   Sun Jun 7 04:44:38 2026 +0300

    arm64: can't call sc-is on unused tns
    
    Fixes lp#2155788
---
 src/compiler/arm64/call.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/arm64/call.lisp b/src/compiler/arm64/call.lisp
index 6541cd427..4256d0245 100644
--- a/src/compiler/arm64/call.lisp
+++ b/src/compiler/arm64/call.lisp
@@ -313,8 +313,8 @@
                                   (next-tn (and next
                                                 (tn-ref-tn next))))
                              (cond ((and next-tn
+                                         (neq (tn-kind next-tn) :unused)
                                          (not (sc-is next-tn control-stack))
-                                         (neq (tn-kind next-tn) :unused)
                                          (ldp-stp-offset-p (* i n-word-bytes) n-word-bits))
                                     (inst ldp move-temp next-tn
                                           (@ ocfp-tn (* i n-word-bytes)))

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


hooks/post-receive
-- 
SBCL