Fix write barrier in updating method_cache

bacek · bacek · commit 22555607c5d9 · 2011-02-14T07:36:55.000+11:00
diff --git a/src/ops/nqp.ops b/src/ops/nqp.ops
@@ -322,7 +322,7 @@ inline op publish_method_cache(in PMC, in PMC) :base_core {
             VTABLE_set_pmc_keyed_str(interp, cache, name, meth);
         }
         target_st->method_cache = cache;
-        PARROT_GC_WRITE_BARRIER(interp, $1);
+        PARROT_GC_WRITE_BARRIER(interp, STABLE_PMC($1));
     }
     else {
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,

Original file line number	Diff line number	Diff line change
`@@ -322,7 +322,7 @@ inline op publish_method_cache(in PMC, in PMC) :base_core {`
`322`	`322`	`VTABLE_set_pmc_keyed_str(interp, cache, name, meth);`
`323`	`323`	`}`
`324`	`324`	`target_st->method_cache = cache;`
`325`		`- PARROT_GC_WRITE_BARRIER(interp, $1);`
	`325`	`+ PARROT_GC_WRITE_BARRIER(interp, STABLE_PMC($1));`
`326`	`326`	`}`
`327`	`327`	`else {`
`328`	`328`	`Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,`