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/step3.sml
ViewVC logotype

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

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

revision 2829, Wed Nov 12 23:24:38 2014 UTC revision 2830, Tue Nov 18 17:48:05 2014 UTC
# Line 234  Line 234 
234      end      end
235    
236  (*Sum of Vector Product*)  (*Sum of Vector Product*)
 val dotVec=0  
237    
238  fun mkprodSumVec(mapp,(id1,ix1,id2,ix2,vecIX, info as (lhs,_,_)))=(case dotVec  
239      of 0 =>let  fun mkprodSumVec(mapp,(id1,ix1,id2,ix2,vecIX, info as (lhs,_,_)))=let
240          val (vD,D)=mkprodVec(mapp,(id1,ix1,id2,ix2,vecIX, info))          val (vD,D)=mkprodVec(mapp,(id1,ix1,id2,ix2,vecIX, info))
241          val (vE, E)=aaV(DstOp.sumVec vecIX,[vD], lhs^"sumVec",DstTy.realTy)          val (vE, E)=aaV(DstOp.sumVec vecIX,[vD], lhs^"sumVec",DstTy.realTy)
242          in          in
243              (vE, D @E)              (vE, D @E)
244          end          end
     | _ => let  
         val (vA,A)= mkVec(mapp,(id1,ix1,vecIX,info))  
         val (vB,B)= mkVec(mapp,(id2,ix2,vecIX,info))  
         val (vE,E)=aaV(DstOp.dotVec vecIX,[vA,vB],lhs^ "dotVec",DstTy.realTy)  
         in  
             (vE, E)  
         end  
     (*end case*))  
245    
246    
247  (*Dot Product like summation *)  (*Dot Product like summation *)

Legend:
Removed from v.2829  
changed lines
  Added in v.2830

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