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

SCM Repository

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

Diff of /branches/pure-cfg/src/compiler/IL/ssa-pp-fn.sml

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

revision 612, Sat Mar 12 17:56:24 2011 UTC revision 613, Sat Mar 12 19:29:23 2011 UTC
# Line 161  Line 161 
161              indent out; prl(out, ["end ", Atom.toString name, "\n"])              indent out; prl(out, ["end ", Atom.toString name, "\n"])
162            end            end
163    
164      fun output (outS, msg, IL.Program{globals, globalInit, strands}) = let      fun output (outS, msg, IL.Program{globals, globalInit, initially, strands}) = let
165            val out = (outS, 0)            val out = (outS, 0)
166            val out1 = incIndent out            val out1 = incIndent out
167            in            in
# Line 172  Line 172 
172                  globals;                  globals;
173              pr (out, "## global initialization\n");              pr (out, "## global initialization\n");
174              ppCFG (out1, globalInit);              ppCFG (out1, globalInit);
175                pr (out, "## initially\n");
176    (* FIXME: print initially code *)
177              pr (out, "## strands\n");              pr (out, "## strands\n");
178              List.app (fn strand => ppStrand(out1, strand)) strands;              List.app (fn strand => ppStrand(out1, strand)) strands;
179              pr (out, "#### end program ####\n")              pr (out, "#### end program ####\n")

Legend:
Removed from v.612  
changed lines
  Added in v.613

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