From 115eb4595cea72226ec8acd357e7c403e2c4b04a Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 9 Feb 1999 06:08:24 +0000
Subject: 990209

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_3@394 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 marshal.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'marshal.c')

diff --git a/marshal.c b/marshal.c
index 6a68b04352..0267e328cd 100644
--- a/marshal.c
+++ b/marshal.c
@@ -12,6 +12,10 @@
 #include "rubyio.h"
 #include "st.h"
 
+#ifndef atof
+double strtod();
+#endif
+
 #define MARSHAL_MAJOR   4
 #define MARSHAL_MINOR   0
 
@@ -641,13 +645,10 @@ r_object(arg)
 
       case TYPE_FLOAT:
 	{
-#ifndef atof
-	    double atof();
-#endif
 	    char *buf;
 
 	    r_bytes(buf, arg);
-	    v = rb_float_new(atof(buf));
+	    v = rb_float_new(strtod(buf, 0));
 	    return r_regist(v, arg);
 	}
 
-- 
cgit v1.2.3