Add write barriers in a couple of places they are potentially needed.

rakudo · Oct 23, 2011 · ecc293a · ecc293a
1 parent 81ce668
commit ecc293a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/binder/container.c b/src/binder/container.c
@@ -162,5 +162,6 @@ PMC * Rakudo_create_container_descriptor(PARROT_INTERP, PMC *type, PMC *of, INTV
     desc->of = of;
     desc->rw = rw;
     desc->name = name;
+    PARROT_GC_WRITE_BARRIER(interp, result);
     return result;
 }
diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
@@ -452,6 +452,7 @@ inline op perl6_box_str(out PMC, in STR) :base_core {
     PMC *type = Rakudo_types_str_get();
     $1 = REPR(type)->instance_of(interp, type);
     REPR($1)->set_str(interp, $1, $2);
+    PARROT_GC_WRITE_BARRIER(interp, $1);
 }