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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/cl-target/tree-to-cl.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/cl-target/tree-to-cl.sml

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

revision 2725, Wed Sep 24 12:22:21 2014 UTC revision 2726, Wed Sep 24 19:12:59 2014 UTC
# Line 187  Line 187 
187              | (Op.IntToReal, [a]) => CL.mkCast(!CLN.gGPURealTy, a)              | (Op.IntToReal, [a]) => CL.mkCast(!CLN.gGPURealTy, a)
188              | (Op.RealToInt 1, [a]) => CL.mkCast(!CLN.gGPUIntTy, a)              | (Op.RealToInt 1, [a]) => CL.mkCast(!CLN.gGPUIntTy, a)
189              | (Op.RealToInt d, args) => CL.mkApply(CLN.vecftoi d, args)              | (Op.RealToInt d, args) => CL.mkApply(CLN.vecftoi d, args)
190  (* FIXME: need type info *)              | (Op.ImageAddress info, [a]) => let
191              | (Op.ImageAddress info, [a as CL.E_Indirect(_,field)]) => let                  val cTy = CL.T_Ptr(CL.T_Num(ImageInfo.sampleTy info))
                 val cTy = CLTyTranslate.imageDataPtrTy info  
192                  in                  in
193                    CL.mkCast(cTy,                    CL.mkCast(cTy, CL.mkIndirect(a, "data"))
                     CL.mkSelect(CL.mkVar CLN.globalImageDataName, CLN.imageDataName field))  
194                  end                  end
195              | (Op.LoadVoxels(info, 1), [a]) => let              | (Op.LoadVoxels(info, 1), [a]) => let
196                  val realTy as CL.T_Num rTy = !CLN.gGPURealTy                  val realTy as CL.T_Num rTy = !CLN.gGPURealTy

Legend:
Removed from v.2725  
changed lines
  Added in v.2726

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