Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] View of /branches/vis12/src/compiler/common/timers.sml
ViewVC logotype

View of /branches/vis12/src/compiler/common/timers.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1823 - (download) (annotate)
Wed Apr 11 14:22:05 2012 UTC (7 years, 5 months ago) by jhr
File size: 1702 byte(s)
  adding finer-grain phase timers
(* timers.sml
 *
 * COPYRIGHT (c) 2011 The Diderot Project (http://diderot-language.cs.uchicago.edu)
 * All rights reserved.
 *)

structure Timers =
  struct

    val timeCompiler = PhaseTimer.newTimer "compiler"
    val timeFront = PhaseTimer.newPhase (timeCompiler, "front end")
    val timeParser = PhaseTimer.newPhase (timeFront, "parser")
    val timeTypechecker = PhaseTimer.newPhase (timeFront, "typechecker")
    val timeSimplify = PhaseTimer.newPhase (timeFront, "simplify")
    val timeTranslate = PhaseTimer.newPhase (timeCompiler, "translate")
    val timeHigh = PhaseTimer.newPhase (timeCompiler, "High IL optimization")
    val timeHighVN = PhaseTimer.newPhase (timeHigh, "High IL value numbering")
    val timeHighNorm = PhaseTimer.newPhase (timeHigh, "High IL normalization")
    val timeHighCheck = PhaseTimer.newPhase (timeHigh, "High IL checking")
    val timeMid = PhaseTimer.newPhase (timeCompiler, "Mid IL optimization")
    val timeMidContract = PhaseTimer.newPhase (timeMid, "Mid IL contraction")
    val timeMidVN = PhaseTimer.newPhase (timeMid, "Mid IL value numbering")
    val timeMidCheck = PhaseTimer.newPhase (timeMid, "Mid IL checking")
    val timeLow = PhaseTimer.newPhase (timeCompiler, "Low IL optimization")
(*    val timeLowContract = PhaseTimer.newPhase (timeLow, "Low IL contraction")*)
    val timeLowVN = PhaseTimer.newPhase (timeLow, "Low IL value numbering")
    val timeLowCheck = PhaseTimer.newPhase (timeLow, "Low IL checking")
    val timeCodegen = PhaseTimer.newPhase (timeCompiler, "code generation")
    val timeLowToTree = PhaseTimer.newPhase (timeCodegen, "Low IL to Tree IL")
    val timeCC = PhaseTimer.newPhase (timeCodegen, "C compiler")

  end

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