X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=m4%2Fstrtod.m4;h=f40e342f4331cbac352c8cdc6aa67844dea3f6da;hb=7bc4fbf1fd19c411f3e648225e87169ee21dab9e;hp=922a538cf998b67d4643faeb10932a66801e2cb1;hpb=6101082ea07a4877e51042244c9c3b57920c2b62;p=gnulib.git diff --git a/m4/strtod.m4 b/m4/strtod.m4 index 922a538cf..f40e342f4 100644 --- a/m4/strtod.m4 +++ b/m4/strtod.m4 @@ -1,5 +1,5 @@ -# strtod.m4 serial 17 -dnl Copyright (C) 2002-2003, 2006-2010 Free Software Foundation, Inc. +# strtod.m4 serial 20 +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. @@ -7,15 +7,18 @@ dnl with or without modifications, as long as this notice is preserved. AC_DEFUN([gl_FUNC_STRTOD], [ AC_REQUIRE([gl_STDLIB_H_DEFAULTS]) - dnl Test whether strtod is declared. - 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. - AC_CHECK_DECLS_ONCE([strtod]) - if test $ac_cv_have_decl_strtod != yes; then - HAVE_STRTOD=0 - else + m4_ifdef([gl_FUNC_STRTOD_OBSOLETE], [ + dnl Test whether strtod is declared. + 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. + AC_CHECK_DECLS_ONCE([strtod]) + if test $ac_cv_have_decl_strtod != yes; then + HAVE_STRTOD=0 + fi + ]) + if test $HAVE_STRTOD = 1; then AC_CACHE_CHECK([whether strtod obeys C99], [gl_cv_func_strtod_works], [AC_RUN_IFELSE([AC_LANG_PROGRAM([[ #include @@ -30,6 +33,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 +41,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 +50,7 @@ numeric_equal (double x, double y) char *term; strtod (string, &term); if (term != string && *(term - 1) == 0) - return 2; + result |= 2; } { /* Older glibc and Cygwin mis-parse "-0x". */ @@ -55,7 +59,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 3; + result |= 4; } { /* Many platforms do not parse hex floats. */ @@ -63,7 +67,7 @@ numeric_equal (double x, double y) char *term; double value = strtod (string, &term); if (value != 20.0 || term != (string + 6)) - return 4; + result |= 8; } { /* Many platforms do not parse infinities. HP-UX 11.31 parses inf, @@ -74,7 +78,7 @@ numeric_equal (double x, double y) errno = 0; value = strtod (string, &term); if (value != HUGE_VAL || term != (string + 3) || errno) - return 5; + result |= 16; } { /* glibc 2.7 and cygwin 1.5.24 misparse "nan()". */ @@ -82,7 +86,7 @@ numeric_equal (double x, double y) char *term; double value = strtod (string, &term); if (numeric_equal (value, value) || term != (string + 5)) - return 6; + result |= 32; } { /* darwin 10.6.1 misparses "nan(". */ @@ -90,8 +94,9 @@ numeric_equal (double x, double y) char *term; double value = strtod (string, &term); if (numeric_equal (value, value) || term != (string + 3)) - return 7; + result |= 64; } + return result; ]])], [gl_cv_func_strtod_works=yes], [gl_cv_func_strtod_works=no], @@ -101,7 +106,8 @@ numeric_equal (double x, double y) [ #include #ifdef __GNU_LIBRARY__ - #if (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 8) || (__GLIBC__ > 2) + #if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 8) || (__GLIBC__ > 2)) \ + && !defined __UCLIBC__ Lucky user #endif #endif