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/gen-output.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/cl-target/gen-output.sml

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

revision 3087, Tue Mar 17 16:35:47 2015 UTC revision 3088, Tue Mar 17 18:27:27 2015 UTC
# Line 66  Line 66 
66    
67      val nrrdPtrTy = CL.T_Ptr(CL.T_Named "Nrrd")      val nrrdPtrTy = CL.T_Ptr(CL.T_Named "Nrrd")
68      val sizeTy = CL.T_Named "size_t"      val sizeTy = CL.T_Named "size_t"
     fun wrldPtr tgt = CL.T_Ptr(CL.T_Named(RN.worldTy tgt))  
69      fun globPtr tgt = CL.T_Ptr(CL.T_Named(CLNames.globalsTy tgt))      fun globPtr tgt = CL.T_Ptr(CL.T_Named(CLNames.globalsTy tgt))
70      fun schedPtr tgt = CL.T_Ptr(CL.T_Named(CLNames.schedTy tgt))      fun schedPtr tgt = CL.T_Ptr(CL.T_Named(CLNames.schedTy tgt))
71      fun mkInt i = CL.mkInt(IntInf.fromInt i)      fun mkInt i = CL.mkInt(IntInf.fromInt i)
# Line 173  Line 172 
172                        then RN.snapshotGet(tgt, name)                        then RN.snapshotGet(tgt, name)
173                        else RN.outputGet(tgt, name)                        else RN.outputGet(tgt, name)
174                  fun mkFunc (params, body) =                  fun mkFunc (params, body) =
175                        CL.D_Func([], CL.boolTy, funcName, CL.PARAM([], wrldPtr tgt, "wrld")::params, body)                        CL.D_Func([], CL.boolTy, funcName, CL.PARAM([], N.worldPtrTy tgt, "wrld")::params, body)
176                  in                  in
177                    case ty                    case ty
178                     of Ty.DynSeqTy ty' => raise Fail "dynamic sequences not supported for OpenCL"                     of Ty.DynSeqTy ty' => raise Fail "dynamic sequences not supported for OpenCL"

Legend:
Removed from v.3087  
changed lines
  Added in v.3088

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