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

SCM Repository

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

Diff of /branches/vis12/src/compiler/tree-il/tree-il-pp.sml

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

revision 1705, Tue Mar 6 21:59:47 2012 UTC revision 1706, Wed Mar 7 12:06:48 2012 UTC
# Line 38  Line 38 
38                  end                  end
39            and toS (IL.E_State x, l) = IL.stateVarToString x :: l            and toS (IL.E_State x, l) = IL.stateVarToString x :: l
40              | toS (IL.E_Var x, l) = (case (Var.kind x)              | toS (IL.E_Var x, l) = (case (Var.kind x)
41                   of IL.VK_Global => "::" :: Var.name x :: l                   of IL.VK_Local => Var.name x :: l
42                    | _ => Var.name x :: l                    | _ => "::" :: Var.name x :: l
43                  (* end case *))                  (* end case *))
44              | toS (IL.E_Lit lit, l) = Literal.toString lit :: l              | toS (IL.E_Lit lit, l) = Literal.toString lit :: l
45              | toS (IL.E_Op(rator, args), l) = Op.toString rator :: argsToS ("(", args, ")", l)              | toS (IL.E_Op(rator, args), l) = Op.toString rator :: argsToS ("(", args, ")", l)

Legend:
Removed from v.1705  
changed lines
  Added in v.1706

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