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 245 - (download) (annotate)
Sat Apr 17 18:47:12 1999 UTC (20 years, 3 months ago) by monnier
Original Path: sml/branches/SMLNJ/src/MLRISC/control/mlrisc-timing.sml
File size: 1352 byte(s)
version 110.16
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: mlrisc-timing.sml,v $
 * Revision 1.1.1.1  1998/04/08 18:39:01  george
 * Version 110.5
 *
 *)

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