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 1424, Tue Nov 18 21:04:35 2003 UTC revision 1425, Tue Nov 18 21:06:42 2003 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 {gc=gc',usr=usr',sys=sys'} = Timer.checkCPUTimer timer             let val t = Timer.checkGCTime timer
22                   val gc' = #usr (#gc t)
23                   val usr' = #usr (#nongc t)
24                   val sys' = Time.+ (#sys (#gc t), #sys (#nongc t))
25             in  timing := {gc=Time.+(gc,gc'),             in  timing := {gc=Time.+(gc,gc'),
26                            usr=Time.+(usr,usr'),                            usr=Time.+(usr,usr'),
27                            sys=Time.+(sys,sys')}                            sys=Time.+(sys,sys')}

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