isinf: Remove support for IRIX.

* m4/isinf.m4 (gl_ISINFL_WORKS): Remove code for IRIX.

diff --git a/ChangeLog b/ChangeLog
index faf70183e374374bdf377a33d6f56f812e82bba6..a061c2a12acd05e3328013793d89a2e013db90f8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2025-09-10  Bruno Haible  <bruno@clisp.org>
 
+       isinf: Remove support for IRIX.
+       * m4/isinf.m4 (gl_ISINFL_WORKS): Remove code for IRIX.
+
        isfinite: Remove support for IRIX.
        * m4/isfinite.m4 (gl_ISFINITEL_WORKS): Remove code for IRIX.
 

diff --git a/m4/isinf.m4 b/m4/isinf.m4
index 01df5dea98f9bd73125cd08f749f7fd2526ebfcf..74bbeac8757c4845987850a6102b785ca1130837 100644 (file)
--- a/m4/isinf.m4
+++ b/m4/isinf.m4
@@ -1,5 +1,5 @@
 # isinf.m4
-# serial 15
+# serial 16
 dnl Copyright (C) 2007-2025 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
@@ -65,17 +65,6 @@ AC_DEFUN([gl_ISINFL_WORKS],
   ((sizeof (long double) + sizeof (unsigned int) - 1) / sizeof (unsigned int))
 typedef union { unsigned int word[NWORDS]; long double value; }
         memory_long_double;
-/* On Irix 6.5, gcc 3.4.3 can't compute compile-time NaN, and needs the
-   runtime type conversion.  */
-#ifdef __sgi
-static long double NaNl ()
-{
-  double zero = 0.0;
-  return zero / zero;
-}
-#else
-# define NaNl() (0.0L / 0.0L)
-#endif
 int main ()
 {
   int result = 0;
@@ -91,7 +80,7 @@ int main ()
        in the mantissa bits.  The xor operation twiddles a bit that can only be
        a sign bit or a mantissa bit (since the exponent never extends to
        bit 31).  */
-    m.value = NaNl ();
+    m.value = 0.0L / 0.0L;
     m.word[NWORDS / 2] ^= (unsigned int) 1 << (sizeof (unsigned int) * CHAR_BIT - 1);
     for (i = 0; i < NWORDS; i++)
       m.word[i] |= 1;