From f1109de3da81a64f388e09eb221f62329afae03d Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Thu, 23 Apr 2026 13:28:19 +0300
Subject: [PATCH] arm64, callbacks: return float results in the right register

---
 src/compiler/arm64/c-call.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/compiler/arm64/c-call.lisp b/src/compiler/arm64/c-call.lisp
index 129c87fe0..e48022704 100644
--- a/src/compiler/arm64/c-call.lisp
+++ b/src/compiler/arm64/c-call.lisp
@@ -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