From a592ce914d98a51af73cb45f7daa87e09e322ff2 Mon Sep 17 00:00:00 2001 From: Dongkyun Son Date: Mon, 1 Apr 2024 17:37:23 +0900 Subject: [PATCH] FIXME: fix build issue temporarily (bug 31488) This is fmod W/A till upstream patch is ready, which should be File: /usr/lib/libm.a(w_fmod.o) 12: 00000000 112 FUNC WEAK DEFAULT 2 fmod File: /usr/lib/libm.a(w_fmodf.o) 11: 00000000 107 FUNC WEAK DEFAULT 2 fmodf Change-Id: I28e758c3f9908ee2a778e33df8105ce65d823d2b Signed-off-by: Dongkyun Son --- libguile/numbers.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index 13223f8cb..5004c2a4a 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -725,7 +725,7 @@ SCM_PRIMITIVE_GENERIC (scm_odd_p, "odd?", 1, 0, 0, double val = SCM_REAL_VALUE (n); if (isfinite (val)) { - double rem = fabs (fmod (val, 2.0)); + double rem = fabs (fmodl (val, 2.0)); if (rem == 1.0) return SCM_BOOL_T; else if (rem == 0.0) @@ -759,7 +759,7 @@ SCM_PRIMITIVE_GENERIC (scm_even_p, "even?", 1, 0, 0, double val = SCM_REAL_VALUE (n); if (isfinite (val)) { - double rem = fabs (fmod (val, 2.0)); + double rem = fabs (fmodl (val, 2.0)); if (rem == 1.0) return SCM_BOOL_F; else if (rem == 0.0) -- 2.34.1