Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/common/stats.sml
ViewVC logotype

Diff of /trunk/src/compiler/common/stats.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 285, Fri Aug 13 20:52:11 2010 UTC revision 340, Mon Sep 13 15:34:36 2010 UTC
# Line 36  Line 36 
36      val counters = A.array(maxNumCounters, 0)      val counters = A.array(maxNumCounters, 0)
37    
38      val nextCounter = ref 0      val nextCounter = ref 0
     val verbose = ref false  
39      val reportStats = ref false      val reportStats = ref false
40    
41      type counter = int      type counter = int
# Line 50  Line 49 
49            end            end
50    
51      fun tick i = (      fun tick i = (
52            if (! verbose)            if Log.enabled()
53              then print(concat["++ ", A.sub(names, i), "\n"])              then Log.msg(concat["++ ", A.sub(names, i), "\n"])
54              else ();              else ();
55            A.update(counters, i, A.sub(counters, i)+1))            A.update(counters, i, A.sub(counters, i)+1))
56      fun bump (i, n) = A.update(counters, i, A.sub(counters, i)+n)      fun bump (i, n) = A.update(counters, i, A.sub(counters, i)+n)

Legend:
Removed from v.285  
changed lines
  Added in v.340

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0