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 2636, Tue May 27 16:18:36 2014 UTC revision 2637, Wed May 28 05:20:45 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) =
62                          "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
63                              :: argsToS (",", "(", [arg, offset], ")", l)
64                | toS (IL.E_SliceVec(tyNew, tyOrig, arg, offset), l) =
65                    "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
66                    :: argsToS (",", "(", [arg, offset], ")", l)
67            in            in
68              String.concat (toS (e, []))              String.concat (toS (e, []))
69            end            end
# Line 198  Line 204 
204              pr (out, "\n")              pr (out, "\n")
205            end            end
206    
207      fun program (outS, IL.Program{props, globals, inputInit, globalInit, strands, initially}) = let      fun program (outS, IL.Program{props,types,oprations, globals, inputInit, globalInit, strands, initially}) = let
208            val out = (outS, 0)            val out = (outS, 0)
209            val out' = incIndent out            val out' = incIndent out
210            in            in

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

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