[svn:parrot] r44715 - branches/ops_pct/compilers/opsc/src/Ops

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Mar  6 22:48:18 2010
New Revision: 44715
URL: https://trac.parrot.org/parrot/changeset/44715

Log:
Fix fetching Op.body

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Op.pm

Modified: branches/ops_pct/compilers/opsc/src/Ops/Op.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Sat Mar  6 22:47:54 2010	(r44714)
+++ branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Sat Mar  6 22:48:18 2010	(r44715)
@@ -66,6 +66,10 @@
 
 class Ops::Op is PAST::Block;
 
+INIT {
+    pir::load_bytecode("dumper.pbc");
+}
+
 =begin
 
 =item C<new(:$code, :$type, :$name, :@args, :%flags)>
@@ -164,7 +168,13 @@
 
 =end
 
-method body($body?) { self.attr('body', $body, defined($body)) }
+method body() {
+    my $res := '';
+    for @(self) -> $part {
+        $res := $res ~ $part<inline>;
+    }
+    $res;
+}
 
 =begin