Add a missing write barrier.

Raku · Oct 23, 2011 · 7bc5fcd · 7bc5fcd
1 parent bbe37f3
commit 7bc5fcd
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/ops/nqp.ops b/src/ops/nqp.ops
@@ -784,6 +784,7 @@ inline op repr_box_str(out PMC, in STR, in PMC) :base_core {
     if (type->vtable->base_type == smo_id) {
         $1 = REPR(type)->instance_of(interp, type);
         REPR($1)->set_str(interp, $1, $2);
+        PARROT_GC_WRITE_BARRIER(interp, $1);
     }
     else
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,