Diff of /sml/trunk/src/compiler/Basics/stats/stats.sml

Parent Directory | Revision Log | 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!!) *)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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