X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=m4%2Fstrtod.m4;h=6b2d73176bf3a7d8b02607aed385588301f3d17b;hb=b7b6d3d99a751f99638ed8e14b62c1cf697f0664;hp=1f301c2eedb3561b3a16ef8bc178f507668bbdc7;hpb=61c74776c4a0dc5faa23dbc1ad0f9dd23bf14521;p=gnulib.git

diff --git a/m4/strtod.m4 b/m4/strtod.m4
index 1f301c2ee..6b2d73176 100644
--- a/m4/strtod.m4
+++ b/m4/strtod.m4
@@ -1,5 +1,5 @@
-# strtod.m4 serial 11
-dnl Copyright (C) 2002-2003, 2006-2009 Free Software Foundation, Inc.
+# strtod.m4 serial 13
+dnl Copyright (C) 2002-2003, 2006-2010 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.
@@ -50,8 +50,9 @@ numeric_equal (double x, double y)
        but mistakenly sets errno.  */
     const char *string = "inf";
     char *term;
+    double value;
     errno = 0;
-    double value = strtod (string, &term);
+    value = strtod (string, &term);
     if (value != HUGE_VAL || term != (string + 3) || errno)
       return 1;
   }
@@ -63,10 +64,18 @@ numeric_equal (double x, double y)
     if (numeric_equal (value, value) || term != (string + 5))
       return 1;
   }
+  {
+    /* darwin 10.6.1 misparses "nan(".  */
+    const char *string = "nan(";
+    char *term;
+    double value = strtod (string, &term);
+    if (numeric_equal (value, value) || term != (string + 3))
+      return 1;
+  }
 ]])],
-	[gl_cv_func_strtod_works=yes],
-	[gl_cv_func_strtod_works=no],
-	[gl_cv_func_strtod_works="guessing no"])])
+        [gl_cv_func_strtod_works=yes],
+        [gl_cv_func_strtod_works=no],
+        [gl_cv_func_strtod_works="guessing no"])])
     if test "$gl_cv_func_strtod_works" != yes; then
       REPLACE_STRTOD=1
       gl_PREREQ_STRTOD