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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/tree-il/low-to-tree-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/tree-il/low-to-tree-fn.sml

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

revision 2028, Thu Oct 11 12:02:58 2012 UTC revision 2029, Thu Oct 11 12:03:24 2012 UTC
# Line 266  Line 266 
266               of IL.STATE x => bindSimple (env, lhs, T.E_State(getStateVar x))               of IL.STATE x => bindSimple (env, lhs, T.E_State(getStateVar x))
267                | IL.VAR x => bindSimple (env, lhs, useVar env x)                | IL.VAR x => bindSimple (env, lhs, useVar env x)
268                | IL.LIT lit => bindSimple (env, lhs, T.E_Lit lit)                | IL.LIT lit => bindSimple (env, lhs, T.E_Lit lit)
269                  | IL.OP(Op.LoadSeq(ty, nrrd), []) => let
270                      val (env, t) = doLHS()
271                      in
272                        (env, [T.S_LoadNrrd(t, ty, nrrd)])
273                      end
274                  | IL.OP(Op.LoadImage(ty, nrrd, info), []) => let
275                      val (env, t) = doLHS()
276                      in
277                        (env, [T.S_LoadNrrd(t, ty, nrrd)])
278                      end
279                | IL.OP(Op.Input(InP.INP{ty=Ty.DynSeqTy _, name, desc, init}), []) => let                | IL.OP(Op.Input(InP.INP{ty=Ty.DynSeqTy _, name, desc, init}), []) => let
280                    val (env, t) = doLHS()                    val (env, t) = doLHS()
281                    in                    in

Legend:
Removed from v.2028  
changed lines
  Added in v.2029

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