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

SCM Repository

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

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

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

revision 1393, Mon Jun 27 02:58:00 2011 UTC revision 1640, Wed Nov 16 02:19:51 2011 UTC
# Line 92  Line 92 
92                                code                                code
93                        val code = List.foldr mkArg code tmps                        val code = List.foldr mkArg code tmps
94                        val code = if (dim > 1)                        val code = if (dim > 1)
95                              then assign(fd, DstOp.Select(DstTy.vecTy dim, d), [f]) :: code                              then assign(fd, DstOp.Index(DstTy.vecTy dim, d), [f]) :: code
96                              else code                              else code
97                        in                        in
98                          (d+1, code)                          (d+1, code)
# Line 147  Line 147 
147                              val code = if (dim > 1)                              val code = if (dim > 1)
148                                    then                                    then
149                                      intLit(t1, offset) ::                                      intLit(t1, offset) ::
150                                      assign(t2, DstOp.Select(DstTy.IVecTy dim, i), [n]) ::                                      assign(t2, DstOp.Index(DstTy.iVecTy dim, i), [n]) ::
151                                      assign(index, DstOp.Add(DstTy.intTy), [t1, t2]) ::                                      assign(index, DstOp.Add(DstTy.intTy), [t1, t2]) ::
152                                      code                                      code
153                                    else                                    else
# Line 214  Line 214 
214            val x = DstV.new ("x", vecDimTy)      (* image-space position *)            val x = DstV.new ("x", vecDimTy)      (* image-space position *)
215            val f = DstV.new ("f", vecDimTy)            val f = DstV.new ("f", vecDimTy)
216            val nd = DstV.new ("nd", vecDimTy)            val nd = DstV.new ("nd", vecDimTy)
217            val n = DstV.new ("n", DstTy.IVecTy dim)            val n = DstV.new ("n", DstTy.iVecTy dim)
218            val toImgSpaceCode = [            val toImgSpaceCode = [
219                    assign(x, DstOp.PosToImgSpace v, [img, pos]),                    assign(x, DstOp.PosToImgSpace v, [img, pos]),
220                    assign(nd, DstOp.Floor dim, [x]),                    assign(nd, DstOp.Floor dim, [x]),

Legend:
Removed from v.1393  
changed lines
  Added in v.1640

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