Add missing write barrier.

jnthn · jnthn · commit 427aa4208740 · 2012-01-13T19:20:21.000+01:00
diff --git a/src/ops/nqp.ops b/src/ops/nqp.ops
@@ -832,6 +832,7 @@ inline op repr_bind_pos_obj(in PMC, in INT, in PMC) :base_core {
         else
             Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
                 "Cannot do bind_pos on a type object");
+        PARROT_GC_WRITE_BARRIER(interp, obj);
     }
     else
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,

Original file line number	Diff line number	Diff line change
`@@ -832,6 +832,7 @@ inline op repr_bind_pos_obj(in PMC, in INT, in PMC) :base_core {`
`832`	`832`	`else`
`833`	`833`	`Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,`
`834`	`834`	`"Cannot do bind_pos on a type object");`
	`835`	`+ PARROT_GC_WRITE_BARRIER(interp, obj);`
`835`	`836`	`}`
`836`	`837`	`else`
`837`	`838`	`Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,`