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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/high-to-mid/split-einHtM.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/high-to-mid/split-einHtM.sml

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

revision 2553, Sun Mar 2 19:53:33 2014 UTC revision 2554, Sun Mar 2 19:58:48 2014 UTC
# Line 187  Line 187 
187  (*Outside Operator is Div *)  (*Outside Operator is Div *)
188  fun handleDiv(params, index,e1,e2,args)=let  fun handleDiv(params, index,e1,e2,args)=let
189      val id=ref (length params)      val id=ref (length params)
190      val ix=List.map (fn e=> E.V e)  index      val ix=List.tabulate (n,fn v=> E.V(v))
191      fun mkTensor _=let val ref idx= id in (id:=(idx+1);E.Tensor(idx,ix)) end      fun mkTensor _=let val ref idx= id in (id:=(idx+1);E.Tensor(idx,ix)) end
192      fun mkSca _=let val ref idx= id in (id:=(idx+1);E.Tensor(idx,[])) end      fun mkSca _=let val ref idx= id in (id:=(idx+1);E.Tensor(idx,[])) end
193    

Legend:
Removed from v.2553  
changed lines
  Added in v.2554

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