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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/driver/main.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/driver/main.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3259, Mon Sep 21 15:14:52 2015 UTC revision 3260, Wed Sep 23 16:09:21 2015 UTC
# Line 94  Line 94 
94            val _=testp "High Op"            val _=testp "High Op"
95            val highIL = HighOptimizer.optimize highIL            val highIL = HighOptimizer.optimize highIL
96            val _ = PhaseTimer.stop Timers.timeHigh            val _ = PhaseTimer.stop Timers.timeHigh
97            (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeHigh)*)            val _=PhaseTimer.report(TextIO.stdOut,Timers.timeHigh)
98          (***** TRANSLATION TO MID IL *****)          (***** TRANSLATION TO MID IL *****)
99            val _=testp  "High to mid"            val _=testp  "High to mid"
100            val midIL = PhaseTimer.withTimer Timers.timeMid HighToMid.translate highIL            val midIL = PhaseTimer.withTimer Timers.timeMid HighToMid.translate highIL
101            val _=testp  "Mid Op"            val _=testp  "Mid Op"
102            val midIL = PhaseTimer.withTimer Timers.timeMid MidOptimizer.optimize midIL            val midIL = PhaseTimer.withTimer Timers.timeMid MidOptimizer.optimize midIL
103    
104          (* val _=PhaseTimer.report(TextIO.stdOut,Timers.timeMid)*)           val _=PhaseTimer.report(TextIO.stdOut,Timers.timeMid)
105          (***** TRANSLATION TO LOW IL *****)          (***** TRANSLATION TO LOW IL *****)
106            val _=testp  "Mid to Low IL"            val _=testp  "Mid to Low IL"
107            val lowIL = PhaseTimer.withTimer Timers.timeLow MidToLow.translate midIL            val lowIL = PhaseTimer.withTimer Timers.timeLow MidToLow.translate midIL
108            val _=testp  "Low IL Op"            val _=testp  "Low IL Op"
109            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL
110            val _ = testp  "Code Gen"            val _ = testp  "Code Gen"
111           (*   val _=PhaseTimer.report(TextIO.stdOut,Timers.timeLow)*)              val _=PhaseTimer.report(TextIO.stdOut,Timers.timeLow)
112            in            in
113            (***** CODE GENERATION *****)            (***** CODE GENERATION *****)
114              PhaseTimer.withTimer Timers.timeCodegen              PhaseTimer.withTimer Timers.timeCodegen

Legend:
Removed from v.3259  
changed lines
  Added in v.3260

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