[ruby-dev:14299] Re: [BUG] segv on [str].pack("p")

なかだです。

At Mon, 6 Aug 2001 02:30:26 +0900,
Koji Arai <[e-mail]> wrote:
> あっ、それで(capa捨てちゃって)よかったのですか？

  やっぱりちゃんとrealloc()した方がいいですかね。associateして
しまったStringを変更すること自体まずいので、capaはいらないと思
うのですが。

> # それに括弧が必要ではないですか？

  これはうっかり。

> さらに、orig が配列の配列になってるのでこれでもうまくいかないです。
> 配列の配列になった意図を読み取れてないので修正できませんでした。

  1.6とpack_pack()でのrb_str_associate()の使い方が変わってるん
ですが、rb_str_associate()自身は変わってなかったんですね。capa
を捨ててしまうので、rb_str_associate()の方を直してみました。

# pack_unpack()のtmpは気づかなくてすごく悩んでしまった。

  とりあえずpack.cの方だけでもcommitしておいていいですか? > ま
つもとさん。


Index: pack.c
===================================================================
RCS file: /cvs/ruby/src/ruby/pack.c,v
retrieving revision 1.26
diff -u -2 -p -r1.26 pack.c
--- pack.c	2001/05/30 09:12:34	1.26
+++ pack.c	2001/08/05 23:46:36
@@ -1678,11 +1678,11 @@ pack_unpack(str, fmt)
 
 		    if (t) {
-			VALUE a, tmp;
+			VALUE a;
 			VALUE *p, *pend;
 
-			p = RARRAY(a)->ptr;
 			if (!(a = rb_str_associated(str))) {
 			    rb_raise(rb_eArgError, "no associated pointer");
 			}
+			p = RARRAY(a)->ptr;
 			pend = p + RARRAY(a)->len;
 			while (p < pend) {
Index: string.c
===================================================================
RCS file: /cvs/ruby/src/ruby/string.c,v
retrieving revision 1.70
diff -u -2 -p -r1.70 string.c
--- string.c	2001/07/24 09:07:33	1.70
+++ string.c	2001/08/06 00:15:05
@@ -203,12 +203,19 @@ rb_str_associate(str, add)
     VALUE str, add;
 {
-    if (!FL_TEST(str, STR_NO_ORIG)) {
+    if (FL_TEST(str, STR_NO_ORIG|STR_ASSOC) != (STR_NO_ORIG|STR_ASSOC)) {
 	if (RSTRING(str)->orig) {
 	    rb_str_modify(str);
 	}
-	RSTRING(str)->orig = rb_ary_new();
+	if (!FL_TEST(str, STR_ASSOC)) {
+	    if (FIX2LONG(RSTRING(str)->orig) != RSTRING(str)->len) {
+		REALLOC_N(RSTRING(str)->ptr, char, RSTRING(str)->len + 1);
+	    }
+	}
+	RSTRING(str)->orig = add;
 	FL_SET(str, STR_NO_ORIG|STR_ASSOC);
+    }
+    else {
+	rb_ary_concat(RSTRING(str)->orig, add);
     }
-    rb_ary_push(RSTRING(str)->orig, add);
 }
 
@@ -217,5 +224,5 @@ rb_str_associated(str)
     VALUE str;
 {
-    if (!FL_TEST(str, STR_NO_ORIG|STR_ASSOC)) {
+    if (FL_TEST(str, STR_NO_ORIG|STR_ASSOC) != (STR_NO_ORIG|STR_ASSOC)) {
 	return Qfalse;
     }


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