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

SCM Repository

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

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

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

revision 3594, Fri Jan 15 23:07:49 2016 UTC revision 3595, Sat Jan 16 05:48:18 2016 UTC
# Line 94  Line 94 
94          (***** TRANSLATION TO HIGH IL*****)          (***** TRANSLATION TO HIGH IL*****)
95            val _ = PhaseTimer.start Timers.timeTranslate            val _ = PhaseTimer.start Timers.timeTranslate
96            val highIL = Translate.translate simple            val highIL = Translate.translate simple
97  (*  
98           val _ = SizeOfHigh.count ("", highIL)*)           val _ = SizeOfHigh.count ("", highIL)
99            val _ = PhaseTimer.stop Timers.timeTranslate            val _ = PhaseTimer.stop Timers.timeTranslate
100          (***** HIGH-IL OPTIMIZATION *****)          (***** HIGH-IL OPTIMIZATION *****)
101            val _=testp"In HighIL"            val _=testp"In HighIL"
# Line 105  Line 105 
105    
106            val highIL = HighOptimizer.optimize highIL            val highIL = HighOptimizer.optimize highIL
107    
 (*  
               val _ = SizeOfHigh.count ("", highIL)*)  
108    
109  (*                val _ = SizeOfHigh.count ("", highIL)
110            val _ = PhaseTimer.stop Timers.timeHigh*)  
111    
112              val _ = PhaseTimer.stop Timers.timeHigh
113            (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeHigh)*)            (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeHigh)*)
114          (***** TRANSLATION TO MID IL *****)          (***** TRANSLATION TO MID IL *****)
115            val _=testp  "High to mid"            val _=testp  "High to mid"
116            val midIL = PhaseTimer.withTimer Timers.timeMid HighToMid.translate highIL            val midIL = PhaseTimer.withTimer Timers.timeMid HighToMid.translate highIL
117  (*  
118               val _ = SizeOfMid.count ("", midIL)*)               val _ = SizeOfMid.count ("", midIL)
119            val _=testp  "Mid Op"            val _=testp  "Mid Op"
120            val midIL = PhaseTimer.withTimer Timers.timeMid MidOptimizer.optimize midIL            val midIL = PhaseTimer.withTimer Timers.timeMid MidOptimizer.optimize midIL
121            (* val _ = SizeOfMid.count ("", midIL)*)             val _ = SizeOfMid.count ("", midIL)
122           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeMid)*)           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeMid)*)
123          (***** TRANSLATION TO LOW IL *****)          (***** TRANSLATION TO LOW IL *****)
124            val _=testp  "Mid to Low IL"            val _=testp  "Mid to Low IL"
125            val lowIL = PhaseTimer.withTimer Timers.timeLow MidToLow.translate midIL            val lowIL = PhaseTimer.withTimer Timers.timeLow MidToLow.translate midIL
126                (*val _ = SizeOfLow.count ("", lowIL)*)                val _ = SizeOfLow.count ("", lowIL)
127            val _=testp  "Low IL Op"            val _=testp  "Low IL Op"
128            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL
129          val lowIL =  Normalize.transform lowIL          val lowIL =  Normalize.transform lowIL
130                (* val _ = SizeOfLow.count ("", lowIL)*)                 val _ = SizeOfLow.count ("", lowIL)
131            val _ = testp  "Code Gen"            val _ = testp  "Code Gen"
132           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeLow)*)           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeLow)*)
133            in            in

Legend:
Removed from v.3594  
changed lines
  Added in v.3595

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