ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/OpenCL/OpenCL.xs
(Generate patch)

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.32 by root, Thu Apr 19 19:36:24 2012 UTC vs.
Revision 1.34 by root, Fri Apr 20 19:36:00 2012 UTC

… …
855 cl_event ev = 0; 855 cl_event ev = 0;
856 STRLEN len; 856 STRLEN len;
857 char *ptr = SvPVbyte (data, len); 857 char *ptr = SvPVbyte (data, len);
858 EVENT_LIST (5, items - 5); 858 EVENT_LIST (5, items - 5);
859 859
860 NEED_SUCCESS (EnqueueReadBuffer, (self, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 860 NEED_SUCCESS (EnqueueWriteBuffer, (self, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
861 861
862 if (ev) 862 if (ev)
863 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 863 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
864 864
865void 865void
… …
1690set_sampler (OpenCL::Kernel self, cl_uint idx, OpenCL::Sampler value) 1690set_sampler (OpenCL::Kernel self, cl_uint idx, OpenCL::Sampler value)
1691 CODE: 1691 CODE:
1692 clSetKernelArg (self, idx, sizeof (value), &value); 1692 clSetKernelArg (self, idx, sizeof (value), &value);
1693 1693
1694void 1694void
1695set_local (OpenCL::Kernel self, cl_uint idx, size_t size)
1696 CODE:
1697 clSetKernelArg (self, idx, size, 0);
1698
1699void
1695set_event (OpenCL::Kernel self, cl_uint idx, OpenCL::Event value) 1700set_event (OpenCL::Kernel self, cl_uint idx, OpenCL::Event value)
1696 CODE: 1701 CODE:
1697 clSetKernelArg (self, idx, sizeof (value), &value); 1702 clSetKernelArg (self, idx, sizeof (value), &value);
1698 1703
1699void 1704void

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines