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
[diderot] / 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 3267, Wed Oct 7 19:26:16 2015 UTC revision 3268, Fri Oct 9 00:50:13 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.3267  
changed lines
  Added in v.3268
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge