Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/high-to-mid/probe-ein.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/high-to-mid/probe-ein.sml

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

revision 5313, Wed Aug 16 20:16:42 2017 UTC revision 5314, Thu Aug 17 18:57:08 2017 UTC
# Line 78  Line 78 
78                  ])                  ])
79            (* end case *))            (* end case *))
80    
     (*convert border *)  
     fun cvtBd NONE = E.None  
       | cvtBd (SOME s) = E.BD s  
   
81      fun getKernelDst hArg = (case IR.Var.getDef hArg      fun getKernelDst hArg = (case IR.Var.getDef hArg
82             of IR.OP(Op.Kernel(h, _), _) => h             of IR.OP(Op.Kernel(h, _), _) => h
83              | rhs => raise Fail (String.concat[              | rhs => raise Fail (String.concat[
# Line 202  Line 198 
198            val vs = List.tabulate (dim, fn i => (i +sx))            val vs = List.tabulate (dim, fn i => (i +sx))
199            val esum = List.map (fn i => (i, 1-s, s)) vs            val esum = List.map (fn i => (i, 1-s, s)) vs
200          (* represent image in ein expression with tensor *)          (* represent image in ein expression with tensor *)
201            val imgexp = E.Img(Vidnew, alpha, List.map (fn i=> E.Value i)  vs, s, cvtBd border)            val imgexp = E.Img(Vidnew, alpha, List.map (fn i=> E.Value i)  vs, s)
202          (* create load voxel operator for image *)          (* create load voxel operator for image *)
203            val vLd = mkLdVoxel (avail, vI, vN, info, alpha, shape, dim, s, border)            val vLd = mkLdVoxel (avail, vI, vN, info, alpha, shape, dim, s, border)
204  (* DEBUG  (* DEBUG

Legend:
Removed from v.5313  
changed lines
  Added in v.5314

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