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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/vec-to-low.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/vec-to-low.sml

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

revision 3194, Wed May 13 02:57:42 2015 UTC revision 3195, Wed May 20 21:02:12 2015 UTC
# Line 25  Line 25 
25      fun assgn e=H.assgn e      fun assgn e=H.assgn e
26      fun indexTensor e=H.indexTensor e      fun indexTensor e=H.indexTensor e
27      fun projTensor e=H.projTensor e      fun projTensor e=H.projTensor e
28        fun projFirst e=H.projFirst e
29      fun mkProdVec e =H.mkProdVec e      fun mkProdVec e =H.mkProdVec e
30      fun mkSumVec e =H.mkSumVec e      fun mkSumVec e =H.mkSumVec e
31      fun mkMultiple e=H.mkMultiple e      fun mkMultiple e=H.mkMultiple e
# Line 113  Line 114 
114              (vE, B@D@E)              (vE, B@D@E)
115          end          end
116    
117        fun MM3(mapp,(lhs,params,args, vecIX,id1,ix1,id2,ix2,_))= let
118            val (vA,A)= projTensor(mapp,(lhs,params,args,vecIX,id1,ix1))
119            val (vB,B)= projFirst(mapp,(lhs,params,args,vecIX,id2,ix2))
120    
121            val (vD,D)= mkProdVec(lhs,vecIX,[vA, vB])
122            val (vE, E)= mkSumVec(lhs,vecIX,[vD])
123            in
124                  (vE,A@B@D@E)
125            end
126    
127    
128    
129      (*sumDotN:dict*string*E.params*Var list * (E.nu)*int*E.tensor_id*E.alpha*E.tensor_id*E.alpha)      (*sumDotN:dict*string*E.params*Var list * (E.nu)*int*E.tensor_id*E.alpha*E.tensor_id*E.alpha)

Legend:
Removed from v.3194  
changed lines
  Added in v.3195

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