From d2c2e7f4d697bd5d5aa577d4066bb54d583450ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 23 Dec 2025 00:18:19 +0100
Subject: [PATCH] services: cuirass-remote-worker: Disable JIT on AArch64.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/services/cuirass.scm (cuirass-remote-worker-shepherd-service):
Pass #:environment-variables to ‘make-forkexec-constructor’.

Fixes: guix/guix#5052
Change-Id: Ibbf5aae9c6e62983c8e7f2eda310f68aef2edc8b
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #5053
---
 gnu/services/cuirass.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index e813b7cfdb8..8e3b01e514e 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -500,7 +500,16 @@ CONFIG."
                                    (string-append "--private-key="
                                                   private-key))
                                   '()))
-                    #:log-file #$log-file))
+
+                     ;; Work around
+                     ;; <https://codeberg.org/guile/fibers/issues/83>.
+                     ;; TODO: Remove when using Guile > 3.0.9.
+                     #:environment-variables
+                     (if (string-prefix? "aarch64-" %host-type)
+                         '("GUILE_JIT_THRESHOLD=-1")
+                         '())
+
+                     #:log-file #$log-file))
            (stop #~(make-kill-destructor))))))
 
 (define cuirass-remote-worker-service-type