[svn:parrot] r40059 - trunk/lib/Parrot

cotto at svn.parrot.org cotto at svn.parrot.org
Mon Jul 13 18:13:31 UTC 2009


Author: cotto
Date: Mon Jul 13 18:13:30 2009
New Revision: 40059
URL: https://trac.parrot.org/parrot/changeset/40059

Log:
[ops2c] remove debugging messages

Modified:
   trunk/lib/Parrot/OpsFile.pm

Modified: trunk/lib/Parrot/OpsFile.pm
==============================================================================
--- trunk/lib/Parrot/OpsFile.pm	Mon Jul 13 18:02:14 2009	(r40058)
+++ trunk/lib/Parrot/OpsFile.pm	Mon Jul 13 18:13:30 2009	(r40059)
@@ -174,7 +174,6 @@
 
 use Parrot::Op;
 use Parrot::Config;
-use Data::Dumper;
 
 our %op_body;
 our @EXPORT = qw( %op_body );
@@ -493,8 +492,6 @@
         $body .= "\ngoto NEXT();";
     }
 
-    print "working on '$short_name'\n";
-    print join(',',@$args)."\n";
     foreach my $variant ( expand_args(@$args) ) {
         my (@fixedargs) = split( /,/, $variant );
         my $op =
@@ -601,7 +598,6 @@
             && ( $fixedargs[ @fixedargs - 1 ] )
             && ( $fixedargs[ @fixedargs - 1 ] eq 'i' ) ) {
             or_flag( \$jumps, "PARROT_JUMP_GNEXT" );
-            print "found GNEXT in op $short_name\n";
         }
 
         $op->jump($jumps);


More information about the parrot-commits mailing list