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

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

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

revision 3447, Fri Nov 20 17:21:39 2015 UTC revision 3448, Fri Nov 20 20:33:38 2015 UTC
# Line 61  Line 61 
61          * that inner loop is second(y) axis and outer loop is third(z)axis          * that inner loop is second(y) axis and outer loop is third(z)axis
62          *)          *)
63          val (setPos0,vPos0,Pos0code,sxx)=let          val (setPos0,vPos0,Pos0code,sxx)=let
64              val E.Add[E.Tensor(t1,ix1),_ ]=pos0              val E.Opn(E.Add,[E.Tensor(t1,ix1),_ ])=pos0
65              val (setA,vA,A)=indexTensor(setShapeShift,mappOrig,("",params,args, t1,ix1,intTy))              val (setA,vA,A)=indexTensor(setShapeShift,mappOrig,("",params,args, t1,ix1,intTy))
66              val (setB,vB,B)= mkInt(setA, lb)              val (setB,vB,B)= mkInt(setA, lb)
67              val (setC,vC,C)= mkAddInt(setB, [vA,vB])              val (setC,vC,C)= mkAddInt(setB, [vA,vB])
# Line 83  Line 83 
83          *)          *)
84          fun mkpos(setPos,e,mapp,rest,code)=(case e          fun mkpos(setPos,e,mapp,rest,code)=(case e
85              of [] => (setPos,rest,code)              of [] => (setPos,rest,code)
86              | ((E.Add[ E.Tensor(t1,ix1),E.Value v1])::es)=> let              | (E.Opn(E.Add,([E.Tensor(t1,ix1),E.Value v1]))::es)=> let
87                  val (setA,vA,A)=indexTensor(setPos,mapp,("",params,args,t1,ix1,intTy))                  val (setA,vA,A)=indexTensor(setPos,mapp,("",params,args,t1,ix1,intTy))
88                  val j=find(v1,mapp)                  val j=find(v1,mapp)
89                  val (setD,rest',code')=(case j                  val (setD,rest',code')=(case j

Legend:
Removed from v.3447  
changed lines
  Added in v.3448

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