[ruby-dev:9301] Re: GC Problem ?

新井です。

>>> From: [e-mail] (Yukihiro Matsumoto)
>>> Date: 28 Feb 2000 18:04:51 +0900
>>> Subject: [ruby-dev:9300] Re: GC Problem ?

> まつもと ゆきひろです
> 
> In message "[ruby-dev:9297] GC Problem ?"
>     on 00/02/28, "Shigeo Kobayashi" <[e-mail]> writes:
> 
> |問題は、1.4.3 と 1.4.2 共に発生しますが 1.4.2 では
> | '###' で始めるコメントを削除しないと発生しません。
> |メッセージは
> |
> |pai.rb:25: [BUG] Segmentation fault
> |Aborted (core dumped)
> |
> |です。

あまり、一生懸命見てないので外してたらごめんなさい。

Data_Wrap_Struct()する構造体が、

    typedef struct {
	    VALUE  obj;     /* Back pointer(VALUE) for Ruby object.     */
	    .....
    } Real;

と、Rubyオブジェクト obj を含んでいるのにその存在をGCに教え
てないからだと思います。

--- bigfloat.c.org	Mon Feb 28 02:05:36 2000
+++ bigfloat.c	Mon Feb 28 21:58:38 2000
@@ -136,6 +136,7 @@
 static VALUE BigFloat_sign();/* sign */
 static VALUE BigFloat_mode();   /* mode */
 static VALUE BigFloat_induced_from(); /* induced_from */
+static void BigFloat_mark();	/* mark */
 static void BigFloat_delete();	/* free */
 
 static VALUE DoSomeOne();
@@ -407,7 +408,7 @@
 #endif /* HAVE_STDARG_PROTOTYPES */
 {
 	Real *pv = VpAlloc(mx,str);
-	pv->obj = (VALUE)Data_Wrap_Struct(rb_cBigfloat, 0, BigFloat_delete, pv);
+	pv->obj = (VALUE)Data_Wrap_Struct(rb_cBigfloat, BigFloat_mark, BigFloat_delete, pv);
 	return pv;
 }
 
@@ -1303,6 +1304,13 @@
 	}
 	VpPower(y, x, n);
 	return ToValue(y);
+}
+
+static void
+BigFloat_mark(pv)
+     Real *pv;
+{
+    rb_gc_mark(pv->obj);
 }
 
 static void

とかで、よろしいのではないでしょうか？(Ruby本1刷 p.449参照)
上記修正で何度か試しましたが、落ちなくなったようです。

ところで、Windows環境って、TAB幅 4が一般的なのでしょうか？
・印刷とか、typeとかしたときに見にくくなることはないのでしょうか？
  (TAB幅4で、不便を感じない？)
・WindowsのエディタはTAB幅8のままで、任意幅のインデントができないとか？
  (TAB幅8で、インデント4が不便？)
純粋な好奇心からくる質問です。(UNIXだとTAB幅4はいろいろ不便)

--
新井康司 (Koji Arai)