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 3848, Thu May 12 14:30:19 2016 UTC revision 3850, Thu May 12 18:05:47 2016 UTC
# Line 55  Line 55 
55                  "<" :: Ty.toString ty :: ">" :: argsToS ("[", args, "]", l)                  "<" :: Ty.toString ty :: ">" :: argsToS ("[", args, "]", l)
56              | toS (IR.E_Seq(args, ty), l) =              | toS (IR.E_Seq(args, ty), l) =
57                  "<" :: Ty.toString ty :: ">" :: argsToS ("{", args, "}", l)                  "<" :: Ty.toString ty :: ">" :: argsToS ("{", args, "}", l)
58              | toS (IR.E_Pack es, l) = "PACK" :: argsToS ("(", es, ")", l)              | toS (IR.E_Pack(_, es), l) = "PACK" :: argsToS ("(", es, ")", l)
59              | toS (IR.E_VLoad(layout, e, i), l) =              | toS (IR.E_VLoad(layout, e, i), l) =
60                  "LOAD_"  :: Int.toString i :: "(" :: toS(e, ")" :: l)                  "LOAD_"  :: Int.toString i :: "(" :: toS(e, ")" :: l)
61            in            in

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

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