Insert write barrier after compute of allocation strategy.

Raku · Feb 11, 2011 · 7387a66 · 7387a66
1 parent ae24d3e
commit 7387a66
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/metamodel/reprs/P6opaque.c b/src/metamodel/reprs/P6opaque.c
@@ -351,8 +351,10 @@ static PMC * instance_of(PARROT_INTERP, PMC *self, PMC *WHAT) {
 
     /* Compute allocation strategy if we've not already done so. */
     REPRP6opaque *repr = P6O_REPR_STRUCT(self);
-    if (!repr->allocation_size)
+    if (!repr->allocation_size) {
         compute_allocation_strategy(interp, WHAT, repr);
+        PARROT_GC_WRITE_BARRIER(interp, self);
+    }
 
     /* Allocate and set up object instance. */
     obj = Parrot_gc_allocate_fixed_size_storage(interp, repr->allocation_size);