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

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

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

revision 2583, Thu Apr 10 19:50:28 2014 UTC revision 2584, Tue Apr 15 03:22:58 2014 UTC
# Line 209  Line 209 
209      in (vD, A@B@D)end      in (vD, A@B@D)end
210      | mkprodSca _= raise Fail "Prod----d---"      | mkprodSca _= raise Fail "Prod----d---"
211    
212    (*
213    (*product of 2 scalars*)
214    fun mkprodScaR(_,([(id1,ix1),(id2,ix2)],[],args))= let
215    val (vA,A)=mkSca(mapp,(id1,ix1,args))
216    val (vB, B)=mkSca(mapp,(id2, ix2,args))
217            aaV(DstOp.S(id, i,a),[nU],"S"^Int.toString(id),DstTy.TensorTy([]))
218    
219    val (vD, D)=aaV(DstOp.prodSca,[vA, vB],"prodSca",DstTy.TensorTy([]))
220    in (vD, A@B@D)end
221    | mkprodSca _= raise Fail "Prod----d---"
222    *)
223    
224  (*product of 1 scalars and 1 projection*)  (*product of 1 scalars and 1 projection*)
225  fun mkprodScaV(mapp,([(id1,ix1),(id2,ix2)],[],last,args))=let  fun mkprodScaV(mapp,([(id1,ix1),(id2,ix2)],[],last,args))=let

Legend:
Removed from v.2583  
changed lines
  Added in v.2584

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