log10.m4 3.09 KB
Newer Older
1
# log10.m4 serial 7
2
dnl Copyright (C) 2011-2018 Free Software Foundation, Inc.
Bruno Haible's avatar
Bruno Haible committed
3 4 5 6 7 8
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.

AC_DEFUN([gl_FUNC_LOG10],
[
9
  m4_divert_text([DEFAULTS], [gl_log10_required=plain])
10 11
  AC_REQUIRE([gl_MATH_H_DEFAULTS])

Bruno Haible's avatar
Bruno Haible committed
12 13
  dnl Determine LOG10_LIBM.
  gl_COMMON_DOUBLE_MATHFUNC([log10])
14 15 16 17 18 19 20 21 22

  save_LIBS="$LIBS"
  LIBS="$LIBS $LOG10_LIBM"
  gl_FUNC_LOG10_WORKS
  LIBS="$save_LIBS"
  case "$gl_cv_func_log10_works" in
    *yes) ;;
    *) REPLACE_LOG10=1 ;;
  esac
23 24 25

  m4_ifdef([gl_FUNC_LOG10_IEEE], [
    if test $gl_log10_required = ieee && test $REPLACE_LOG10 = 0; then
26
      AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
      AC_CACHE_CHECK([whether log10 works according to ISO C 99 with IEC 60559],
        [gl_cv_func_log10_ieee],
        [
          save_LIBS="$LIBS"
          LIBS="$LIBS $LOG10_LIBM"
          AC_RUN_IFELSE(
            [AC_LANG_SOURCE([[
#ifndef __NO_MATH_INLINES
# define __NO_MATH_INLINES 1 /* for glibc */
#endif
#include <math.h>
/* Compare two numbers with ==.
   This is a separate function because IRIX 6.5 "cc -O" miscompiles an
   'x == x' test.  */
static int
numeric_equal (double x, double y)
{
  return x == y;
}
static double dummy (double x) { return 0; }
int main (int argc, char *argv[])
{
  double (*my_log10) (double) = argc ? log10 : dummy;
  /* Test log10(negative).
51
     This test fails on NetBSD 5.1, Solaris 11.0.  */
52 53 54 55 56 57 58 59
  double y = my_log10 (-1.0);
  if (numeric_equal (y, y))
    return 1;
  return 0;
}
            ]])],
            [gl_cv_func_log10_ieee=yes],
            [gl_cv_func_log10_ieee=no],
60
            [case "$host_os" in
61 62 63 64 65 66
                              # Guess yes on glibc systems.
               *-gnu* | gnu*) gl_cv_func_log10_ieee="guessing yes" ;;
                              # Guess yes on native Windows.
               mingw*)        gl_cv_func_log10_ieee="guessing yes" ;;
                              # If we don't know, assume the worst.
               *)             gl_cv_func_log10_ieee="guessing no" ;;
67 68
             esac
            ])
69 70 71 72 73 74 75 76
          LIBS="$save_LIBS"
        ])
      case "$gl_cv_func_log10_ieee" in
        *yes) ;;
        *) REPLACE_LOG10=1 ;;
      esac
    fi
  ])
77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103
])

dnl Test whether log10() works.
dnl On OSF/1 5.1, log10(-0.0) is NaN.
AC_DEFUN([gl_FUNC_LOG10_WORKS],
[
  AC_REQUIRE([AC_PROG_CC])
  AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
  AC_CACHE_CHECK([whether log10 works], [gl_cv_func_log10_works],
    [
      AC_RUN_IFELSE(
        [AC_LANG_SOURCE([[
#include <math.h>
volatile double x;
double y;
int main ()
{
  x = -0.0;
  y = log10 (x);
  if (!(y + y == y))
    return 1;
  return 0;
}
]])],
        [gl_cv_func_log10_works=yes],
        [gl_cv_func_log10_works=no],
        [case "$host_os" in
104 105 106 107
           osf*)   gl_cv_func_log10_works="guessing no" ;;
                   # Guess yes on native Windows.
           mingw*) gl_cv_func_log10_works="guessing yes" ;;
           *)      gl_cv_func_log10_works="guessing yes" ;;
108 109 110
         esac
        ])
    ])
Bruno Haible's avatar
Bruno Haible committed
111
])