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

SCM Repository

[smlnj] Annotation of /sml/trunk/compiler/time-comp.sml
ViewVC logotype

Annotation of /sml/trunk/compiler/time-comp.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download)
Original Path: sml/trunk/src/compiler/time-comp.sml

1 : monnier 146 (* 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 :    

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