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 3852, Fri May 13 15:00:57 2016 UTC revision 3857, Sat May 14 14:13:04 2016 UTC
# Line 45  Line 45 
45                  in                  in
46                    lp :: argToS(args, rp :: l)                    lp :: argToS(args, rp :: l)
47                  end                  end
48            and toS (IR.E_Global x, l) = "::" :: GVar.toString x :: l            and toS (IR.E_Global x, l) = GVar.toString x :: l
49              | toS (IR.E_State(NONE, x), l) = "self." :: SVar.toString x :: l              | toS (IR.E_State(NONE, x), l) = "self." :: SVar.toString x :: l
50              | toS (IR.E_State(SOME e, fld), l) = toS (e, "." :: SVar.toString fld :: l)              | toS (IR.E_State(SOME e, fld), l) = toS (e, "." :: SVar.toString fld :: l)
51              | toS (IR.E_Var x, l) = Var.name x :: l              | toS (IR.E_Var x, l) = Var.name x :: l
# Line 120  Line 120 
120                  in                  in
121                    List.app (fn s => prln(out, ["// ", s, "\n"])) text                    List.app (fn s => prln(out, ["// ", s, "\n"])) text
122                  end                  end
123              | IR.S_Unpack([], e) => raise Fail "empty lhs for Unpack"              | IR.S_Assign(true, x, e) =>
124              | IR.S_Unpack(x::xs, e) => (                  prln(out, [Ty.toString(Var.ty x), " ", Var.name x, " = ", expToString e, ";\n"])
125                  prln(out, ["(", Var.name x]);              | IR.S_Assign(false, x, e) => prln(out, [Var.name x, " = ", expToString e, ";\n"])
                 List.app (fn x => prl(out, [",", Var.name x])) xs;  
                 prl (out, [") = UNPACK(", expToString e, ");\n"]))  
             | IR.S_Assign(x, e) => prln(out, [Var.name x, " = ", expToString e, ";\n"])  
126              | IR.S_MAssign([], e) => prln(out, [expToString e, ";\n"])              | IR.S_MAssign([], e) => prln(out, [expToString e, ";\n"])
127              | IR.S_MAssign([x], e) => prln(out, [Var.name x, " = ", expToString e, ";\n"])              | IR.S_MAssign([x], e) => prln(out, [Var.name x, " = ", expToString e, ";\n"])
128              | IR.S_MAssign(x::xs, e) => (              | IR.S_MAssign(x::xs, e) => (

Legend:
Removed from v.3852  
changed lines
  Added in v.3857

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