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

SCM Repository

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

Diff of /branches/pure-cfg/src/compiler/codegen/tree-il-pp.sml

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

revision 535, Tue Feb 15 17:17:20 2011 UTC revision 539, Tue Feb 15 21:29:29 2011 UTC
# Line 48  Line 48 
48              | ppParams [x] = prl(out, [Ty.toString (Var.ty x), " ", Var.name x])              | ppParams [x] = prl(out, [Ty.toString (Var.ty x), " ", Var.name x])
49              | ppParams (x::r) = (              | ppParams (x::r) = (
50                  prl(out, [Ty.toString (Var.ty x), " ", Var.name x, ","]);                  prl(out, [Ty.toString (Var.ty x), " ", Var.name x, ","]);
51                  ppParams r; pr (out, ")\n"))                  ppParams r)
52            in            in
53              prln (out, ["strand ", Atom.toString name, "("]);              prln (out, ["strand ", Atom.toString name, "("]);
54              ppParams params; pr(out, ") {\n");              ppParams params; pr(out, ") {\n");
55              List.app (ppVarDecl out') state;              List.app (ppVarDecl out') state;
56              prln (out', ["init () "]); ppBlock(incIndent out', stateInit); pr (out, "\n");              prln (out', ["init () "]); ppBlock(out', stateInit); pr (out', "\n");
57              List.app (ppMethod out') methods;              List.app (ppMethod out') methods;
58              prln (out, ["}\n"])              prln (out, ["}\n"])
59            end            end
60    
61      and ppMethod out (IL.Method{name, body}) = (      and ppMethod out (IL.Method{name, body}) = (
62            prln (out, [Atom.toString name, " ()\n"]);            prln (out, [Atom.toString name, " () "]);
63            ppBlock (out, body);            ppBlock (out, body);
64            pr (out, "\n"))            pr (out, "\n"))
65    

Legend:
Removed from v.535  
changed lines
  Added in v.539

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