Mercurial > hg > octave-nkf > gnulib-hg
view m4/expm1.m4 @ 16588:6312b64c2c23
New module 'expm1-ieee'.
* modules/expm1-ieee: New file.
* m4/expm1-ieee.m4: New file.
* m4/expm1.m4 (gl_FUNC_EXPM1): If gl_FUNC_EXPM1_IEEE is present, test
whether expm1 works with a minus zero argument. Replace it if not.
* lib/math.in.h (expm1): Override if REPLACE_EXPM1 is 1.
* m4/math_h.m4 (gl_MATH_H_DEFAULTS): Initialize REPLACE_EXPM1.
* modules/math (Makefile.am): Substitute REPLACE_EXPM1.
* modules/expm1 (configure.ac): Consider REPLACE_EXPM1.
(Depends-on): Update conditions.
* doc/posix-functions/expm1.texi: Mention the expm1-ieee module and the
AIX problem.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Wed, 07 Mar 2012 00:38:50 +0100 |
parents | 8e7ddab445f4 |
children | b187fc49964b |
line wrap: on
line source
# expm1.m4 serial 2 dnl Copyright (C) 2010-2012 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. AC_DEFUN([gl_FUNC_EXPM1], [ m4_divert_text([DEFAULTS], [gl_expm1_required=plain]) AC_REQUIRE([gl_MATH_H_DEFAULTS]) dnl Persuade glibc <math.h> to declare expm1(). AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) EXPM1_LIBM= AC_CACHE_CHECK([whether expm1() can be used without linking with libm], [gl_cv_func_expm1_no_libm], [ AC_LINK_IFELSE( [AC_LANG_PROGRAM( [[#ifndef __NO_MATH_INLINES # define __NO_MATH_INLINES 1 /* for glibc */ #endif #include <math.h> double (*funcptr) (double) = expm1; double x;]], [[return funcptr (x) > 0.5 || expm1 (x) > 0.5;]])], [gl_cv_func_expm1_no_libm=yes], [gl_cv_func_expm1_no_libm=no]) ]) if test $gl_cv_func_expm1_no_libm = no; then AC_CACHE_CHECK([whether expm1() can be used with libm], [gl_cv_func_expm1_in_libm], [ save_LIBS="$LIBS" LIBS="$LIBS -lm" AC_LINK_IFELSE( [AC_LANG_PROGRAM( [[#ifndef __NO_MATH_INLINES # define __NO_MATH_INLINES 1 /* for glibc */ #endif #include <math.h> double (*funcptr) (double) = expm1; double x;]], [[return funcptr (x) > 0.5 || expm1 (x) > 0.5;]])], [gl_cv_func_expm1_in_libm=yes], [gl_cv_func_expm1_in_libm=no]) LIBS="$save_LIBS" ]) if test $gl_cv_func_expm1_in_libm = yes; then EXPM1_LIBM=-lm fi fi if test $gl_cv_func_expm1_no_libm = yes \ || test $gl_cv_func_expm1_in_libm = yes; then : m4_ifdef([gl_FUNC_EXPM1_IEEE], [ if test $gl_expm1_required = ieee && test $REPLACE_EXPM1 = 0; then AC_CACHE_CHECK([whether expm1 works according to ISO C 99 with IEC 60559], [gl_cv_func_expm1_ieee], [ save_LIBS="$LIBS" LIBS="$LIBS $EXPM1_LIBM" AC_RUN_IFELSE( [AC_LANG_SOURCE([[ #ifndef __NO_MATH_INLINES # define __NO_MATH_INLINES 1 /* for glibc */ #endif #include <math.h> ]gl_DOUBLE_MINUS_ZERO_CODE[ ]gl_DOUBLE_SIGNBIT_CODE[ static double dummy (double x) { return 0; } int main (int argc, char *argv[]) { double (*my_expm1) (double) = argc ? expm1 : dummy; double y = my_expm1 (minus_zerod); if (!(y == 0.0) || (signbitd (minus_zerod) && !signbitd (y))) return 1; return 0; } ]])], [gl_cv_func_expm1_ieee=yes], [gl_cv_func_expm1_ieee=no], [gl_cv_func_expm1_ieee="guessing no"]) LIBS="$save_LIBS" ]) case "$gl_cv_func_expm1_ieee" in *yes) ;; *) REPLACE_EXPM1=1 ;; esac fi ]) else HAVE_EXPM1=0 fi if test $HAVE_EXPM1 = 0 || test $REPLACE_EXPM1 = 1; then dnl Find libraries needed to link lib/expm1.c. AC_REQUIRE([gl_FUNC_ISNAND]) AC_REQUIRE([gl_FUNC_EXP]) AC_REQUIRE([gl_FUNC_ROUND]) AC_REQUIRE([gl_FUNC_LDEXP]) EXPM1_LIBM= dnl Append $ISNAND_LIBM to EXPM1_LIBM, avoiding gratuitous duplicates. case " $EXPM1_LIBM " in *" $ISNAND_LIBM "*) ;; *) EXPM1_LIBM="$EXPM1_LIBM $ISNAND_LIBM" ;; esac dnl Append $EXP_LIBM to EXPM1_LIBM, avoiding gratuitous duplicates. case " $EXPM1_LIBM " in *" $EXP_LIBM "*) ;; *) EXPM1_LIBM="$EXPM1_LIBM $EXP_LIBM" ;; esac dnl Append $ROUND_LIBM to EXPM1_LIBM, avoiding gratuitous duplicates. case " $EXPM1_LIBM " in *" $ROUND_LIBM "*) ;; *) EXPM1_LIBM="$EXPM1_LIBM $ROUND_LIBM" ;; esac dnl Append $LDEXP_LIBM to EXPM1_LIBM, avoiding gratuitous duplicates. case " $EXPM1_LIBM " in *" $LDEXP_LIBM "*) ;; *) EXPM1_LIBM="$EXPM1_LIBM $LDEXP_LIBM" ;; esac fi AC_SUBST([EXPM1_LIBM]) ])