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 1504, Fri Jun 4 15:59:52 2004 UTC revision 1505, Thu Jun 17 20:41:47 2004 UTC
# Line 125  Line 125 
125      local      local
126        fun gettime () = let        fun gettime () = let
127            val { nongc, gc } =            val { nongc, gc } =
128                Timer.checkGCTime(Timer.totalCPUTimer())                Timer.checkCPUTimes(Timer.totalCPUTimer())
129        in        in
130            (* This is a hack.            (* This is a hack.
131             * (This module deserves a complete rewrite!!) *)             * (This module deserves a complete rewrite!!) *)

Legend:
Removed from v.1504  
changed lines
  Added in v.1505

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