Add a write barrier.

rakudo · Sep 21, 2011 · 5440fde · 5440fde
1 parent e606bec
commit 5440fde
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/pmc/perl6lexpad.pmc b/src/pmc/perl6lexpad.pmc
@@ -28,6 +28,7 @@ static PMC * fresh_scalar(PARROT_INTERP, PMC *cont_desc) {
     Rakudo_Scalar *cont = (Rakudo_Scalar *)PMC_data(fresh);
     cont->descriptor    = cont_desc;
     cont->value         = Any;
+    PARROT_GC_WRITE_BARRIER(interp, fresh);
     return fresh;
 }