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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/tree-to-cxx.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/tree-to-cxx.sml

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

revision 4023, Wed Jun 22 14:37:47 2016 UTC revision 4026, Wed Jun 22 15:55:07 2016 UTC
# Line 168  Line 168 
168              | R_Mean of ty              | R_Mean of ty
169              | R_Variance of ty              | R_Variance of ty
170  *)  *)
171              | (Op.Transform info, [img]) => CL.mkDispatch(img, "world2image", [])              | (Op.Transform info, [img]) => let
172              | (Op.Translate info, [img]) => CL.mkDispatch(img, "translate", [])                  val e = CL.mkDispatch(img, "world2image", [])
173                    in
174                      case ImageInfo.dim info
175                       of 1 => e
176                        | d => CL.mkCons(RN.tensorRefTy[d,d], [e])
177                      (* end case *)
178                    end
179                | (Op.Translate info, [img]) => let
180                    val e = CL.mkDispatch(img, "translate", [])
181                    in
182                      case ImageInfo.dim info
183                       of 1 => e
184                        | d => CL.mkCons(RN.tensorRefTy[d], [e])
185                      (* end case *)
186                    end
187              | (Op.BaseAddress info, [img]) => CL.mkDispatch(img, "base_addr", [])              | (Op.BaseAddress info, [img]) => CL.mkDispatch(img, "base_addr", [])
188              | (Op.ControlIndex(info, ctl, d), [img, idx]) =>              | (Op.ControlIndex(info, ctl, d), [img, idx]) =>
189                  CL.mkDispatch(img, IndexCtl.toString ctl, [mkInt d, idx])                  CL.mkDispatch(img, IndexCtl.toString ctl, [mkInt d, idx])

Legend:
Removed from v.4023  
changed lines
  Added in v.4026

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