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

SCM Repository

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

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 4033, Thu Jun 23 14:09:17 2016 UTC revision 4036, Thu Jun 23 15:01:23 2016 UTC
# Line 348  Line 348 
348                    end                    end
349                | Op.VMapClamp n => bindVOp TOp.VMapClamp                | Op.VMapClamp n => bindVOp TOp.VMapClamp
350                | Op.VLerp n => bindVOp TOp.VLerp                | Op.VLerp n => bindVOp TOp.VLerp
351                | Op.TensorIndex(Ty.TensorTy dd, idxs) => let                | Op.TensorIndex(ty, idxs) => let
352                    val (args, stms) = simpleArgs (env, args)                    val ([arg], stms) = simpleArgs (env, args)
353                      val ty = TreeTypeOf.exp arg
354                    in                    in
355                      (Env.TREE(T.E_Op(TOp.TensorIndex(TTy.TensorRefTy dd, idxs), args)), stms)                      (Env.TREE(T.E_Op(TOp.TensorIndex(ty, idxs), [arg])), stms)
356                    end                    end
357                | Op.ProjectLast(Ty.TensorTy dd, idxs) => let                | Op.ProjectLast(_, idxs) => let
358                    val (args, stms) = simpleArgs (env, args)                    val ([arg], stms) = simpleArgs (env, args)
359                      val ty = TreeTypeOf.exp arg
360                    in                    in
361                      (Env.TREE(T.E_Op(TOp.ProjectLast(TTy.TensorRefTy dd, idxs), args)), stms)                      (Env.TREE(T.E_Op(TOp.ProjectLast(ty, idxs), [arg])), stms)
362                    end                    end
363                | Op.Select(ty, i) => bindOp (TOp.Select(U.trType ty, i))                | Op.Select(ty, i) => bindOp (TOp.Select(U.trType ty, i))
364                | Op.Subscript ty => bindOp (TOp.Subscript(U.trType ty))                | Op.Subscript ty => bindOp (TOp.Subscript(U.trType ty))

Legend:
Removed from v.4033  
changed lines
  Added in v.4036

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