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

SCM Repository

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

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

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

revision 2637, Wed May 28 05:20:45 2014 UTC revision 2662, Fri May 30 16:55:05 2014 UTC
# Line 58  Line 58 
58                    "mkVec<" ::itos tyNew :: ":" :: itos tyOrig ::                    "mkVec<" ::itos tyNew :: ":" :: itos tyOrig ::
59                    ">\n\t" :: m                    ">\n\t" :: m
60                  end                  end
61              | toS (IL.E_FillVec(tyNew, tyOrig, arg, offset), l) =            (* | toS (IL.E_FillVec(tyNew, tyOrig, arg, offset), l) =
62                        "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("                        "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
63                            :: argsToS (",", "(", [arg, offset], ")", l)                            :: argsToS (",", "(", [arg, offset], ")", l)
64              | toS (IL.E_SliceVec(tyNew, tyOrig, arg, offset), l) =              | toS (IL.E_SliceVec(tyNew, tyOrig, arg, offset), l) =
65                  "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("                  "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
66                  :: argsToS (",", "(", [arg, offset], ")", l)                  :: argsToS (",", "(", [arg, offset], ")", l)
67                *)
68            in            in
69              String.concat (toS (e, []))              String.concat (toS (e, []))
70            end            end

Legend:
Removed from v.2637  
changed lines
  Added in v.2662

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