[ruby-list:3175] Re: ruby 1.0-970619 released

まつもと ゆきひろです．

In message "[ruby-list:3172] Re: ruby 1.0-970619 released"
    on 97/06/20, WATANABE Hirofumi <[e-mail]> writes:

|わたなべです.

|djgpp では ruby sample/test.rb すると system のあたりで 
|SEGV, gc_mark() unknown data などがランダムに起こるので(10 
|回に 1 回ぐらいは成功する), スタックか初期化してないデータを
|疑ったんですが, これが原因なのかな? 970612 からこうなったよ
|うです.

他にもあるようです．昨日原さんから報告を受けました．以下のパッ
チを試してみてください．

|結局 rb_newobj() を元に戻したら出なくなったんですが, 見当違
|い?

いいえ，大当たりです．memset()を毎回呼ぶのは効率が悪いなあ，
と思ってのことだったんですが，結構副作用が大きかったです．

                                まつもと ゆきひろ /:|)

--- array.c~	Sat Jun 14 01:49:58 1997
+++ array.c	Fri Jun 20 01:16:45 1997
@@ -37,2 +37,3 @@
 
+    ary->ptr = 0;
     ary->len = 0;
@@ -120,2 +121,3 @@
     rb_scan_args(argc, argv, "01", &size);
+    ary->ptr = 0;
     ary->len = 0;
@@ -143,2 +145,3 @@
     else {
+	ary->ptr = 0;		/* for safe GC */
 	ary->ptr = ALLOC_N(VALUE, argc);
--- class.c~	Sat Jun 14 02:07:18 1997
+++ class.c	Fri Jun 20 01:18:03 1997
@@ -30,4 +30,5 @@
     cls->super = super;
-    cls->m_tbl = new_idhash();
     cls->iv_tbl = 0;
+    cls->m_tbl = 0;		/* safe GC */
+    cls->m_tbl = new_idhash();
 
@@ -70,2 +71,3 @@
 	clone->iv_tbl = 0;
+	clone->m_tbl = 0;
 	clone->m_tbl = new_idhash();
@@ -133,2 +135,3 @@
     mdl->iv_tbl = 0;
+    mdl->m_tbl = 0;
     mdl->m_tbl = new_idhash();
--- hash.c~	Sat Jun 14 22:08:15 1997
+++ hash.c	Fri Jun 20 01:24:13 1997
@@ -168,5 +168,6 @@
 
-    hash->tbl = st_init_table_with_size(&objhash, size);
     hash->iter_lev = 0;
     hash->status = 0;
+    hash->tbl = 0;		/* avoid GC crashing  */
+    hash->tbl = st_init_table_with_size(&objhash, size);
 
@@ -202,4 +203,7 @@
 	    OBJSETUP(hash, class, T_HASH);
+	    
+	    hash->iter_lev = 0;
+	    hash->status = 0;
+	    hash->tbl = 0;	/* avoid GC crashing  */
 	    hash->tbl = (st_table*)st_copy(RHASH(argv[0])->tbl);
-
 	    return (VALUE)hash;
@@ -227,2 +231,5 @@
 
+    hash2->iter_lev = 0;
+    hash2->status = 0;
+    hash2->tbl = 0;		/* avoid GC crashing  */
     hash2->tbl = (st_table*)st_copy(hash->tbl);
--- object.c~	Wed Jun 11 17:46:45 1997
+++ object.c	Fri Jun 20 01:24:13 1997
@@ -372,4 +372,5 @@
     clone->super = module->super;
-    clone->m_tbl = st_copy(module->m_tbl);
     clone->iv_tbl = 0;
+    clone->m_tbl = 0;		/* avoid GC crashing  */
+    clone->m_tbl = st_copy(module->m_tbl);
 
--- struct.c~	Thu Jun 12 01:11:16 1997
+++ struct.c	Fri Jun 20 01:24:12 1997
@@ -208,2 +208,3 @@
 	st->len = n;
+	st->ptr = 0;		/* avoid GC crashing  */
 	st->ptr = ALLOC_N(VALUE, n);
@@ -316,2 +317,3 @@
     st->len = s->len;
+    st->ptr = 0;		/* avoid GC crashing  */
     st->ptr = ALLOC_N(VALUE, s->len);