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 3843, Tue May 10 15:10:58 2016 UTC revision 3844, Tue May 10 19:15:03 2016 UTC
# Line 55  Line 55 
55              | toS (IR.E_Seq(args, ty), l) =              | toS (IR.E_Seq(args, ty), l) =
56                  "<" :: Ty.toString ty :: ">" :: argsToS ("{", args, "}", l)                  "<" :: Ty.toString ty :: ">" :: argsToS ("{", args, "}", l)
57              | toS (IR.E_Pack es, l) = "PACK" :: argsToS ("(", es, ")", l)              | toS (IR.E_Pack es, l) = "PACK" :: argsToS ("(", es, ")", l)
58              | toS (IR.E_Select(e, i), l) = "SELECT_" :: Int.toString i :: "(" :: toS(e, ")" :: l)              | toS (IR.E_VLoad(layout, e, i), l) =
59                    "LOAD_"  :: Int.toString i :: "(" :: toS(e, ")" :: l)
60            in            in
61              String.concat (toS (e, []))              String.concat (toS (e, []))
62            end            end

Legend:
Removed from v.3843  
changed lines
  Added in v.3844

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