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

arm64, callbacks: return float results in the right register

Browse source
This commit is contained in:
Stas Boukarev 2026-04-23 13:28:19 +03:00
parent 3d222e98b2
commit f1109de3da
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/compiler/arm64/c-call.lisp
View file

@ -869,10 +869,10 @@
result-type))
(loadw r0-tn nsp-tn))
((alien-float-type-p result-type)
(loadw (make-tn fp-registers
(if (alien-single-float-type-p result-type)
'single-reg
'double-reg))
(loadw (make-tn 0
(if (alien-single-float-type-p result-type)
'single-reg
'double-reg))
nsp-tn))
((alien-void-type-p result-type))
;; Struct return types