[ruby-dev:29043] Re: Segmentation fault in Float("very very long string")

なかだです。

At Tue, 18 Jul 2006 01:06:34 +0900,
Tadashi Saito wrote in [ruby-dev:29041]:
> ふなばさんに感化されて(?)trunkのFloat()をいじめていたら、SEGVになって
> 落ちましたので報告させていただきます。また1.8の最新版でも、若干似た
> 感じでやはり落ちます。

警告の長さも制限するようにしてみました。


* object.c (rb_cstr_to_dbl): limit out-of-range message.

* util.c (ruby_strtod): return end pointer even if ERANGE occurred.
  fixed: [ruby-dev:29041]


Index: object.c
===================================================================
RCS file: /cvs/ruby/src/ruby/object.c,v
retrieving revision 1.189
diff -p -u -2 -r1.189 object.c
--- object.c	28 Jun 2006 14:28:11 -0000	1.189
+++ object.c	17 Jul 2006 16:53:12 -0000
@@ -2064,4 +2064,7 @@ rb_cstr_to_dbl(const char *p, int badche
     char *end;
     double d;
+    const char *ellipsis = "";
+    int w;
+#define OutOfRange() (((w = end - p) > 20) ? (w = 20, ellipsis = "...") : (ellipsis = ""))
 
     if (!p) return 0.0;
@@ -2070,5 +2073,6 @@ rb_cstr_to_dbl(const char *p, int badche
     d = strtod(p, &end);
     if (errno == ERANGE) {
-	rb_warn("Float %*s out of range", end-p, p);
+	OutOfRange();
+	rb_warn("Float %.*s%s out of range", w, p, ellipsis);
 	errno = 0;
     }
@@ -2101,9 +2105,10 @@ rb_cstr_to_dbl(const char *p, int badche
 	d = strtod(p, &end);
 	if (errno == ERANGE) {
-	    rb_warn("Float %*s out of range", end-p, p);
+	    OutOfRange();
+	    rb_warn("Float %.*s%s out of range", w, p, ellipsis);
 	    errno = 0;
 	}
 	if (badcheck) {
-	    if (p == end) goto bad;
+	    if (!end || p == end) goto bad;
 	    while (*end && ISSPACE(*end)) end++;
 	    if (*end) goto bad;
@@ -2112,5 +2117,6 @@ rb_cstr_to_dbl(const char *p, int badche
     if (errno == ERANGE) {
 	errno = 0;
-	rb_raise(rb_eArgError, "Float %s out of range", q);
+	OutOfRange();
+	rb_raise(rb_eArgError, "Float %.*s%s out of range", w, q, ellipsis);
     }
     return d;
Index: util.c
===================================================================
RCS file: /cvs/ruby/src/ruby/util.c,v
retrieving revision 1.53
diff -p -u -2 -r1.53 util.c
--- util.c	17 Jul 2006 15:43:05 -0000	1.53
+++ util.c	17 Jul 2006 16:40:06 -0000
@@ -875,9 +875,11 @@ ruby_strtod(
 	if (exp >= MDMAXEXPT) {
 	    errno = ERANGE;
-	    return HUGE_VAL * (sign ? -1.0 : 1.0);
+	    fraction = HUGE_VAL;
+	    goto ret;
 	}
 	else if (exp < MDMINEXPT) {
 	    errno = ERANGE;
-	    return 0.0 * (sign ? -1.0 : 1.0);
+	    fraction = 0.0;
+	    goto ret;
 	}
 	fracExp = exp;
@@ -925,4 +927,5 @@ ruby_strtod(
     }
 
+  ret:
     if (endPtr != NULL) {
 	*endPtr = (char *)p;


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦