[ruby-dev:12107] Re: string#index, gsub, []= のバグ？

まつもと ゆきひろです

In message "[ruby-dev:12093] Re: string#index, gsub, []= のバグ？"
    on 01/01/28, [e-mail] <[e-mail]> writes:

|At Sat, 27 Jan 2001 22:50:09 +0900,
|[e-mail] (Yukihiro Matsumoto) wrote:
|> で、結論からいうと、1.6.2 (2000-12-25) では再現しましたが、
|> 最新のスナップショットでは発生しませんでした。
|
|  私の方では CVS の 1.6.2/1.7.0 (2001-01-23) ともに再現しました。
|
|  落ちるときは rb_str_modify() の ALLOC_N() の前後で
|RSTRING(str)->ptr が変わってるようですが、str に volatile を付
|けてもダメでした。

GCのタイミングの問題だったようですね。indexもgsubも[]=も関係
なしに。んで、発見しました。

# この類いを見つけるのには慣れがいるんですよね。

パッチです。1.6に当ててください。

--- ../ruby1.6/string.c	Wed Jan 10 01:58:18 2001
+++ string.c	Mon Jan 29 00:04:16 2001
@@ -367,7 +377,6 @@
 	rb_raise(rb_eSecurityError, "Insecure: can't modify string");
     if (!RSTRING(str)->orig || FL_TEST(str, STR_NO_ORIG)) return 1;
     if (TYPE(RSTRING(str)->orig) != T_STRING) rb_bug("non string str->orig");
-    RSTRING(str)->orig = 0;
     return 0;
 }
 
@@ -384,6 +393,7 @@
     }
     ptr[RSTRING(str)->len] = 0;
     RSTRING(str)->ptr = ptr;
+    RSTRING(str)->orig = 0;
 }
 
 VALUE
@@ -1277,6 +1287,7 @@
     if (bang) {
 	if (str_independent(str)) {
 	    free(RSTRING(str)->ptr);
+	    RSTRING(str)->orig = 0;
 	}
     }
     else {
@@ -1320,9 +1331,10 @@
     if (TYPE(str2) != T_STRING) str2 = rb_str_to_str(str2);
 
     if (RSTRING(str2)->orig && !FL_TEST(str2, STR_NO_ORIG)) {
-	if (str_independent(str))
-	  free(RSTRING(str)->ptr);
-
+	if (str_independent(str)) {
+	    free(RSTRING(str)->ptr);
+	    RSTRING(str)->orig = 0;
+	}
 	RSTRING(str)->len = RSTRING(str2)->len;
 	RSTRING(str)->ptr = RSTRING(str2)->ptr;
 	RSTRING(str)->orig = RSTRING(str2)->orig;