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

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.46 by root, Tue Apr 24 12:23:56 2012 UTC vs.
Revision 1.48 by root, Tue Apr 24 14:24:42 2012 UTC

… …
400 400
401void 401void
402info (OpenCL::Platform self, cl_platform_info name) 402info (OpenCL::Platform self, cl_platform_info name)
403 PPCODE: 403 PPCODE:
404 INFO (Platform) 404 INFO (Platform)
405
406void
407unload_compiler (OpenCL::Platform self)
408 CODE:
409#if CL_VERSION_1_2
410 clUnloadPlatformCompiler (self);
411#endif
405 412
406#BEGIN:platform 413#BEGIN:platform
407 414
408void 415void
409profile (OpenCL::Platform self) 416profile (OpenCL::Platform self)
… …
969 NEED_SUCCESS (EnqueueWriteBuffer, (self, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 976 NEED_SUCCESS (EnqueueWriteBuffer, (self, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
970 977
971 if (ev) 978 if (ev)
972 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 979 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
973 980
981#if CL_VERSION_1_2
982
983void
984enqueue_fill_buffer (OpenCL::Queue self, OpenCL::Buffer mem, SV *data, size_t offset, size_t size, ...)
985 PPCODE:
986 cl_event ev = 0;
987 STRLEN len;
988 char *ptr = SvPVbyte (data, len);
989 EVENT_LIST (5, items - 5);
990
991 NEED_SUCCESS (EnqueueFillBuffer, (self, mem, ptr, len, offset, size, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
992
993 if (ev)
994 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
995
996void
997enqueue_fill_image (OpenCL::Queue self, OpenCL::Image img, NV r, NV g, NV b, NV a, size_t x, size_t y, size_t z, size_t width, size_t height, size_t depth, ...)
998 PPCODE:
999 cl_event ev = 0;
1000 STRLEN len;
1001 const size_t origin [3] = { x, y, z };
1002 const size_t region [3] = { width, height, depth };
1003 EVENT_LIST (12, items - 12);
1004
1005 const cl_float c_f [4] = { r, g, b, a };
1006 const cl_uint c_u [4] = { r, g, b, a };
1007 const cl_int c_s [4] = { r, g, b, a };
1008 const void *c_fus [3] = { &c_f, &c_u, &c_s };
1009 static const char fus [] = { 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 1, 0, 0 };
1010 cl_image_format format;
1011 NEED_SUCCESS (clGetImageInfo, (img, CL_IMAGE_FORMAT, sizeof (format), &format, 0));
1012 assert (sizeof (fus) == CL_FLOAT + 1 - CL_SNORM_INT8);
1013 if (format.image_channel_data_type < CL_SNORM_INT8 || CL_FLOAT < format.image_channel_data_type)
1014 croak ("enqueue_fill_image: image has unsupported channel type, only opencl 1.2 channel types supported.");
1015
1016 NEED_SUCCESS (EnqueueFillImage, (self, img, c_fus [fus [format.image_channel_data_type]],
1017 origin, region, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1018
1019 if (ev)
1020 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
1021
1022#endif
1023
974void 1024void
975enqueue_copy_buffer (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_offset, size_t dst_offset, size_t len, ...) 1025enqueue_copy_buffer (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_offset, size_t dst_offset, size_t len, ...)
976 PPCODE: 1026 PPCODE:
977 cl_event ev = 0; 1027 cl_event ev = 0;
978 EVENT_LIST (6, items - 6); 1028 EVENT_LIST (6, items - 6);
… …
1243 if (ev) 1293 if (ev)
1244 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 1294 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
1245 1295
1246#endif 1296#endif
1247 1297
1248#if !CL_VERSION_1_2 || defined CL_USE_DEPRECATED_OPENCL_1_1_APIS
1249
1250void 1298void
1251enqueue_wait_for_events (OpenCL::Queue self, ...) 1299enqueue_wait_for_events (OpenCL::Queue self, ...)
1252 CODE: 1300 CODE:
1253 EVENT_LIST (1, items - 1); 1301 EVENT_LIST (1, items - 1);
1302#if PREFER_1_1
1254 NEED_SUCCESS (EnqueueWaitForEvents, (self, event_list_count, event_list_ptr)); 1303 NEED_SUCCESS (EnqueueWaitForEvents, (self, event_list_count, event_list_ptr));
1255 1304#else
1305 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, 0));
1256#endif 1306#endif
1257 1307
1258void 1308void
1259enqueue_marker (OpenCL::Queue self, ...) 1309enqueue_marker (OpenCL::Queue self, ...)
1260 PPCODE: 1310 PPCODE:
1261 cl_event ev = 0; 1311 cl_event ev = 0;
1262 EVENT_LIST (1, items - 1); 1312 EVENT_LIST (1, items - 1);
1263#if PREFER_1_1 1313#if PREFER_1_1
1314 if (!event_list_count)
1315 NEED_SUCCESS (EnqueueMarker, (self, GIMME_V != G_VOID ? &ev : 0));
1316 else
1264#if CL_VERSION_1_2 1317#if CL_VERSION_1_2
1265 if (event_list_count)
1266 NEED_SUCCESS (EnqueueMarkerWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 1318 NEED_SUCCESS (EnqueueMarkerWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1267 else
1268 NEED_SUCCESS (EnqueueMarker, (self, GIMME_V != G_VOID ? &ev : 0));
1269#else 1319#else
1270 if (event_list_count) 1320 NEED_SUCCESS (EnqueueWaitForEvents, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); // also a barrier
1271 croak ("OpenCL::Queue->enqueue_marker does not support a wait list in OpenCL 1.1 - upgrade to 1.2");
1272 NEED_SUCCESS (EnqueueMarker, (self, GIMME_V != G_VOID ? &ev : 0));
1273#endif 1321#endif
1274#else 1322#else
1275 NEED_SUCCESS (EnqueueMarkerWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 1323 NEED_SUCCESS (EnqueueMarkerWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1276#endif 1324#endif
1277 if (ev) 1325 if (ev)
… …
1281enqueue_barrier (OpenCL::Queue self, ...) 1329enqueue_barrier (OpenCL::Queue self, ...)
1282 PPCODE: 1330 PPCODE:
1283 cl_event ev = 0; 1331 cl_event ev = 0;
1284 EVENT_LIST (1, items - 1); 1332 EVENT_LIST (1, items - 1);
1285#if PREFER_1_1 1333#if PREFER_1_1
1334 if (!event_list_count && GIMME_V == G_VOID)
1335 NEED_SUCCESS (EnqueueBarrier, (self));
1336 else
1286#if CL_VERSION_1_2 1337#if CL_VERSION_1_2
1287 if (event_list_count || GIMME_V != G_VOID)
1288 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 1338 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1289 else
1290 NEED_SUCCESS (EnqueueBarrier, (self));
1291#else 1339#else
1340 {
1292 if (event_list_count) 1341 if (event_list_count)
1293 croak ("OpenCL::Queue->enqueue_barrier does not support a wait list in OpenCL 1.1 - upgrade to 1.2"); 1342 NEED_SUCCESS (EnqueueWaitForEvents, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1343
1294 if (GIMME_V != G_VOID) 1344 if (GIMME_V != G_VOID)
1295 croak ("OpenCL::Queue->enqueue_barrier does not return an event object in OpenCL 1.1 - upgrade to 1.2");
1296 NEED_SUCCESS (EnqueueBarrier, (self)); 1345 NEED_SUCCESS (EnqueueMarker, (self, &ev));
1346 }
1297#endif 1347#endif
1298#else 1348#else
1299 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 1349 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1300#endif 1350#endif
1301 if (ev) 1351 if (ev)
… …
1650void 1700void
1651kernel (OpenCL::Program program, SV *function) 1701kernel (OpenCL::Program program, SV *function)
1652 PPCODE: 1702 PPCODE:
1653 NEED_SUCCESS_ARG (cl_kernel kernel, CreateKernel, (program, SvPVbyte_nolen (function), &res)); 1703 NEED_SUCCESS_ARG (cl_kernel kernel, CreateKernel, (program, SvPVbyte_nolen (function), &res));
1654 XPUSH_NEW_OBJ ("OpenCL::Kernel", kernel); 1704 XPUSH_NEW_OBJ ("OpenCL::Kernel", kernel);
1705
1706void
1707kernels_in_program (OpenCL::Program program)
1708 PPCODE:
1709 cl_uint num_kernels;
1710 NEED_SUCCESS (CreateKernelsInProgram, (program, 0, 0, &num_kernels));
1711 cl_kernel *kernels = tmpbuf (sizeof (cl_kernel) * num_kernels);
1712 NEED_SUCCESS (CreateKernelsInProgram, (program, num_kernels, kernels, 0));
1713
1714 int i;
1715 EXTEND (SP, num_kernels);
1716 for (i = 0; i < num_kernels; ++i)
1717 PUSHs (NEW_MORTAL_OBJ ("OpenCL::Kernel", kernels [i]));
1655 1718
1656void 1719void
1657info (OpenCL::Program self, cl_program_info name) 1720info (OpenCL::Program self, cl_program_info name)
1658 PPCODE: 1721 PPCODE:
1659 INFO (Program) 1722 INFO (Program)

Diff Legend

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