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/branches/SMLNJ/src/MLRISC/control/mlrisc-timing.sml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/MLRISC/control/mlrisc-timing.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 245 - (view) (download)

1 : monnier 245 signature MLRISC_TIMING =
2 :     sig
3 :    
4 :     type timing = {usr:Time.time,gc:Time.time,sys:Time.time}
5 :    
6 :     val copy_propagation : timing ref
7 :     val cluster_to_IR : timing ref
8 :     val guess : timing ref
9 :     val IR_to_cluster : timing ref
10 :     val ssa : timing ref
11 :     val liveness : timing ref
12 :     val scheduling : timing ref
13 :     val ra : timing ref
14 :     val emit_code : timing ref
15 :    
16 :     end
17 :    
18 :     structure MLRISC_Timing : MLRISC_TIMING =
19 :     struct
20 :    
21 :     structure T = Time
22 :     type timing = {usr:T.time,gc:T.time,sys:T.time}
23 :    
24 :     val copy_propagation = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
25 :     val cluster_to_IR = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
26 :     val guess = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
27 :     val IR_to_cluster = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
28 :     val ssa = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
29 :     val liveness = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
30 :     val scheduling = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
31 :     val ra = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
32 :     val emit_code = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
33 :    
34 :     end
35 :    
36 :     (*
37 :     * $Log: mlrisc-timing.sml,v $
38 :     * Revision 1.1.1.1 1998/04/08 18:39:01 george
39 :     * Version 110.5
40 :     *
41 :     *)

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