[svn:parrot] r44863 - in branches/ops_pct/compilers/opsc/src/Ops: . Trans

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Mar 11 05:09:01 2010
New Revision: 44863
URL: https://trac.parrot.org/parrot/changeset/44863

Log:
Remove redundant

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

Modified: branches/ops_pct/compilers/opsc/src/Ops/Op.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Thu Mar 11 01:04:53 2010	(r44862)
+++ branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Thu Mar 11 05:09:01 2010	(r44863)
@@ -250,10 +250,10 @@
 
 =end
 
-method source( $trans, $op ) {
+method source( $trans ) {
 
     my $prelude := $trans.body_prelude;
-    return self.get_body( $prelude, $trans, $op );
+    return self.get_body( $prelude, $trans );
 }
 
 
@@ -326,7 +326,7 @@
 
 =begin
 
-=item C<get_body($prelude, $trans, $op)>
+=item C<get_body($prelude, $trans)>
 
 Performs the various macro substitutions using the specified transform,
 correctly handling nested substitions, and repeating over the whole string
@@ -337,12 +337,12 @@
 
 =end
 
-method get_body( $prelude, $trans, $op ) {
+method get_body( $prelude, $trans ) {
 
     my $body := $prelude;
 
     #work through the op_body tree
-    for $op<op_body> {
+    for $self<op_body> {
 
         pir::say("found an op body thing");
     }

Modified: branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Thu Mar 11 01:04:53 2010	(r44862)
+++ branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Thu Mar 11 05:09:01 2010	(r44863)
@@ -57,7 +57,7 @@
         my $prototype := $emitter.sym_export
                 ~ " opcode_t * $func_name (opcode_t *, PARROT_INTERP);\n";
 
-        my $src := $op.source( self, $op );
+        my $src := $op.source( self );
 
         @op_func_table.push(sprintf( "  %-50s /* %6ld */\n", "$func_name,", $index ));