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

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

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

revision 2679, Tue Jul 29 04:18:35 2014 UTC revision 2680, Wed Aug 6 00:51:53 2014 UTC
# Line 10  Line 10 
10      structure S2= step2      structure S2= step2
11      structure S3= step3      structure S3= step3
12    
13    structure DstIL = LowIL
14    
15      in      in
16    
17    
# Line 175  Line 177 
177      val nextfnArgs=(body,origargs,info)      val nextfnArgs=(body,origargs,info)
178      val iterArgs=(index,index,S2.generalfn,nextfnArgs)      val iterArgs=(index,index,S2.generalfn,nextfnArgs)
179      fun gen body=(case body      fun gen body=(case body
180          of(**) E.Neg(E.Tensor(id1,ix1))                            =>          of E.Neg(E.Tensor(id1,ix1))                            =>
181              handleNeg(id1, ix1,index, nextfnArgs)              handleNeg(id1, ix1,index, nextfnArgs)
182          | E.Sub(E.Tensor(id1,ix1),E.Tensor(id2,ix2))           =>          | E.Sub(E.Tensor(id1,ix1),E.Tensor(id2,ix2))           =>
183              handleSimpleOp(id1,ix1,id2,ix2,index,S3.mksubVec,S2.generalfn,nextfnArgs)              handleSimpleOp(id1,ix1,id2,ix2,index,S3.mksubVec,S2.generalfn,nextfnArgs)
# Line 197  Line 199 
199                  val harg=List.nth(origargs,Hid)                  val harg=List.nth(origargs,Hid)
200                  val h=S3.getKernel(harg)                  val h=S3.getKernel(harg)
201                  val imgarg=List.nth(origargs,Vid)                  val imgarg=List.nth(origargs,Vid)
202                  val v=S3.getImage(imgarg)                  val imgargNew=List.nth(args,Vid)
203                    val v=S3.getImageSrc(imgarg)
204                    val y=S3.getImageDst(imgargNew)
205              in              in
206                  S2.prodIter(index,index,genKrn.evalField,(body,v,h,info))                  S2.prodIter(index,index,genKrn.evalField,(body,(v,y),h,info))
207              end              end
208          | _ => S2.prodIter iterArgs          | _ => S2.prodIter iterArgs
209          (*end case*))          (*end case*))

Legend:
Removed from v.2679  
changed lines
  Added in v.2680

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