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 1042, Mon May 2 03:03:46 2011 UTC revision 1043, Mon May 2 03:04:52 2011 UTC
# Line 66  Line 66 
66              simple              simple
67            end            end
68    
69      fun doFile filename = let      fun doFile filename = BackTrace.monitor (fn () => let
70            val baseName = (case OS.Path.splitBaseExt filename            val baseName = (case OS.Path.splitBaseExt filename
71                   of {base, ext=SOME "diderot"} => base                   of {base, ext=SOME "diderot"} => base
72                    | _ => (errnl "expected diderot file"; quitWithError filename)                    | _ => (errnl "expected diderot file"; quitWithError filename)
# Line 123  Line 123 
123            in            in
124            (***** CODE GENERATION *****)            (***** CODE GENERATION *****)
125              PhaseTimer.withTimer Timers.timeCodegen CBackEnd.generate (baseName, lowIL)              PhaseTimer.withTimer Timers.timeCodegen CBackEnd.generate (baseName, lowIL)
126            end            end)
127    
128      fun doOptions args = let      fun doOptions args = let
129            val log = ref false            val log = ref false

Legend:
Removed from v.1042  
changed lines
  Added in v.1043

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