Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/branches/primop-branch/src/compiler/time-comp.sml
ViewVC logotype

View of /sml/branches/primop-branch/src/compiler/time-comp.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1372 - (download) (annotate)
Mon Sep 15 22:16:26 2003 UTC (16 years, 8 months ago)
File size: 419 byte(s)
This commit was manufactured by cvs2svn to create branch
'primop-branch'.
(* time-comp.sml
 *
 * COPYRIGHT (c) 1996 AT&T Research.
 *
 * Time a compile of the SML/NJ system.
 *
 *)

local
structure T = Time
structure Tm = Timer
fun cvt {usr, gc, sys} = {
	usr = T.toString usr,
	gc = T.toString gc,
	sys = T.toString sys,
	tot = T.toString(T.+(usr, T.+(sys, gc)))
      }
in
fun make () = let
      val t0 = Tm.startCPUTimer()
      in
	CMB.make();
	cvt (Tm.checkCPUTimer t0)
      end
end;



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