[Bug libc/34509] [m68k] Regression: Perl locks up after upgrading glibc to 2.43

https://sourceware.org/bugzilla/show_bug.cgi?id=34509

--- Comment #6 from Adhemerval Zanella <adhemerval.zanella at linaro dot org> ---
Ok, I think I broke with 6deadd4eb6a and ade9f30ce27. Does this fix the issue:

diff --git a/sysdeps/m68k/m680x0/fpu/e_fmod.c
b/sysdeps/m68k/m680x0/fpu/e_fmod.c
index 9ad6924422e..faac7c79e38 100644
--- a/sysdeps/m68k/m680x0/fpu/e_fmod.c
+++ b/sysdeps/m68k/m680x0/fpu/e_fmod.c
@@ -33,7 +33,7 @@ __fmod (double x, double y)
                        && !is_nan (hx)))
     return __math_invalid (x);

-  return __m81_u(fmod)(x, y);
+  return __m81_u(__ieee754_fmod)(x, y);
 }
 strong_alias (__fmod, __ieee754_fmod)
 libm_alias_finite (__ieee754_fmod, __fmod)
diff --git a/sysdeps/m68k/m680x0/fpu/e_fmodf.c
b/sysdeps/m68k/m680x0/fpu/e_fmodf.c
index a3bd24b71f0..98797e08874 100644
--- a/sysdeps/m68k/m680x0/fpu/e_fmodf.c
+++ b/sysdeps/m68k/m680x0/fpu/e_fmodf.c
@@ -34,7 +34,7 @@ __fmodf (float x, float y)
                        && !is_nan (hx)))
     return __math_invalidf (x);

-  return __m81_u(fmodf)(x, y);
+  return __m81_u(__ieee754_fmodf)(x, y);
 }
 strong_alias (__fmodf, __ieee754_fmodf)
 versioned_symbol (libm, __fmodf, fmodf, GLIBC_2_43);

-- 
You are receiving this mail because:
You are on the CC list for the bug.