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/MLRISC/control/mlrisc-timing.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/control/mlrisc-timing.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 18  Line 18 
18         fun run x =         fun run x =
19         let val timer = Timer.startCPUTimer()         let val timer = Timer.startCPUTimer()
20             fun update timer =             fun update timer =
21             let val t = Timer.checkGCTime timer             let val t = Timer.checkCPUTimes timer
22                 val gc' = #usr (#gc t)                 val gc' = #usr (#gc t)
23                 val usr' = #usr (#nongc t)                 val usr' = #usr (#nongc t)
24                 val sys' = Time.+ (#sys (#gc t), #sys (#nongc t))                 val sys' = Time.+ (#sys (#gc t), #sys (#nongc t))

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