Annotation of /sml/trunk/src/MLRISC/control/mlrisc-timing.sml

Parent Directory | Revision Log

---

Revision 1227 - (view) (download)

1 :	jhr	1227	(* mlrisc-timing.sml
2 :			*
3 :			* COPYRIGHT (c) 2002 Bell Labs, Lucent Technologies
4 :			*)
5 :
6 :	monnier	245	signature MLRISC_TIMING =
7 :			sig
8 :
9 :	monnier	411	val timePhase : string -> ('a -> 'b) -> 'a -> 'b
10 :	monnier	245	end
11 :
12 :	monnier	429	structure MLRiscTiming : MLRISC_TIMING =
13 :	monnier	245	struct
14 :
15 :	monnier	411	fun timePhase name f =
16 :	blume	1126	let val timing = MLRiscControl.timing name
17 :			val { gc, usr, sys } = !timing
18 :	monnier	411	fun run x =
19 :			let val timer = Timer.startCPUTimer()
20 :			fun update timer =
21 :			let val {gc=gc',usr=usr',sys=sys'} = Timer.checkCPUTimer timer
22 :			in timing := {gc=Time.+(gc,gc'),
23 :			usr=Time.+(usr,usr'),
24 :			sys=Time.+(sys,sys')}
25 :			end
26 :			val y = f x handle e => (update timer; raise e)
27 :			in update timer; y
28 :			end
29 :			in run end
30 :
31 :	monnier	245	end

---

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