[svn:parrot] r39974 - branches/ops_pct/compilers/opsc/compiler

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Jul 10 05:25:37 2009
New Revision: 39974
URL: https://trac.parrot.org/parrot/changeset/39974

Log:
[opsc] switch back to a normal PAST::Block for per-op info; most processing will be done by the runcores

Modified:
   branches/ops_pct/compilers/opsc/compiler/actions.pm

Modified: branches/ops_pct/compilers/opsc/compiler/actions.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/compiler/actions.pm	Fri Jul 10 05:15:20 2009	(r39973)
+++ branches/ops_pct/compilers/opsc/compiler/actions.pm	Fri Jul 10 05:25:37 2009	(r39974)
@@ -45,20 +45,17 @@
         $<op_body>.ast
     );
 
-    my $op := Ops::Op.new( :name(~$<op_name>) );
-    $op.set_body(~$<op_body>);
-
     # Handling flags.
     for $<op_flag> {
-        $op<op_flags>{ ~$_<identifier> } := 1;
+        $past<op_flags>{~$_<identifier>} := 1;
     }
 
     # Handling parameters.
     if $<op_params> {
-        $op<parameters> := $<op_params>[0].ast;
+        $past<parameters> := $<op_params>[0].ast;
     }
 
-    make $op;
+    make $past;
 }
 
 method op_params($/) {