[svn:parrot] r46694 - in branches/ops_pct/compilers/opsc: . src/Ops
cotto at svn.parrot.org
cotto at svn.parrot.org
Sun May 16 02:14:02 UTC 2010
Author: cotto
Date: Sun May 16 02:14:02 2010
New Revision: 46694
URL: https://trac.parrot.org/parrot/changeset/46694
Log:
[opsc] small simplifications
Modified:
branches/ops_pct/compilers/opsc/ops2c.nqp
branches/ops_pct/compilers/opsc/src/Ops/File.pm
Modified: branches/ops_pct/compilers/opsc/ops2c.nqp
==============================================================================
--- branches/ops_pct/compilers/opsc/ops2c.nqp Sun May 16 02:10:07 2010 (r46693)
+++ branches/ops_pct/compilers/opsc/ops2c.nqp Sun May 16 02:14:02 2010 (r46694)
@@ -77,8 +77,7 @@
$f := Ops::File.new(|@files, :core(0));
}
-my @spf_args := list(pir::time__N() - $start_time);
-pir::sprintf(my $time, "%.3f", @spf_args);
+pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
say("# Ops parsed in $time seconds.");
my $emitter := Ops::Emitter.new(
Modified: branches/ops_pct/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/File.pm Sun May 16 02:10:07 2010 (r46693)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm Sun May 16 02:14:02 2010 (r46694)
@@ -244,8 +244,7 @@
my $start_time := pir::time__N();
my $buffer := slurp($file);
self.compile_ops($buffer);
- my @spf_args := list(pir::time__N() - $start_time);
- pir::sprintf(my $time, "%.3f", @spf_args);
+ pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
say("# Parsed $file in $time seconds.");
}
More information about the parrot-commits
mailing list