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 4026, Wed Jun 22 15:55:07 2016 UTC revision 4027, Wed Jun 22 17:38:35 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]) => let              | (Op.Transform info, [img]) => CL.mkApply("world2image", [img])
172                  val e = CL.mkDispatch(img, "world2image", [])              | (Op.Translate info, [img]) => CL.mkApply("translate", [img])
                 in  
                   case ImageInfo.dim info  
                    of 1 => e  
                     | d => CL.mkCons(RN.tensorRefTy[d,d], [e])  
                   (* end case *)  
                 end  
             | (Op.Translate info, [img]) => let  
                 val e = CL.mkDispatch(img, "translate", [])  
                 in  
                   case ImageInfo.dim info  
                    of 1 => e  
                     | d => CL.mkCons(RN.tensorRefTy[d], [e])  
                   (* end case *)  
                 end  
173              | (Op.BaseAddress info, [img]) => CL.mkDispatch(img, "base_addr", [])              | (Op.BaseAddress info, [img]) => CL.mkDispatch(img, "base_addr", [])
174              | (Op.ControlIndex(info, ctl, d), [img, idx]) =>              | (Op.ControlIndex(info, ctl, d), [img, idx]) =>
175                  CL.mkDispatch(img, IndexCtl.toString ctl, [mkInt d, idx])                  CL.mkDispatch(img, IndexCtl.toString ctl, [mkInt d, idx])
# Line 300  Line 286 
286              | mkExp (lhs, ty::tys, e::es) = let              | mkExp (lhs, ty::tys, e::es) = let
287                (* if necessary, wrap the argument so that the correct "<<" instance is used *)                (* if necessary, wrap the argument so that the correct "<<" instance is used *)
288                  val e = (case ty                  val e = (case ty
289                         of Ty.TensorTy shape => CL.mkApply(RN.tensorStruct shape, [e])                         of Ty.TensorTy shape => CL.mkApply(RN.tensorRefStruct shape, [e])
290                          | _ => e                          | _ => e
291                        (* end case *))                        (* end case *))
292                  in                  in

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

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