Fix bug in Pmc2c which always generate WriteBarrier even :manual_wb w…

…as specified.
parrot · Jan 31, 2012 · d57ea95 · d57ea95
1 parent bf13f88
commit d57ea95
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Parrot/Pmc2c/PMC.pm b/lib/Parrot/Pmc2c/PMC.pm
@@ -745,7 +745,7 @@ sub post_method_gen {
                          split (/,/, $method->parameters);
         $body .= $method->full_method_name($self->name) . "_orig($parameters);\n";
 
-        $body .= "PARROT_GC_WRITE_BARRIER(interp, _self);\n";
+        $body .= "PARROT_GC_WRITE_BARRIER(interp, _self);\n" unless $self->vtable_method_has_manual_wb($method->name);
         $body .= "return result;" if $need_result;
 
         $method->body(Parrot::Pmc2c::Emitter->text($body) );