SCM Repository
Annotation of /sml/branches/SMLNJ/src/compiler/time-comp.sml
Parent Directory
| 
Revision Log
Revision 91 - (view) (download)
| 1 : | monnier | 89 | (* time-comp.sml |
| 2 : | * | ||
| 3 : | * COPYRIGHT (c) 1996 AT&T Research. | ||
| 4 : | * | ||
| 5 : | * Time a compile of the SML/NJ system. | ||
| 6 : | * | ||
| 7 : | *) | ||
| 8 : | |||
| 9 : | local | ||
| 10 : | structure T = Time | ||
| 11 : | structure Tm = Timer | ||
| 12 : | fun cvt {usr, gc, sys} = { | ||
| 13 : | usr = T.toString usr, | ||
| 14 : | gc = T.toString gc, | ||
| 15 : | sys = T.toString sys, | ||
| 16 : | tot = T.toString(T.+(usr, T.+(sys, gc))) | ||
| 17 : | } | ||
| 18 : | in | ||
| 19 : | fun make () = let | ||
| 20 : | val t0 = Tm.startCPUTimer() | ||
| 21 : | in | ||
| 22 : | CMB.make(); | ||
| 23 : | cvt (Tm.checkCPUTimer t0) | ||
| 24 : | end | ||
| 25 : | end; | ||
| 26 : | |||
| 27 : | |||
| 28 : | (* | ||
| 29 : | * $Log: time-comp.sml,v $ | ||
| 30 : | * Revision 1.1.1.1 1998/04/08 18:39:14 george | ||
| 31 : | * Version 110.5 | ||
| 32 : | * | ||
| 33 : | * Revision 1.1.1.1 1997/01/14 01:38:07 george | ||
| 34 : | * Version 109.24 | ||
| 35 : | * | ||
| 36 : | *) |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
