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

SCM Repository

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

Diff of /branches/pure-cfg/src/compiler/high-to-mid/probe.sml

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

revision 639, Thu Mar 17 17:59:02 2011 UTC revision 640, Thu Mar 17 17:59:58 2011 UTC
# Line 69  Line 69 
69                  fun gen (x, k, (d, code)) = let                  fun gen (x, k, (d, code)) = let
70                        val fd = newVar_dim ("f", d, DstTy.realTy)                        val fd = newVar_dim ("f", d, DstTy.realTy)
71                        val a = DstV.new ("a", vecsTy)                        val a = DstV.new ("a", vecsTy)
72                        val tmps = List.tabulate(2*s,                      (* note that we reverse the order of the list since the convolution
73                              fn i => (DstV.new("t"^Int.toString i, DstTy.realTy), i - s))                       * space is flipped from the image space and we want the voxel vector
74                         * to be in increasing address order.
75                         *)
76                          val tmps = List.rev(List.tabulate(2*s,
77                                fn i => (DstV.new("t"^Int.toString i, DstTy.realTy), i - s)))
78                        fun mkArg ((t, 0), code) = (t, DstIL.VAR fd) :: code                        fun mkArg ((t, 0), code) = (t, DstIL.VAR fd) :: code
79                          | mkArg ((t, n), code) = let                          | mkArg ((t, n), code) = let
80                              val (rator, n) = if (n < 0) then (DstOp.Sub, ~n) else (DstOp.Add, n)                              val (rator, n) = if (n < 0) then (DstOp.Sub, ~n) else (DstOp.Add, n)

Legend:
Removed from v.639  
changed lines
  Added in v.640

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