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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/codegen/codegen-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/codegen/codegen-fn.sml

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

revision 1703, Tue Mar 6 13:05:55 2012 UTC revision 1704, Tue Mar 6 15:44:37 2012 UTC
# Line 13  Line 13 
13    
14      val generate : {      val generate : {
15              basename : string,              basename : string,
16                exec : bool,
17              double : bool,              double : bool,
18              parallel : bool,              parallel : bool,
19              debug : bool,              debug : bool,
# Line 82  Line 83 
83                }                }
84            end            end
85    
86      fun generate {basename, double, parallel, debug, prog=srcProg} = let      fun generate {basename, exec, double, parallel, debug, prog=srcProg} = let
87            val _ = if parallel then targetSupportsPrinting := false else ()            val _ = if parallel then targetSupportsPrinting := false else ()
88            val treeProg as TreeIL.Program{props, globals, inputInit, globalInit, strands, initially} =            val treeProg as TreeIL.Program{props, globals, inputInit, globalInit, strands, initially} =
89                  PhaseTimer.withTimer Timers.timeLowToTree LowToTree.translate srcProg                  PhaseTimer.withTimer Timers.timeLowToTree LowToTree.translate srcProg
# Line 91  Line 92 
92  TreeILPP.program (Log.logFile(), treeProg))  TreeILPP.program (Log.logFile(), treeProg))
93            val prog = T.Program.new {            val prog = T.Program.new {
94                    name = basename,                    name = basename,
95                      exec = exec,
96                    double = double,                    double = double,
97                    parallel = parallel,                    parallel = parallel,
98                    debug = debug                    debug = debug

Legend:
Removed from v.1703  
changed lines
  Added in v.1704

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