Implement Ops::Op.need_write_barrier

parrot · Feb 15, 2011 · 0dcf6ef · 0dcf6ef
1 parent bb45335
commit 0dcf6ef
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/compilers/opsc/src/Ops/Op.pm b/compilers/opsc/src/Ops/Op.pm
@@ -126,7 +126,15 @@ method name($name?) { self.attr('name', $name, defined($name)) }
 
 method args($args?) { self.attr('args', $args, defined($args)) }
 
-method need_write_barrier($args?) { self.attr('need_write_barrier', $args, defined($args)) }
+method need_write_barrier() {
+    my $need := 0;
+    # We need write barriers only for (in)out PMC|STR
+    for self.args -> $a {
+        $need := ($a<type> eq 'STR' || $a<type> eq 'PMC')
+                 && ($a<direction> eq 'out' || $a<direction> eq 'inout');
+    }
+    $need;
+}
 
 method arg_types($args?)  {
     my $res := self.attr('arg_types', $args, defined($args));