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 246 - (download) (annotate)
Sat Apr 17 18:47:12 1999 UTC (22 years, 6 months ago) by monnier
File size: 1352 byte(s)
This commit was generated by cvs2svn to compensate for changes in r245,
which included commits to RCS files with non-trunk default branches.
signature MLRISC_TIMING =

   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


structure MLRISC_Timing : MLRISC_TIMING =

   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}


 * $Log: mlrisc-timing.sml,v $
 * Revision  1998/04/08 18:39:01  george
 * Version 110.5

ViewVC Help
Powered by ViewVC 1.0.0