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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/IL/ssa-pp-fn.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/IL/ssa-pp-fn.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 228  Line 228 
228              indent out; prl(out, ["end ", Atom.toString name, "\n"])              indent out; prl(out, ["end ", Atom.toString name, "\n"])
229            end            end
230    
231      fun output (outS, msg, IL.Program{props, globalInit, globalBlock, initially, strands}) = let      fun output (outS, msg, IL.Program{props, globalInit, globalBlock, globalReduce, initially, strands}) = let
232            val out = (outS, 0)            val out = (outS, 0)
233            val out1 = incIndent out            val out1 = incIndent out
234            in            in
# Line 246  Line 246 
246              ppCFG (out1, globalInit);              ppCFG (out1, globalInit);
247              pr (out, "## global block\n");              pr (out, "## global block\n");
248              ppCFG (out1, globalBlock);              ppCFG (out1, globalBlock);
249                pr (out, "## global reduce block\n");
250                ppCFG (out1, globalReduce);
251    
252              pr (out, "## initially\n");              pr (out, "## initially\n");
253              ppInitially (out1, initially);              ppInitially (out1, initially);
254              pr (out, "## strands\n");              pr (out, "## strands\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