[ruby-dev:27905] Re: ruby 1.8 dumps core

まつもと ゆきひろです

In message "Re: [ruby-dev:27895] Re: ruby 1.8 dumps core"
    on Wed, 30 Nov 2005 21:06:50 +0900, H.Yamamoto <[e-mail]> writes:

|で、調べてみたのですが、syck ってかなり mark し忘れがありますね。
|あんまり多くて、まだ動くところまで至っていません。少なくともこれは
|要るんじゃないかと思いますが、他にも怪しい部分がたくさんあります。--;;

これでテストは通るようになるようです。SYMIDにVALUEを突っ込む
のはいかがなものかと思いますが。

Index: ext/syck/rubyext.c
===================================================================
RCS file: /var/cvs/src/ruby/ext/syck/rubyext.c,v
retrieving revision 1.54
diff -p -u -1 -r1.54 rubyext.c
--- ext/syck/rubyext.c	1 Nov 2005 13:04:33 -0000	1.54
+++ ext/syck/rubyext.c	30 Nov 2005 17:12:07 -0000
@@ -597,2 +597,4 @@ yaml_org_handler( n, ref )
 
+static void syck_node_mark( SyckNode *n );
+
 /*
@@ -617,3 +619,4 @@ rb_syck_load_handler(p, n)
      */
-    obj = rb_funcall( resolver, s_node_import, 1, Data_Wrap_Struct( cNode, NULL, NULL, n ) );
+    obj = rb_funcall( resolver, s_node_import,
+                      1, Data_Wrap_Struct( cNode, syck_node_mark, NULL, n ) );
 
@@ -713,4 +716,4 @@ syck_mark_parser(parser)
     struct parser_xtra *bonus;
-    rb_gc_mark(parser->root);
-    rb_gc_mark(parser->root_on_error);
+    rb_gc_mark_maybe(parser->root);
+    rb_gc_mark_maybe(parser->root_on_error);
     if ( parser->bonus != NULL )
@@ -720,2 +723,3 @@ syck_mark_parser(parser)
         rb_gc_mark( bonus->proc );
+        rb_gc_mark( bonus->resolver );
     }
@@ -1382,2 +1386,4 @@ syck_node_mark( n )
     int i;
+    if (!n) return;
+    rb_gc_mark_maybe( n->id );
     switch ( n->kind )
@@ -1385,2 +1391,3 @@ syck_node_mark( n )
         case syck_seq_kind:
+            if (!n->data.list) return;
             for ( i = 0; i < n->data.list->idx; i++ )
@@ -1392,2 +1399,3 @@ syck_node_mark( n )
         case syck_map_kind:
+            if (!n->data.pairs) return;
             for ( i = 0; i < n->data.pairs->idx; i++ )
@@ -1806,2 +1814,3 @@ syck_node_transform( self )
     Data_Get_Struct(self, SyckNode, orig_n);
+    t = Data_Wrap_Struct( cNode, syck_node_mark, NULL, 0 );
 
@@ -1812,3 +1821,3 @@ syck_node_transform( self )
                 int i;
-                n = syck_alloc_map();
+                DATA_PTR(t) = n = syck_alloc_map();
                 for ( i = 0; i < orig_n->data.pairs->idx; i++ )
@@ -1824,3 +1833,3 @@ syck_node_transform( self )
                 int i;
-                n = syck_alloc_seq();
+                DATA_PTR(t) = n = syck_alloc_seq();
                 for ( i = 0; i < orig_n->data.list->idx; i++ )
@@ -1833,3 +1842,3 @@ syck_node_transform( self )
         case syck_str_kind:
-            n = syck_new_str2( orig_n->data.str->ptr, orig_n->data.str->len, orig_n->data.str->style );
+            DATA_PTR(t) = n = syck_new_str2( orig_n->data.str->ptr, orig_n->data.str->len, orig_n->data.str->style );
         break;
@@ -1845,3 +1854,2 @@ syck_node_transform( self )
     }
-    t = Data_Wrap_Struct( cNode, NULL, NULL, n );
     n->id = t;
@@ -1948,2 +1956,3 @@ syck_mark_emitter(emitter)
         bonus = (struct emitter_xtra *)emitter->bonus;
+        rb_gc_mark( bonus->oid  );
         rb_gc_mark( bonus->data );