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 3845, Tue May 10 19:17:45 2016 UTC revision 3848, Thu May 12 14:30:19 2016 UTC
# Line 46  Line 46 
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 x, l) = SVar.toString x :: l              | toS (IR.E_State(NONE, x), l) = "self." :: SVar.toString x :: l
50                | toS (IR.E_State(SOME x, fld), l) = Var.toString x :: "." :: 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
52              | toS (IR.E_Lit lit, l) = Literal.toString lit :: l              | toS (IR.E_Lit lit, l) = Literal.toString lit :: l
53              | toS (IR.E_Op(rator, args), l) = Op.toString rator :: argsToS ("(", args, ")", l)              | toS (IR.E_Op(rator, args), l) = Op.toString rator :: argsToS ("(", args, ")", l)
# Line 107  Line 108 
108            val out' = incIndent out            val out' = incIndent out
109            in            in
110              pr (out, "{\n");              pr (out, "{\n");
111              List.app (ppVarDecl out') locals;              List.app (ppVarDecl out') (!locals);
112              List.app (fn stm => ppStm(out', stm)) body;              List.app (fn stm => ppStm(out', stm)) body;
113              indent out; pr (out, "}")              indent out; pr (out, "}")
114            end            end

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

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