Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/Basics/stats/stats.sml
ViewVC logotype

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

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

revision 1424, Tue Nov 18 21:04:35 2003 UTC revision 1425, Tue Nov 18 21:06:42 2003 UTC
# Line 123  Line 123 
123                else {usr=usr--u,sys=sys--s,gc=gc--g}                else {usr=usr--u,sys=sys--s,gc=gc--g}
124    
125      local      local
126        fun gettime () = Timer.checkCPUTimer(Timer.totalCPUTimer())        fun gettime () = let
127              val { nongc, gc } =
128                  Timer.checkGCTime(Timer.totalCPUTimer())
129          in
130              (* This is a hack.
131               * (This module deserves a complete rewrite!!) *)
132              { usr = #usr nongc, sys = Time.+ (#sys nongc, #sys gc),
133                gc = #usr gc }
134          end
135        val last = ref (gettime())        val last = ref (gettime())
136      in      in
137      fun reset() = (      fun reset() = (

Legend:
Removed from v.1424  
changed lines
  Added in v.1425

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