author | wenzelm |
Tue, 02 Nov 2010 20:31:46 +0100 | |
changeset 40300 | d4487353b3a0 |
parent 40299 | 132e2349694b |
child 40301 | bf39a257b3d3 |
--- a/src/Pure/ML-Systems/timing.ML Tue Nov 02 20:16:56 2010 +0100 +++ b/src/Pure/ML-Systems/timing.ML Tue Nov 02 20:31:46 2010 +0100 @@ -1,9 +1,11 @@ (* Title: Pure/ML-Systems/timing.ML Author: Makarius -Compiler-independent timing functions. +Basic support for timing. *) +fun seconds s = Time.fromNanoseconds (Real.ceil (s * 1E9)); + fun start_timing () = let val real_timer = Timer.startRealTimer ();