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
ViewVC logotype

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

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

revision 3173, Sun Mar 29 23:39:25 2015 UTC revision 3174, Mon Mar 30 11:46:58 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)
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)
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)
112            in            in
113            (***** CODE GENERATION *****)            (***** CODE GENERATION *****)
114              PhaseTimer.withTimer Timers.timeCodegen              PhaseTimer.withTimer Timers.timeCodegen
# Line 145  Line 149 
149                          doFile (target, file, output);                          doFile (target, file, output);
150                        Stats.report ();                        Stats.report ();
151                        Log.reportTiming Timers.timeCompiler;                        Log.reportTiming Timers.timeCompiler;
152    
153                        OS.Process.success                        OS.Process.success
154                      ) handle exn => handleExn exn                      ) handle exn => handleExn exn
155                      else (err "invalid command-line inputs\n"; OS.Process.failure)                      else (err "invalid command-line inputs\n"; OS.Process.failure)

Legend:
Removed from v.3173  
changed lines
  Added in v.3174

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