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 4270, Tue Jul 26 16:30:57 2016 UTC revision 4310, Sat Jul 30 02:16:22 2016 UTC
# Line 666  Line 666 
666                          end                          end
667                    (* end case *))                    (* end case *))
668                | IR.LIT lit => bindSimple (T.E_Lit lit, stms)                | IR.LIT lit => bindSimple (T.E_Lit lit, stms)
 (* FIXME: use the general IR.OP case for eigen-vals, since the target info says that they  
  * are not inline.  
  *)  
669                | IR.OP(Op.EigenVals2x2, [x]) => trEigenVals (env, lhs, TOp.EigenVals2x2, x, stms)                | IR.OP(Op.EigenVals2x2, [x]) => trEigenVals (env, lhs, TOp.EigenVals2x2, x, stms)
670                | IR.OP(Op.EigenVals3x3, [x]) => trEigenVals (env, lhs, TOp.EigenVals3x3, x, stms)                | IR.OP(Op.EigenVals3x3, [x]) => trEigenVals (env, lhs, TOp.EigenVals3x3, x, stms)
671                | IR.OP(Op.Zero(ty as Ty.TensorTy dd), []) => let                | IR.OP(Op.Zero(ty as Ty.TensorTy dd), []) => let
# Line 694  Line 691 
691                    in                    in
692                      case (rhs, eqClassRepOf(env, lhs), emitBind)                      case (rhs, eqClassRepOf(env, lhs), emitBind)
693                       of (_, NOEQ, false) => (Env.bindVar (env, lhs, rhs); stms)                       of (_, NOEQ, false) => (Env.bindVar (env, lhs, rhs); stms)
 (* FIXME: if the rhs has TensorRef type, then we should make the lhs TensorRef too! *)  
694                        | (Env.TREE e, NOEQ, true) => mkDefn'(newLocal(env, lhs), e) :: stms                        | (Env.TREE e, NOEQ, true) => mkDefn'(newLocal(env, lhs), e) :: stms
695                        | (Env.TREE e, VAR x', _) => mkAssign'(x', e) :: stms                        | (Env.TREE e, VAR x', _) => mkAssign'(x', e) :: stms
696                        | (Env.VEC(layout, es), NOEQ, true) => let                        | (Env.VEC(layout, es), NOEQ, true) => let

Legend:
Removed from v.4270  
changed lines
  Added in v.4310

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