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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/driver/main.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/driver/main.sml

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

revision 1171, Tue May 10 14:08:35 2011 UTC revision 1172, Tue May 10 15:57:48 2011 UTC
# Line 67  Line 67 
67              simple              simple
68            end            end
69    
70      (* FIXME: only one target for now *)
71        val target = {
72                target = TargetUtil.TARGET_C,
73                double = false,
74                parallel = false,
75                debug = false
76              }
77    
78      fun doFile filename = BackTrace.monitor (fn () => let      fun doFile filename = BackTrace.monitor (fn () => let
79            val baseName = (case OS.Path.splitBaseExt filename            val baseName = (case OS.Path.splitBaseExt filename
80                   of {base, ext=SOME "diderot"} => base                   of {base, ext=SOME "diderot"} => base
# Line 89  Line 97 
97            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL            val lowIL = PhaseTimer.withTimer Timers.timeLow LowOptimizer.optimize lowIL
98            in            in
99            (***** CODE GENERATION *****)            (***** CODE GENERATION *****)
100              PhaseTimer.withTimer Timers.timeCodegen CBackEnd.generate (baseName, lowIL)              PhaseTimer.withTimer Timers.timeCodegen
101                  (BackEnd.generate target) (baseName, lowIL)
102            end)            end)
103    
104      fun doOptions args = let      fun doOptions args = let

Legend:
Removed from v.1171  
changed lines
  Added in v.1172

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