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 3861, Sun May 15 14:33:03 2016 UTC revision 3862, Sun May 15 15:44:30 2016 UTC
# Line 51  Line 51 
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)
54              | toS (IR.E_Vec args, l) = argsToS ("#[", args, "]", l)              | toS (IR.E_Vec(w, args), l) = "VEC" :: Int.toString w :: argsToS ("(", args, ")", l)
55              | toS (IR.E_Cons(args, ty), l) =              | toS (IR.E_Cons(args, ty), l) =
56                  "<" :: Ty.toString ty :: ">" :: argsToS ("[", args, "]", l)                  "<" :: Ty.toString ty :: ">" :: argsToS ("[", args, "]", l)
57              | toS (IR.E_Seq(args, ty), l) =              | toS (IR.E_Seq(args, ty), l) =

Legend:
Removed from v.3861  
changed lines
  Added in v.3862

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