[svn:parrot] r46965 - in trunk/compilers/opsc: . src/Ops

[bacek at svn.parrot.org]

Author: bacek
Date: Mon May 24 13:29:00 2010
New Revision: 46965
URL: https://trac.parrot.org/parrot/changeset/46965

Log:
Disable output of ops parsing time. Coke++

Modified:
   trunk/compilers/opsc/ops2c.nqp
   trunk/compilers/opsc/src/Ops/File.pm

Modified: trunk/compilers/opsc/ops2c.nqp
==============================================================================
--- trunk/compilers/opsc/ops2c.nqp	Mon May 24 12:58:33 2010	(r46964)
+++ trunk/compilers/opsc/ops2c.nqp	Mon May 24 13:29:00 2010	(r46965)
@@ -93,7 +93,7 @@
     $f := Ops::File.new(|@files, :core(0));
 }
 
-pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
+#pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
 #say("# Ops parsed in $time seconds.");
 
 my $emitter := Ops::Emitter.new(

Modified: trunk/compilers/opsc/src/Ops/File.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/File.pm	Mon May 24 12:58:33 2010	(r46964)
+++ trunk/compilers/opsc/src/Ops/File.pm	Mon May 24 13:29:00 2010	(r46965)
@@ -243,12 +243,12 @@
 method read_ops($file, $nolines) {
     $Ops::Compiler::Actions::OPLIB := self<oplib>;
 
-    say("# Parsing $file...");
+    #say("# Parsing $file...");
     my $start_time := pir::time__N();
     my $buffer     := slurp($file);
     self.compile_ops($buffer, :experimental( $file ~~ /experimental\.ops/));
-    pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
-    say("# Parsed $file in $time seconds.");
+    #pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
+    #say("# Parsed $file in $time seconds.");
 }
 
 method compile_ops($str, :$experimental? = 0) {