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 3672, Tue Feb 9 06:46:50 2016 UTC revision 3673, Thu Feb 11 20:03:26 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 107  Line 107 
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.3672  
changed lines
  Added in v.3673

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