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
[diderot] / 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 3679, Wed Feb 17 04:04:29 2016 UTC revision 3680, Thu Feb 18 20:07:38 2016 UTC
# Line 96  Line 96 
96            val _ = PhaseTimer.start Timers.timeTranslate            val _ = PhaseTimer.start Timers.timeTranslate
97            val highIL = Translate.translate simple            val highIL = Translate.translate simple
98    
99  val _ = SizeOfHigh.count ("", highIL)  (*  val _ = SizeOfHigh.count ("", highIL)*)
100            val _ = PhaseTimer.stop Timers.timeTranslate            val _ = PhaseTimer.stop Timers.timeTranslate
101          (***** HIGH-IL OPTIMIZATION *****)          (***** HIGH-IL OPTIMIZATION *****)
102            val _=testp"In HighIL"            val _=testp"In HighIL"
# Line 106  Line 106 
106    
107            val highIL = HighOptimizer.optimize highIL            val highIL = HighOptimizer.optimize highIL
108    
109    (*
110               val _ = SizeOfHigh.count ("", highIL)                val _ = SizeOfHigh.count ("", highIL)*)
111    
112    
113            val _ = PhaseTimer.stop Timers.timeHigh            val _ = PhaseTimer.stop Timers.timeHigh
# Line 115  Line 115 
115          (***** TRANSLATION TO MID IL *****)          (***** TRANSLATION TO MID IL *****)
116           (*  val _=testp  "High to mid"*)           (*  val _=testp  "High to mid"*)
117            val midIL = PhaseTimer.withTimer Timers.timeMid HighToMid.translate highIL            val midIL = PhaseTimer.withTimer Timers.timeMid HighToMid.translate highIL
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.3679  
changed lines
  Added in v.3680
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge