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

SCM Repository

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

Diff of /trunk/src/compiler/IL/ssa-pp-fn.sml

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

revision 1443, Mon Jul 11 10:36:10 2011 UTC revision 1444, Mon Jul 11 12:11:53 2011 UTC
# Line 171  Line 171 
171            val out1 = incIndent out            val out1 = incIndent out
172            fun prVars xs = List.app (fn x => prl(out, [" ", typedVar x, ";"])) xs            fun prVars xs = List.app (fn x => prl(out, [" ", typedVar x, ";"])) xs
173            in            in
174              indent out; prl(out, ["method ", Atom.toString name, "\n"]);              indent out; prl(out, ["method ", MethodName.toString name, "\n"]);
175              indent out1; pr(out1, "state in: "); prVars stateIn; pr(out1, "\n");              indent out1; pr(out1, "state in: "); prVars stateIn; pr(out1, "\n");
176              ppCFG (incIndent out1, body);              ppCFG (incIndent out1, body);
177              indent out1; pr(out1, "state out:"); prVars(IL.CFG.liveAtExit body); pr(out1, "\n");              indent out1; pr(out1, "state out:"); prVars(IL.CFG.liveAtExit body); pr(out1, "\n");
178              indent out; prl(out, ["end ", Atom.toString name, "\n"])              indent out; prl(out, ["end ", MethodName.toString name, "\n"])
179            end            end
180    
181      and ppStrand (out, IL.Strand{name, params, state, stateInit, methods}) = let      and ppStrand (out, IL.Strand{name, params, state, stateInit, methods}) = let

Legend:
Removed from v.1443  
changed lines
  Added in v.1444

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