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 4050, Sun Jun 26 21:48:29 2016 UTC revision 4051, Sun Jun 26 22:33:17 2016 UTC
# Line 178  Line 178 
178              | createKrn (dir, krnexp, vAs) = let              | createKrn (dir, krnexp, vAs) = let
179                  val dir' = dir-1                  val dir' = dir-1
180                (* ein expression *)                (* ein expression *)
181                  val deltas = List.map (fn e =>(E.C(dir'), e)) dx                  val deltas = List.map (fn e => (E.C dir', e)) dx
182                  val kexp0 = E.Krn(kid+dir, deltas, dir)                  val kexp0 = E.Krn(kid+dir, deltas, dir)
183                (* evalkernel operators *)                (* evalkernel operators *)
184                  val vA = liftKrn (avail, dir, dx, dim, h, vF, s)                  val vA = liftKrn (avail, dir', dx, dim, h, vF, s)
185                  in                  in
186                    createKrn (dir', kexp0::krnexp, vA::vAs)                    createKrn (dir', kexp0::krnexp, vA::vAs)
187                  end                  end

Legend:
Removed from v.4050  
changed lines
  Added in v.4051

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