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

SCM Repository

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

Diff of /trunk/src/compiler/tree-il/tree-il-pp.sml

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

revision 2355, Sun Apr 7 11:35:08 2013 UTC revision 2356, Sun Apr 7 14:45:25 2013 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.2355  
changed lines
  Added in v.2356

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