[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