[svn:parrot] r44901 - in branches/ops_pct/compilers/opsc: . src/Ops

[bacek at svn.parrot.org]

Author: bacek
Date: Fri Mar 12 21:47:18 2010
New Revision: 44901
URL: https://trac.parrot.org/parrot/changeset/44901

Log:
Add debug profiling info.

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	Fri Mar 12 13:35:35 2010	(r44900)
+++ branches/ops_pct/compilers/opsc/ops2c.nqp	Fri Mar 12 21:47:18 2010	(r44901)
@@ -25,7 +25,10 @@
     :skip_file('src/ops/ops.skip'),
 );
 
+my $start_time := pir::time__N();
 my $f := Ops::File.new(|@files, :oplib($lib));
+my $end_time := pir::time__N();
+say('# Ops parsed ' ~ ($end_time - $start_time));
 my $emitter := Ops::Emitter.new(
     :ops_file($f), :trans($trans), :script('ops2c'),
     :flags(

Modified: branches/ops_pct/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/File.pm	Fri Mar 12 13:35:35 2010	(r44900)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm	Fri Mar 12 21:47:18 2010	(r44901)
@@ -226,8 +226,10 @@
     $Ops::Compiler::Actions::OPLIB := self<oplib>;
 
     say("# Parsing $file");
-    my $buffer := slurp($file);
+    my $start_time := pir::time__N();
+    my $buffer     := slurp($file);
     self.compile_ops($buffer);
+    say('# ... in ' ~ pir::time__N() - $start_time ~ ' seconds');
 }
 
 method compile_ops($str) {