* marshal.c (mark_dump_arg): mark destination string. patch by

  Vit Ondruch.  [Bug #4339]
* marshal.c (clear_dump_arg, clear_load_arg): clean up also data
  tables as same as symbols tables.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@34866 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 3 insertions, 0 deletions

diff --git a/marshal.c b/marshal.c
index 005e88b50a..143f11f408 100644
--- a/marshal.c
+++ b/marshal.c
@@ -118,6 +118,7 @@ mark_dump_arg(ptr)
     if (!p->symbols)
         return;
     rb_mark_set(p->data);
+    rb_gc_mark(p->str);
 }
 
 static void
@@ -716,6 +717,7 @@ clear_dump_arg(arg)
     st_free_table(arg->symbols);
     arg->symbols = 0;
     st_free_table(arg->data);
+    arg->data = 0;
     if (arg->taint) {
 	OBJ_TAINT(arg->str);
     }
@@ -1428,6 +1430,7 @@ clear_load_arg(arg)
     st_free_table(arg->symbols);
     arg->symbols = 0;
     st_free_table(arg->data);
+    arg->data = 0;
 }
 
 /*