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

新井です。

In message "[ruby-dev:14250] Re: [BUG] segv on [str].pack("p")"
  on 05 Aug 2001 20:33:32 +0900,
  [e-mail] wrote:
> なかだです。
> 
> At Sun, 5 Aug 2001 17:50:05 +0900,
> Koji Arai <[e-mail]> wrote:
> > rb_str_buf_new() の導入により高速化をはかっているのだと思い
> > ますが、orig メンバの使い回しで、rb_str_associate() との折り
> > 合いがついてないようです。どうしたもんでしょう。
> 
>   のようですね。こんなもんかなぁ。
> 

あっ、それで(capa捨てちゃって)よかったのですか？
# それに括弧が必要ではないですか？

以下がまだうまくいかないです

p ["a"].pack("P").unpack("P")

=> -:1:in `unpack': non associated pointer (ArgumentError)
  	from -:1
  ruby 1.7.1 (2001-07-31) [i586-linux]

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

Index: string.c
===================================================================
RCS file: /usr/local/cvsup/ruby/ruby/string.c,v
retrieving revision 1.70
diff -u -r1.70 string.c
--- string.c	2001/07/24 09:07:33	1.70
+++ string.c	2001/08/05 17:13:23
@@ -202,7 +202,7 @@
 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);
 	}
@@ -216,7 +216,7 @@
 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;
     }
     return RSTRING(str)->orig;

--
新井康司 (Koji Arai)