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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/tree-ir/tree-pp.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/tree-ir/tree-pp.sml

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

revision 3844, Tue May 10 19:15:03 2016 UTC revision 3845, Tue May 10 19:17:45 2016 UTC
# Line 124  Line 124 
124                  List.app (fn x => prl(out, [",", Var.name x])) xs;                  List.app (fn x => prl(out, [",", Var.name x])) xs;
125                  prl (out, [") = UNPACK(", expToString e, ");\n"]))                  prl (out, [") = UNPACK(", expToString e, ");\n"]))
126              | IR.S_Assign(x, e) => prln(out, [Var.name x, " = ", expToString e, ";\n"])              | IR.S_Assign(x, e) => prln(out, [Var.name x, " = ", expToString e, ";\n"])
127                | IR.S_MAssign([], e) => prln(out, [expToString e, ";\n"])
128                | IR.S_MAssign([x], e) => prln(out, [Var.name x, " = ", expToString e, ";\n"])
129                | IR.S_MAssign(x::xs, e) => (
130                    prln(out, ["(", Var.name x]);
131                    List.app (fn x => prl(out, [",", Var.name x])) xs;
132                    prl (out, [") = ", expToString e, ";\n"]))
133              | IR.S_GAssign(x, e) => prln(out, [GVar.name x, " = ", expToString e, ";\n"])              | IR.S_GAssign(x, e) => prln(out, [GVar.name x, " = ", expToString e, ";\n"])
134              | IR.S_IfThen(cond, blk) => (              | IR.S_IfThen(cond, blk) => (
135                  prln (out, ["if (", expToString cond, ") "]);                  prln (out, ["if (", expToString cond, ") "]);

Legend:
Removed from v.3844  
changed lines
  Added in v.3845

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