[svn:parrot] r48311 - trunk/compilers/pct/src/PCT

[cotto at svn.parrot.org]

Author: cotto
Date: Wed Aug  4 08:48:59 2010
New Revision: 48311
URL: https://trac.parrot.org/parrot/changeset/48311

Log:
make --stagestats a little less noisy

Modified:
   trunk/compilers/pct/src/PCT/HLLCompiler.pir

Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	Wed Aug  4 08:04:54 2010	(r48310)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Wed Aug  4 08:48:59 2010	(r48311)
@@ -335,7 +335,10 @@
     $P1.'print'("Stage '")
     $P1.'print'(stagename)
     $P1.'print'("': ")
-    $P1.'print'($N2)
+    $P2 = new ['ResizablePMCArray']
+    push $P2, $N2
+    $S0 = sprintf "%.3f", $P2
+    $P1.'print'($S0)
     $P1.'print'(" sec\n")
     if target == stagename goto have_result
     goto stagestats_loop