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 2297, Fri Mar 15 22:05:31 2013 UTC revision 2298, Fri Mar 15 22:18:22 2013 UTC
# Line 29  Line 29 
29    (* if true, the output is in compact form *)    (* if true, the output is in compact form *)
30      val compact = ref true      val compact = ref true
31    
   
   
32      fun indent (outS, i) = TextIO.output(outS, StringCvt.padLeft #" " i "")      fun indent (outS, i) = TextIO.output(outS, StringCvt.padLeft #" " i "")
33      fun incIndent (outS, i) = (outS, i+2)      fun incIndent (outS, i) = (outS, i+2)
34      fun pr ((outS, _), s) = TextIO.output(outS, s)      fun pr ((outS, _), s) = TextIO.output(outS, s)
# Line 246  Line 244 
244              ppCFG (out1, globalInit);              ppCFG (out1, globalInit);
245              pr (out, "## global block\n");              pr (out, "## global block\n");
246              ppCFG (out1, globalBlock);              ppCFG (out1, globalBlock);
   
247              pr (out, "## initially\n");              pr (out, "## initially\n");
248              ppInitially (out1, initially);              ppInitially (out1, initially);
249              pr (out, "## strands\n");              pr (out, "## strands\n");

Legend:
Removed from v.2297  
changed lines
  Added in v.2298

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