common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Use CMP instead of SUBS when possible

Browse source
This commit is contained in:
Stas Boukarev 2026-09-02 10:32:28 +03:00
parent 4ab4654f68
commit c8d0ca77a9
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/compiler/arm64/call.lisp
View file

@ -360,8 +360,16 @@
(assemble ()
;; ... Load it if there is a stack value available, or
;; default it if there isn't.
(inst subs nargs-tn nargs-tn decrement)
(setf decrement (fixnumize 1))
#+tls-based-mv-return
(progn
(inst cmp nargs-tn decrement)
(incf decrement (fixnumize 1)))
#-tls-based-mv-return
(progn
(if (tn-ref-across val) ;; more to come
(inst subs nargs-tn nargs-tn decrement)
(inst cmp nargs-tn decrement))
(setf decrement (fixnumize 1)))
(unless (sc-is tn control-stack)
(setf dst tn))
(when stack-targets-p