Add missing mark in KnowHOWREPR that could lead to segfaults and othe…

…r corruption.
Raku · Aug 31, 2012 · c0fbe4d · c0fbe4d
1 parent c07af7a
commit c0fbe4d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/6model/reprs/KnowHOWREPR.c b/src/6model/reprs/KnowHOWREPR.c
@@ -59,6 +59,8 @@ static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
 /* This Parrot-specific addition to the API is used to mark an object. */
 static void gc_mark(PARROT_INTERP, STable *st, void *data) {
     KnowHOWREPRBody *body = (KnowHOWREPRBody *)data;
+    if (!STRING_IS_NULL(body->name))
+        Parrot_gc_mark_STRING_alive(interp, body->name);
     if (!PMC_IS_NULL(body->methods))
         Parrot_gc_mark_PMC_alive(interp, body->methods);
     if (!PMC_IS_NULL(body->attributes))