[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