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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/tree-il/tree-il-pp.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/tree-il/tree-il-pp.sml

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

revision 2245, Sun Mar 3 12:51:51 2013 UTC revision 2246, Sun Mar 3 14:51:31 2013 UTC
# Line 225  Line 225 
225              pr (out, "\n")              pr (out, "\n")
226            end            end
227    
228      fun program (outS, IL.Program{props, globals, inputInit, globalInit, globalBlock, strands, initially}) = let      fun program (outS, IL.Program{props, globals, inputInit, globalInit, globalBlock, globalReduce, strands, initially}) = let
229            val out = (outS, 0)            val out = (outS, 0)
230            val out' = incIndent out            val out' = incIndent out
231            in            in
# Line 242  Line 242 
242              indent out'; ppBlock (out', globalInit); pr (out, "\n");              indent out'; ppBlock (out', globalInit); pr (out, "\n");
243              prln(out, ["//***** GLOBAL Block *****\n"]);              prln(out, ["//***** GLOBAL Block *****\n"]);
244              indent out'; ppBlock (out', globalBlock); pr (out, "\n");              indent out'; ppBlock (out', globalBlock); pr (out, "\n");
245                prln(out, ["//***** GLOBAL REDUCE Block *****\n"]);
246                indent out'; ppBlock (out', globalReduce); pr (out, "\n");
247              prln(out, ["//***** STRANDS *****\n"]);              prln(out, ["//***** STRANDS *****\n"]);
248              List.app (ppStrand out) strands;              List.app (ppStrand out) strands;
249              prln(out, ["//***** INITIALLY *****\n"]);              prln(out, ["//***** INITIALLY *****\n"]);

Legend:
Removed from v.2245  
changed lines
  Added in v.2246

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