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/trunk/src/compiler/time-comp.sml
ViewVC logotype

View of /sml/trunk/src/compiler/time-comp.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 146 - (download) (annotate)
Mon Sep 7 23:26:10 1998 UTC (21 years, 3 months ago) by monnier
File size: 525 byte(s)
*** empty log message ***
(* 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;


(*
 * $Log: time-comp.sml,v $
 * Revision 1.1.1.1  1997/01/14 01:38:07  george
 *   Version 109.24
 *
 *)

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