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

View of /sml/trunk/src/MLRISC/control/mlrisc-timing.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 114 - (download) (annotate)
Fri Jun 5 19:41:21 1998 UTC (21 years, 4 months ago) by monnier
File size: 1261 byte(s)
This commit was generated by cvs2svn to compensate for changes in r113,
which included commits to RCS files with non-trunk default branches.
signature MLRISC_TIMING =
sig

   type timing = {usr:Time.time,gc:Time.time,sys:Time.time}

   val copy_propagation : timing ref
   val cluster_to_IR    : timing ref
   val guess            : timing ref
   val IR_to_cluster    : timing ref
   val ssa              : timing ref
   val liveness         : timing ref
   val scheduling       : timing ref
   val ra               : timing ref
   val emit_code        : timing ref

end

structure MLRISC_Timing : MLRISC_TIMING =
struct

   structure T = Time
   type timing = {usr:T.time,gc:T.time,sys:T.time}

   val copy_propagation = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val cluster_to_IR    = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val guess            = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val IR_to_cluster    = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val ssa              = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val liveness         = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val scheduling       = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val ra               = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}
   val emit_code        = ref {usr=T.zeroTime,gc=T.zeroTime,sys=T.zeroTime}

end

(*
 * $Log$
 *)

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