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

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

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

revision 2827, Tue Nov 11 00:18:38 2014 UTC revision 2829, Wed Nov 12 23:24:38 2014 UTC
# Line 246  Line 246 
246              end              end
247          | E.Add e               => (iterList(AddcheckO(e,[],[]),addR))          | E.Add e               => (iterList(AddcheckO(e,[],[]),addR))
248          | E.Prod e              => iterList(ProdcheckO(e,[],[]),DstOp.prodSca)          | E.Prod e              => iterList(ProdcheckO(e,[],[]),DstOp.prodSca)
249         (* | E.Sum(sx,E.Prod(E.Img (Vid,_,_)::E.Krn(Hid,del,pos)::es))=>let          | E.Sum(sx,E.Prod(E.Img (Vid,_,_)::E.Krn(Hid,del,pos)::es))=>let
250              val harg=List.nth(origargs,Hid)              val harg=List.nth(origargs,Hid)
251              val imgarg=List.nth(origargs,Vid)              val imgarg=List.nth(origargs,Vid)
252              val h=S3.getKernel(harg)              val h=S3.getKernel harg
253              val v=S3.getImage(imgarg)              val v=S3.getImageSrc imgarg
254                val(_,_,args)=info
255  val imgargnew=List.nth(args,Vid)  val imgargnew=List.nth(args,Vid)
 val v=S3.getImage(imgarg,imgargnew)  
256              in              in
257                  genKrn.evalField(!mapp,(body,v,h,info))                  genKrn.evalField(!mapp,(body,(v,imgargnew),h,info))
258              end              end
259  *)  
260          | E.Sum(sumx, e)=>iterList(Sumcheck(sumx,e),addR)          | E.Sum(sumx, e)=>iterList(Sumcheck(sumx,e),addR)
261          (*end case*))          (*end case*))
262          end          end

Legend:
Removed from v.2827  
changed lines
  Added in v.2829

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