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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/c-util/tree-to-c.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/c-util/tree-to-c.sml

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

revision 1945, Fri Jul 6 14:54:21 2012 UTC revision 1958, Tue Jul 10 13:01:03 2012 UTC
# Line 358  Line 358 
358                    then [CL.mkCall(N.mulTen3Vec(m,n,p), lhs :: trExps(env, args))]                    then [CL.mkCall(N.mulTen3Vec(m,n,p), lhs :: trExps(env, args))]
359                    else raise Fail "unsupported tensor-vector multiply"                    else raise Fail "unsupported tensor-vector multiply"
360              | IL.E_Op(Op.ColonMul(Ty.TensorTy dd1, Ty.TensorTy dd2), args) =>              | IL.E_Op(Op.ColonMul(Ty.TensorTy dd1, Ty.TensorTy dd2), args) =>
361                  [CL.mkCall(N.colonMul(dd1, dd2), lhs :: trExps(env, args))]                  if (length dd1 + length dd2 > 5)
362                      then [CL.mkCall(N.colonMul(dd1, dd2), lhs :: trExps(env, args))]
363                      else [CL.mkAssign(lhs, trExp(env, rhs))]
364              | IL.E_Op(Op.EigenVals2x2, [m]) => let              | IL.E_Op(Op.EigenVals2x2, [m]) => let
365                  val (m, stms) = expToVar (env, CL.T_Named(N.matTy(2,2)), "m", m)                  val (m, stms) = expToVar (env, CL.T_Named(N.matTy(2,2)), "m", m)
366                  in                  in
# Line 386  Line 388 
388                  [CL.mkCall(N.identityMat n, [lhs])]                  [CL.mkCall(N.identityMat n, [lhs])]
389              | IL.E_Op(Op.Zero(Ty.TensorTy[m,n]), args) =>              | IL.E_Op(Op.Zero(Ty.TensorTy[m,n]), args) =>
390                  [CL.mkCall(N.zeroMat(m,n), [lhs])]                  [CL.mkCall(N.zeroMat(m,n), [lhs])]
391              | IL.E_Op(Op.TensorToWorldSpace(info, ty as Ty.TensorTy[_,_]), args) =>              | IL.E_Op(Op.TensorToWorldSpace(info, ty as Ty.TensorTy(_::_::_)), args) =>
392                  [CL.mkCall(N.toWorldSpace ty, lhs :: trExps(env, args))]                  [CL.mkCall(N.toWorldSpace ty, lhs :: trExps(env, args))]
393              | IL.E_Op(Op.LoadVoxels(info, n), [a]) =>              | IL.E_Op(Op.LoadVoxels(info, n), [a]) =>
394                  if (n > 1)                  if (n > 1)

Legend:
Removed from v.1945  
changed lines
  Added in v.1958

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