X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=m4%2Fstrtod.m4;h=4619c3357f9c664f9102c1c4f4f94979df318c7b;hb=939dedd9a2fba934e5ff0313155f9f5f39cb6f6f;hp=36b5d2dd8acc762071c7df8ab6eed989bd78c09f;hpb=161d300c640daa32135028b35d3180d5e9327a3b;p=gnulib.git diff --git a/m4/strtod.m4 b/m4/strtod.m4 index 36b5d2dd8..4619c3357 100644 --- a/m4/strtod.m4 +++ b/m4/strtod.m4 @@ -1,5 +1,5 @@ -# strtod.m4 serial 15 -dnl Copyright (C) 2002-2003, 2006-2010 Free Software Foundation, Inc. +# strtod.m4 serial 19 +dnl Copyright (C) 2002-2003, 2006-2011 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. @@ -11,7 +11,7 @@ AC_DEFUN([gl_FUNC_STRTOD], dnl Don't call AC_FUNC_STRTOD, because it does not have the right guess dnl when cross-compiling. dnl Don't call AC_CHECK_FUNCS([strtod]) because it would collide with the - dnl ac_cv_func_strtod variable set by the AC_FUNC_STRTOD macro, + dnl ac_cv_func_strtod variable set by the AC_FUNC_STRTOD macro. AC_CHECK_DECLS_ONCE([strtod]) if test $ac_cv_have_decl_strtod != yes; then HAVE_STRTOD=0 @@ -30,6 +30,7 @@ numeric_equal (double x, double y) return x == y; } ]], [[ + int result = 0; { /* In some old versions of Linux (2000 or before), strtod mis-parses strings with leading '+'. */ @@ -37,7 +38,7 @@ numeric_equal (double x, double y) char *term; double value = strtod (string, &term); if (value != 69 || term != (string + 4)) - return 1; + result |= 1; } { /* Under Solaris 2.4, strtod returns the wrong value for the @@ -46,7 +47,7 @@ numeric_equal (double x, double y) char *term; strtod (string, &term); if (term != string && *(term - 1) == 0) - return 1; + result |= 2; } { /* Older glibc and Cygwin mis-parse "-0x". */ @@ -55,7 +56,7 @@ numeric_equal (double x, double y) double value = strtod (string, &term); double zero = 0.0; if (1.0 / value != -1.0 / zero || term != (string + 2)) - return 1; + result |= 4; } { /* Many platforms do not parse hex floats. */ @@ -63,7 +64,7 @@ numeric_equal (double x, double y) char *term; double value = strtod (string, &term); if (value != 20.0 || term != (string + 6)) - return 1; + result |= 8; } { /* Many platforms do not parse infinities. HP-UX 11.31 parses inf, @@ -74,7 +75,7 @@ numeric_equal (double x, double y) errno = 0; value = strtod (string, &term); if (value != HUGE_VAL || term != (string + 3) || errno) - return 1; + result |= 16; } { /* glibc 2.7 and cygwin 1.5.24 misparse "nan()". */ @@ -82,7 +83,7 @@ numeric_equal (double x, double y) char *term; double value = strtod (string, &term); if (numeric_equal (value, value) || term != (string + 5)) - return 1; + result |= 32; } { /* darwin 10.6.1 misparses "nan(". */ @@ -90,23 +91,41 @@ numeric_equal (double x, double y) char *term; double value = strtod (string, &term); if (numeric_equal (value, value) || term != (string + 3)) - return 1; + result |= 64; } + return result; ]])], [gl_cv_func_strtod_works=yes], [gl_cv_func_strtod_works=no], - [gl_cv_func_strtod_works="guessing no"])]) + [dnl The last known bugs in glibc strtod(), as of this writing, + dnl were fixed in version 2.8 + AC_EGREP_CPP([Lucky user], + [ +#include +#ifdef __GNU_LIBRARY__ + #if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 8) || (__GLIBC__ > 2)) \ + && !defined __UCLIBC__ + Lucky user + #endif +#endif + ], + [gl_cv_func_strtod_works=yes], + [gl_cv_func_strtod_works="guessing no"])])]) if test "$gl_cv_func_strtod_works" != yes; then REPLACE_STRTOD=1 fi fi if test $HAVE_STRTOD = 0 || test $REPLACE_STRTOD = 1; then + AC_LIBOBJ([strtod]) gl_PREREQ_STRTOD - dnl Use undocumented macro to set POW_LIB correctly. - _AC_LIBOBJ_STRTOD fi ]) # Prerequisites of lib/strtod.c. -# The need for pow() is already handled by AC_FUNC_STRTOD. -AC_DEFUN([gl_PREREQ_STRTOD], [:]) +AC_DEFUN([gl_PREREQ_STRTOD], [ + AC_REQUIRE([gl_CHECK_LDEXP_NO_LIBM]) + if test $gl_cv_func_ldexp_no_libm = yes; then + AC_DEFINE([HAVE_LDEXP_IN_LIBC], [1], + [Define if the ldexp function is available in libc.]) + fi +])