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

SCM Repository

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

Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml

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

revision 534, Tue Feb 15 03:40:00 2011 UTC revision 535, Tue Feb 15 17:17:20 2011 UTC
# Line 126  Line 126 
126            T.Stmt.block(List.foldr (fn (stm, stms) => trStmt(env, stm)@stms) [] body))            T.Stmt.block(List.foldr (fn (stm, stms) => trStmt(env, stm)@stms) [] body))
127    
128      fun generate (fileStem, srcProg) = let      fun generate (fileStem, srcProg) = let
129            val TreeIL.Program{globals, globalInit, strands} = LowToTree.translate srcProg            val treeProg as TreeIL.Program{globals, globalInit, strands} = LowToTree.translate srcProg
130    val _ = (
131    TextIO.output(Log.logFile(), "********** After translation to TreeIL **********\n");
132    TreeILPP.program (Log.logFile(), treeProg))
133            val prog = T.newProgram ()            val prog = T.newProgram ()
134          (* define the globals and initialize the environment *)          (* define the globals and initialize the environment *)
135            val env = let            val env = let

Legend:
Removed from v.534  
changed lines
  Added in v.535

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