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 3886, Fri May 20 15:10:11 2016 UTC revision 3887, Fri May 20 15:43:47 2016 UTC
# Line 267  Line 267 
267                | Op.VLerp n => bindVOp TOp.VLerp                | Op.VLerp n => bindVOp TOp.VLerp
268                | Op.TensorIndex(ty, idxs) => bindOp(TOp.TensorIndex(Util.trType ty, idxs))                | Op.TensorIndex(ty, idxs) => bindOp(TOp.TensorIndex(Util.trType ty, idxs))
269                | Op.ProjectLast(ty, idxs) => bindOp(TOp.ProjectLast(Util.trType ty, idxs))                | Op.ProjectLast(ty, idxs) => bindOp(TOp.ProjectLast(Util.trType ty, idxs))
               | Op.Zero ty => bindOp (TOp.Zero(Util.trType ty))  
270                | Op.Select(ty, i) => bindOp (TOp.Select(Util.trType ty, i))                | Op.Select(ty, i) => bindOp (TOp.Select(Util.trType ty, i))
271                | Op.Subscript ty => bindOp (TOp.Subscript(Util.trType ty))                | Op.Subscript ty => bindOp (TOp.Subscript(Util.trType ty))
272                | Op.MkDynamic(ty, n) => bindOp (TOp.MkDynamic(Util.trType ty, n))                | Op.MkDynamic(ty, n) => bindOp (TOp.MkDynamic(Util.trType ty, n))
# Line 360  Line 359 
359                | IR.OP(Op.EigenVals2x2, args) => assignOp (TOp.EigenVals2x2, args)                | IR.OP(Op.EigenVals2x2, args) => assignOp (TOp.EigenVals2x2, args)
360                | IR.OP(Op.EigenVals3x3, args) => assignOp (TOp.EigenVals3x3, args)                | IR.OP(Op.EigenVals3x3, args) => assignOp (TOp.EigenVals3x3, args)
361                | IR.OP(Op.Zero(ty as Ty.TensorTy dd), []) => let                | IR.OP(Op.Zero(ty as Ty.TensorTy dd), []) => let
362                    val z = T.E_Lit(Literal.Real(RealLit.zero))                    val z = T.E_Lit(Literal.Real(RealLit.zero false))
363                    val sz = List.foldl Int.* 1 dd                    val sz = List.foldl Int.* 1 dd
364                    in [                    in [
365                      mkDefn (                      mkDefn (
366                        newLocal(env, lhs),                        newLocal(env, lhs),
367                        T.E_Cons(List.tabulate(sz, z), Util.trType ty))                        T.E_Cons(List.tabulate(sz, fn _ => z), Util.trType ty))
368                    ] end                    ] end
369                | IR.OP(Op.LoadSeq(ty, file), []) => let                | IR.OP(Op.LoadSeq(ty, file), []) => let
370                    val lhs = newLocal (env, lhs)                    val lhs = newLocal (env, lhs)

Legend:
Removed from v.3886  
changed lines
  Added in v.3887

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