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/fragments/c-output-grid.in
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/cl-target/fragments/c-output-grid.in

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

revision 2766, Sat Oct 11 02:23:43 2014 UTC revision 2767, Sat Oct 11 14:24:05 2014 UTC
# Line 16  Line 16 
16          return true;          return true;
17      }      }
18    
19      // work sizes for the program
20        size_t globalWorkSize[1];
21        size_t localWorkSize[1];
22        globalWorkSize[0] = wrld->nWorkers * wrld->device->cuWidth;
23        localWorkSize[0] = wrld->device->cuWidth;
24    
25    // Run the copy kernel    // Run the copy kernel
26      if (((sts = clSetKernelArg (kern, 0, sizeof(cl_mem), &(wrld->schedBuf))) != CL_SUCCESS)      if (((sts = clSetKernelArg (kern, 0, sizeof(cl_mem), &(wrld->schedBuf))) != CL_SUCCESS)
27      ||  ((sts = clSetKernelArg (kern, 1, sizeof(cl_mem), &(gpuData))) != CL_SUCCESS)      ||  ((sts = clSetKernelArg (kern, 1, sizeof(cl_mem), &(gpuData))) != CL_SUCCESS)
28      ||  ((sts = clSetKernelArg (kern, 2, sizeof(cl_uint), &(wrld->numStrands))) != CL_SUCCESS)      ||  ((sts = clSetKernelArg (kern, 2, sizeof(cl_uint), &(wrld->numStrands))) != CL_SUCCESS)
29      ||  ((sts = clEnqueueTask(wrld->cmdQ, kern, 0, NULL, NULL)) != CL_SUCCESS)) {      ||  ((sts = clEnqueueNDRangeKernel(wrld->cmdQ, kern, 1, NULL, globalWorkSize, localWorkSize, 0, NULL, NULL)) != CL_SUCCESS)) {
30          ReportOCLError (wrld, sts, "error enqueuing output kernel");          ReportOCLError (wrld, sts, "error enqueuing output kernel");
31          return true;          return true;
32      }      }

Legend:
Removed from v.2766  
changed lines
  Added in v.2767

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