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/branches/blume-private-devel/src/MLRISC/control/mlrisc-timing.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/MLRISC/control/mlrisc-timing.sml

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

revision 1452, Mon Feb 9 20:33:28 2004 UTC revision 1453, Mon Feb 9 20:33:28 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 {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.1452  
changed lines
  Added in v.1453

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