* gc.c (rb_mark_set): new function to mark keys.

* marshal.c (struct dump_arg, struct load_arg): added wrappers to mark
  data and compat_tbl entries.  [ruby-dev:31870]


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

1 files changed, 20 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index 2d19e7c98b..3a073d39d8 100644
--- a/gc.c
+++ b/gc.c
@@ -784,6 +784,26 @@ rb_mark_tbl(st_table *tbl)
 }
 
 static int
+mark_key(VALUE key, VALUE value, int lev)
+{
+    gc_mark(key, lev);
+    return ST_CONTINUE;
+}
+
+static void
+mark_set(st_table *tbl, int lev)
+{
+    if (!tbl) return;
+    st_foreach(tbl, mark_key, lev);
+}
+
+void
+rb_mark_set(st_table *tbl)
+{
+    mark_set(tbl, 0);
+}
+
+static int
 mark_keyvalue(VALUE key, VALUE value, int lev)
 {
     gc_mark(key, lev);