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

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

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

revision 2837, Wed Nov 19 23:42:17 2014 UTC revision 2838, Tue Nov 25 03:40:24 2014 UTC
# Line 32  Line 32 
32  structure DstV = DstIL.Var  structure DstV = DstIL.Var
33  structure SrcV = SrcIL.Var  structure SrcV = SrcIL.Var
34  structure P=Printer  structure P=Printer
35  structure shift=ShiftEin  
 structure split=SplitEin  
36    
37  in  in
38  val testing=1  val testing=1
# Line 43  Line 42 
42  (*Transform differentiation index to world-space*)  (*Transform differentiation index to world-space*)
43  (*Returns new deltas, summations, and List of Tensor Products*)  (*Returns new deltas, summations, and List of Tensor Products*)
44  fun ImgtoWorldSpace(dels, outerShape,dim,Pid,ns)= let  fun ImgtoWorldSpace(dels, outerShape,dim,Pid,ns)= let
45      val _=print "\n In ImgtoWorld space"  
46      val dim'=dim-1      val dim'=dim-1
47      fun setMatrix(imgix,wrdix) = E.Tensor(Pid,[ E.V imgix, E.V wrdix])      fun setMatrix(imgix,wrdix) = E.Tensor(Pid,[ E.V imgix, E.V wrdix])
48    
# Line 74  Line 73 
73              body=E.Sum(sx,E.Prod([E.Tensor(0,tshape@newdels)]@rest))              body=E.Sum(sx,E.Prod([E.Tensor(0,tshape@newdels)]@rest))
74          }          }
75    
76      val _ = print(String.concat["\n Super Lift Transform \n ",(split.printA (newArg,newbie',[oldArg,PArg])) ,"\n"])  
77      val data=assignEin (newArg, newbie', [oldArg,PArg])      val data=assignEin (newArg, newbie', [oldArg,PArg])
78      val ix=List.tabulate((length(dels)),fn _=> dim)      val ix=List.tabulate((length(dels)),fn _=> dim)
79      in      in

Legend:
Removed from v.2837  
changed lines
  Added in v.2838

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