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

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

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

revision 2922, Tue Mar 3 03:55:09 2015 UTC revision 2923, Tue Mar 3 15:33:44 2015 UTC
# Line 106  Line 106 
106      * ->Var*LowIL.ASSGN list      * ->Var*LowIL.ASSGN list
107      * Index Tensor at specific indices to give a scalar result      * Index Tensor at specific indices to give a scalar result
108      *)      *)
109      fun indexTensor(_,(_,_,args,id, [],ty)) = (List.nth(args,id),[])      fun indexTensor(_,(_,_,args,id, [],ty)) =
110            (List.nth(args,id),[])
111        | indexTensor(mapp,(lhs,params,args,id,ix,ty))= let        | indexTensor(mapp,(lhs,params,args,id,ix,ty))= let
112          val nU=List.nth(args,id)          val nU=List.nth(args,id)
113          val ixx=(List.map (fn (e1)=> mapIndex(e1,mapp)) ix)          val ixx=(List.map (fn (e1)=> mapIndex(e1,mapp)) ix)

Legend:
Removed from v.2922  
changed lines
  Added in v.2923

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