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

SCM Repository

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

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

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

revision 3997, Sun Jun 19 15:55:49 2016 UTC revision 3998, Sun Jun 19 17:12:03 2016 UTC
# Line 28  Line 28 
28    
29      fun quitWithError srcFile = raise ERROR      fun quitWithError srcFile = raise ERROR
30    
31      val testing = 1      val testing = 0
32      fun testp e = (case testing      fun testp e = (case testing
33          of 0 => ()          of 0 => ()
34          | _=> print(String.concat ["\n\t\t------------",e,"-----------\n"]))          | _=> print(String.concat ["\n\t\t------------",e,"-----------\n"]))
# Line 95  Line 95 
95    
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 105  Line 105 
105            (* val _=testp "High Op"*)            (* val _=testp "High Op"*)
106    
107            val highIL = HighOptimizer.optimize highIL            val highIL = HighOptimizer.optimize highIL
108    (*
109        val _ = SizeOfHigh.count ("", highIL)        val _ = SizeOfHigh.count ("", highIL)
110    *)
111    
112            val _ = PhaseTimer.stop Timers.timeHigh            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             val _ = SizeOfMid.count ("", midIL)            (* val _ = SizeOfMid.count ("", midIL)*)
118            val _=testp  "Mid Op"            val _=testp  "Mid Op"
119            val midIL = PhaseTimer.withTimer Timers.timeMid MidOptimizer.optimize midIL            val midIL = PhaseTimer.withTimer Timers.timeMid MidOptimizer.optimize midIL
120         val _ = SizeOfMid.count ("", midIL)        (*  val _ = SizeOfMid.count ("", midIL)*)
121           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeMid)*)           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeMid)*)
122          (***** TRANSLATION TO LOW IL *****)          (***** TRANSLATION TO LOW IL *****)
123            val _=testp  "Mid to Low IL"            val _=testp  "Mid to Low IL"
124            val lowIL = PhaseTimer.withTimer Timers.timeLow MidToLow.translate midIL            val lowIL = PhaseTimer.withTimer Timers.timeLow MidToLow.translate midIL
125    val _ = SizeOfLow.count ("", lowIL)    (* val _ = SizeOfLow.count ("", lowIL)*)
126            val _=testp  "Low IL Op"            val _=testp  "Low IL Op"
127            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL
128          val lowIL =  Normalize.transform lowIL          val lowIL =  Normalize.transform lowIL
129             val _ = SizeOfLow.count ("", lowIL)            (*  val _ = SizeOfLow.count ("", lowIL)*)
130            (* val _ = testp  "Code Gen"*)            (* val _ = testp  "Code Gen"*)
131           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeLow)*)           (*val _=PhaseTimer.report(TextIO.stdOut,Timers.timeLow)*)
132            in            in

Legend:
Removed from v.3997  
changed lines
  Added in v.3998

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