X-Git-Url: https://erislabs.net/gitweb/?a=blobdiff_plain;f=m4%2Fremainderl.m4;h=db5ef3aaceeda3b94fb313cfa422b90ed659797a;hb=6e5f53c09490a510344a65d26f5e3989a048fcdf;hp=912f181230ac9bb46980929d294d2e44456c44dc;hpb=bf6909e5ca400414ed0730b7f64e48d04993936e;p=gnulib.git

diff --git a/m4/remainderl.m4 b/m4/remainderl.m4
index 912f18123..db5ef3aac 100644
--- a/m4/remainderl.m4
+++ b/m4/remainderl.m4
@@ -1,5 +1,5 @@
-# remainderl.m4 serial 4
-dnl Copyright (C) 2012 Free Software Foundation, Inc.
+# remainderl.m4 serial 7
+dnl Copyright (C) 2012-2013 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
 dnl with or without modifications, as long as this notice is preserved.
@@ -27,6 +27,11 @@ AC_DEFUN([gl_FUNC_REMAINDERL],
              # define __NO_MATH_INLINES 1 /* for glibc */
              #endif
              #include <math.h>
+             extern
+             #ifdef __cplusplus
+             "C"
+             #endif
+             long double remainderl (long double, long double);
              long double (*funcptr) (long double, long double) = remainderl;
              long double x;
              long double y;]],
@@ -37,9 +42,24 @@ AC_DEFUN([gl_FUNC_REMAINDERL],
     ])
   LIBS="$save_LIBS"
   if test $gl_cv_func_remainderl = yes; then
+    HAVE_REMAINDERL=1
     REMAINDERL_LIBM="$REMAINDER_LIBM"
+    dnl Also check whether it's declared.
+    dnl IRIX 6.5 has remainderl() in libm but doesn't declare it in <math.h>.
+    AC_CHECK_DECLS([remainderl], , [HAVE_DECL_REMAINDERL=0], [[#include <math.h>]])
+
+    save_LIBS="$LIBS"
+    LIBS="$LIBS $REMAINDERL_LIBM"
+    gl_FUNC_REMAINDERL_WORKS
+    LIBS="$save_LIBS"
+    case "$gl_cv_func_remainderl_works" in
+      *yes) ;;
+      *) REPLACE_REMAINDERL=1 ;;
+    esac
+
     m4_ifdef([gl_FUNC_REMAINDERL_IEEE], [
       if test $gl_remainderl_required = ieee && test $REPLACE_REMAINDERL = 0; then
+        AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
         AC_CACHE_CHECK([whether remainderl works according to ISO C 99 with IEC 60559],
           [gl_cv_func_remainderl_ieee],
           [
@@ -51,6 +71,11 @@ AC_DEFUN([gl_FUNC_REMAINDERL],
 # define __NO_MATH_INLINES 1 /* for glibc */
 #endif
 #include <math.h>
+extern
+#ifdef __cplusplus
+"C"
+#endif
+long double remainderl (long double, long double);
 /* Compare two numbers with ==.
    This is a separate function because IRIX 6.5 "cc -O" miscompiles an
    'x == x' test.  */
@@ -74,7 +99,13 @@ int main (int argc, char *argv[])
               ]])],
               [gl_cv_func_remainderl_ieee=yes],
               [gl_cv_func_remainderl_ieee=no],
-              [gl_cv_func_remainderl_ieee="guessing no"])
+              [case "$host_os" in
+                         # Guess yes on glibc systems.
+                 *-gnu*) gl_cv_func_remainderl_ieee="guessing yes" ;;
+                         # If we don't know, assume the worst.
+                 *)      gl_cv_func_remainderl_ieee="guessing no" ;;
+               esac
+              ])
             LIBS="$save_LIBS"
           ])
         case "$gl_cv_func_remainderl_ieee" in
@@ -85,6 +116,7 @@ int main (int argc, char *argv[])
     ])
   else
     HAVE_REMAINDERL=0
+    HAVE_DECL_REMAINDERL=0
   fi
   if test $HAVE_REMAINDERL = 0 || test $REPLACE_REMAINDERL = 1; then
     dnl Find libraries needed to link lib/remainderl.c.
@@ -114,3 +146,46 @@ int main (int argc, char *argv[])
   fi
   AC_SUBST([REMAINDERL_LIBM])
 ])
+
+dnl Test whether remainderl() works.
+dnl It produces completely wrong values on OpenBSD 5.1/SPARC.
+AC_DEFUN([gl_FUNC_REMAINDERL_WORKS],
+[
+  AC_REQUIRE([AC_PROG_CC])
+  AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
+  AC_CACHE_CHECK([whether remainderl works], [gl_cv_func_remainderl_works],
+    [
+      AC_RUN_IFELSE(
+        [AC_LANG_SOURCE([[
+#ifndef __NO_MATH_INLINES
+# define __NO_MATH_INLINES 1 /* for glibc */
+#endif
+#include <math.h>
+extern
+#ifdef __cplusplus
+"C"
+#endif
+long double remainderl (long double, long double);
+volatile long double x;
+volatile long double y;
+long double z;
+int main ()
+{
+  /* This test fails on OpenBSD 5.1/SPARC.  */
+  x = 9.245907126L;
+  y = 3.141592654L;
+  z = remainderl (x, y);
+  if (z >= 0.0L)
+    return 1;
+  return 0;
+}
+]])],
+        [gl_cv_func_remainderl_works=yes],
+        [gl_cv_func_remainderl_works=no],
+        [case "$host_os" in
+           openbsd*) gl_cv_func_remainderl_works="guessing no";;
+           *)        gl_cv_func_remainderl_works="guessing yes";;
+         esac
+        ])
+    ])
+])