From 55b39642e23626ed6e6e828dfd6288d78528cb3f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 25 Sep 2025 14:40:20 +0200 Subject: [PATCH] =?UTF-8?q?gnu:=20guile-fibers@1.4:=20Disable=20JIT=20for?= =?UTF-8?q?=20=E2=80=98make=20check=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes guix/guix#2474. * gnu/packages/guile-xyz.scm (guile-fibers-1.4)[arguments]: Add ‘disable-jit’ phase on AArch64. Change-Id: Idad1a5e1a84d29259bf1ed4a284f9981c50defb8 --- gnu/packages/guile-xyz.scm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index b5b6a3b887b25eb651b91c1eb60fb3fb9ef02216..ad45984a06492f5d43b26c29bbdaf4a11c0b7d84 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -1189,7 +1189,20 @@ is not available for Guile 2.0.") (base32 "15ynxr3pfjscd6mz641zagv6i84jh9y65i5dnbb3j3q72j6bbvnb")) (patches '()))) - (arguments '()))) + (arguments + (if (target-aarch64?) + (list #:phases + #~(modify-phases %standard-phases + (add-before 'check 'disable-jit + (lambda _ + ;; XXX: Due to a JIT bug in Guile 3.0.9 on AArch64, + ;; some tests would hang: + ;; . + ;; Disable JIT for now; re-enable it when Guile 3.0.10+ + ;; is used. (Note: The Shepherd disables JIT on + ;; AArch64 so it can safely use Fibers.) + (setenv "GUILE_JIT_THRESHOLD" "-1"))))) + '())))) (define-public guile-fibers guile-fibers-1.4)