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 3124, Tue Mar 24 09:59:45 2015 UTC revision 3125, Tue Mar 24 11:30:03 2015 UTC
# Line 107  Line 107 
107                          } @                          } @
108                          [CL.mkAssign' (CL.mkVar "idx", CL.+=, CL.mkVar "offset")]))                          [CL.mkAssign' (CL.mkVar "idx", CL.+=, CL.mkVar "offset")]))
109                  ]                  ]
110            val kName = name ^ "Kern"            val kName = OCLNames.getOutputKern name
111            val kern = U.mkKernel(            val kern = U.mkKernel(
112                  kName,                  kName,
113                  [U.globalParam(CN.schedPtrTy tgt, "sched"), U.globalParam(CL.T_Ptr ty', "outBuf"), U.clParam(CL.uint32, "nStrands")],                  [U.globalParam(CN.schedPtrTy tgt, "sched"), U.globalParam(CL.T_Ptr ty', "outBuf"), U.clParam(CL.uint32, "nStrands")],
# Line 158  Line 158 
158                  [CL.mkReturn(SOME(CL.mkApply("OutputGridFixed", [                  [CL.mkReturn(SOME(CL.mkApply("OutputGridFixed", [
159                      CL.mkVar "wrld", CL.mkInt(IntInf.fromInt sizesDim), CL.mkVar "sizes",                      CL.mkVar "wrld", CL.mkInt(IntInf.fromInt sizesDim), CL.mkVar "sizes",
160                      CL.mkVar(NrrdEnums.tyToEnum nrrdType),                      CL.mkVar(NrrdEnums.tyToEnum nrrdType),
161                      CL.mkIndirect(CL.mkVar "wrld", name ^ "Kern"), CL.mkVar "nData"                      CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"
162                    ])))]                    ])))]
163            in            in
164              ([CL.PARAM([], nrrdPtrTy, "nData")], CL.mkBlock stms)              ([CL.PARAM([], nrrdPtrTy, "nData")], CL.mkBlock stms)

Legend:
Removed from v.3124  
changed lines
  Added in v.3125

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