Add visit, which should in theory mean all the state of this PMC gets…

… serialized.
Raku · Mar 6, 2011 · 67337e1 · 67337e1
1 parent 5c2b972
commit 67337e1
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/src/pmc/nqplexinfo.pmc b/src/pmc/nqplexinfo.pmc
@@ -43,6 +43,19 @@ pmclass NQPLexInfo provides hash auto_attrs dynpmc group nqp {
         PObj_custom_mark_SET(SELF);
     }
 
+    VTABLE void mark() {
+        PMC *name_to_register_map, *static_values;
+        PMC *static_slots_cache, *static_values_cache;
+        GET_ATTR_name_to_register_map(INTERP, SELF, name_to_register_map);
+        Parrot_gc_mark_PMC_alive(INTERP, name_to_register_map);
+        GET_ATTR_static_values(INTERP, SELF, static_values);
+        Parrot_gc_mark_PMC_alive(INTERP, static_values);
+        GET_ATTR_static_slots_cache(INTERP, SELF, static_slots_cache);
+        Parrot_gc_mark_PMC_alive(INTERP, static_slots_cache);
+        GET_ATTR_static_values_cache(INTERP, SELF, static_values_cache);
+        Parrot_gc_mark_PMC_alive(INTERP, static_values_cache);
+    }
+
     VTABLE INTVAL get_integer_keyed_str(STRING *key) {
         PMC *name_to_register_map;
         GET_ATTR_name_to_register_map(INTERP, SELF, name_to_register_map);
@@ -60,6 +73,22 @@ pmclass NQPLexInfo provides hash auto_attrs dynpmc group nqp {
         GET_ATTR_name_to_register_map(INTERP, SELF, name_to_register_map);
         VTABLE_set_integer_keyed_str(interp, name_to_register_map, key, value);
     }
+
+    VTABLE void visit(PMC *info) {
+        VISIT_PMC_ATTR(INTERP, info, SELF, NQPLexInfo, name_to_register_map);
+        VISIT_PMC_ATTR(INTERP, info, SELF, NQPLexInfo, static_values);
+        VISIT_PMC_ATTR(INTERP, info, SELF, NQPLexInfo, static_slots_cache);
+        VISIT_PMC_ATTR(INTERP, info, SELF, NQPLexInfo, static_values_cache);
+        SUPER(info);
+    }
+
+    VTABLE void freeze(PMC *info) {
+        SUPER(info);
+    }
+
+    VTABLE void thaw(PMC *info) {
+        SUPER(info);
+    }
 
 /*