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

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.9 by root, Thu Nov 17 03:05:56 2011 UTC vs.
Revision 1.10 by root, Thu Nov 17 03:56:07 2011 UTC

… …
144 cl_event *event_list_ptr = event_list (&ST (items), event_list_count) 144 cl_event *event_list_ptr = event_list (&ST (items), event_list_count)
145 145
146#define INFO(class) \ 146#define INFO(class) \
147{ \ 147{ \
148 size_t size; \ 148 size_t size; \
149 SV *sv; \
150 \
151 NEED_SUCCESS (Get ## class ## Info, (this, name, 0, 0, &size)); \ 149 NEED_SUCCESS (Get ## class ## Info, (this, name, 0, 0, &size)); \
152 sv = sv_2mortal (newSV (size)); \ 150 SV *sv = sv_2mortal (newSV (size)); \
153 SvUPGRADE (sv, SVt_PV); \ 151 SvUPGRADE (sv, SVt_PV); \
154 SvPOK_only (sv); \ 152 SvPOK_only (sv); \
155 SvCUR_set (sv, size); \ 153 SvCUR_set (sv, size); \
156 NEED_SUCCESS (Get ## class ## Info, (this, name, size, SvPVX (sv), 0)); \ 154 NEED_SUCCESS (Get ## class ## Info, (this, name, size, SvPVX (sv), 0)); \
157 XPUSHs (sv); \ 155 XPUSHs (sv); \
… …
194enum2str (cl_uint value) 192enum2str (cl_uint value)
195 193
196void 194void
197platforms () 195platforms ()
198 PPCODE: 196 PPCODE:
199{
200 cl_platform_id *list; 197 cl_platform_id *list;
201 cl_uint count; 198 cl_uint count;
202 int i; 199 int i;
203 200
204 NEED_SUCCESS (GetPlatformIDs, (0, 0, &count)); 201 NEED_SUCCESS (GetPlatformIDs, (0, 0, &count));
… …
206 NEED_SUCCESS (GetPlatformIDs, (count, list, 0)); 203 NEED_SUCCESS (GetPlatformIDs, (count, list, 0));
207 204
208 EXTEND (SP, count); 205 EXTEND (SP, count);
209 for (i = 0; i < count; ++i) 206 for (i = 0; i < count; ++i)
210 PUSHs (NEW_MORTAL_OBJ ("OpenCL::Platform", list [i])); 207 PUSHs (NEW_MORTAL_OBJ ("OpenCL::Platform", list [i]));
211}
212 208
213void 209void
214context_from_type (FUTURE properties = 0, cl_device_type type = CL_DEVICE_TYPE_DEFAULT, FUTURE notify = 0) 210context_from_type (FUTURE properties = 0, cl_device_type type = CL_DEVICE_TYPE_DEFAULT, FUTURE notify = 0)
215 PPCODE: 211 PPCODE:
216 NEED_SUCCESS_ARG (cl_context ctx, CreateContextFromType, (0, type, 0, 0, &res)); 212 NEED_SUCCESS_ARG (cl_context ctx, CreateContextFromType, (0, type, 0, 0, &res));
… …
222 /* der Gipfel der Kunst */ 218 /* der Gipfel der Kunst */
223 219
224void 220void
225wait_for_events (...) 221wait_for_events (...)
226 CODE: 222 CODE:
227{
228 EVENT_LIST (0, items); 223 EVENT_LIST (0, items);
229 NEED_SUCCESS (WaitForEvents, (event_list_count, event_list_ptr)); 224 NEED_SUCCESS (WaitForEvents, (event_list_count, event_list_ptr));
230}
231 225
232PROTOTYPES: DISABLE 226PROTOTYPES: DISABLE
233 227
234MODULE = OpenCL PACKAGE = OpenCL::Platform 228MODULE = OpenCL PACKAGE = OpenCL::Platform
235 229
… …
239 INFO (Platform) 233 INFO (Platform)
240 234
241void 235void
242devices (OpenCL::Platform this, cl_device_type type = CL_DEVICE_TYPE_ALL) 236devices (OpenCL::Platform this, cl_device_type type = CL_DEVICE_TYPE_ALL)
243 PPCODE: 237 PPCODE:
244{
245 cl_device_id *list; 238 cl_device_id *list;
246 cl_uint count; 239 cl_uint count;
247 int i; 240 int i;
248 241
249 NEED_SUCCESS (GetDeviceIDs, (this, type, 0, 0, &count)); 242 NEED_SUCCESS (GetDeviceIDs, (this, type, 0, 0, &count));
… …
251 NEED_SUCCESS (GetDeviceIDs, (this, type, count, list, 0)); 244 NEED_SUCCESS (GetDeviceIDs, (this, type, count, list, 0));
252 245
253 EXTEND (SP, count); 246 EXTEND (SP, count);
254 for (i = 0; i < count; ++i) 247 for (i = 0; i < count; ++i)
255 PUSHs (sv_setref_pv (sv_newmortal (), "OpenCL::Device", list [i])); 248 PUSHs (sv_setref_pv (sv_newmortal (), "OpenCL::Device", list [i]));
256}
257 249
258void 250void
259context (OpenCL::Platform this, FUTURE properties, SV *devices, FUTURE notify = 0) 251context (OpenCL::Platform this, FUTURE properties, SV *devices, FUTURE notify = 0)
260 PPCODE: 252 PPCODE:
261 if (!SvROK (devices) || SvTYPE (SvRV (devices)) != SVt_PVAV) 253 if (!SvROK (devices) || SvTYPE (SvRV (devices)) != SVt_PVAV)
… …
330 322
331 NEED_SUCCESS_ARG (cl_mem mem, CreateBuffer, (this, flags, len, ptr, &res)); 323 NEED_SUCCESS_ARG (cl_mem mem, CreateBuffer, (this, flags, len, ptr, &res));
332 XPUSH_NEW_OBJ ("OpenCL::Buffer", mem); 324 XPUSH_NEW_OBJ ("OpenCL::Buffer", mem);
333 325
334void 326void
335image2d (OpenCL::Context this, cl_mem_flags flags, cl_channel_order channel_order, cl_channel_type channel_type, size_t width, size_t height, SV *data) 327image2d (OpenCL::Context this, cl_mem_flags flags, cl_channel_order channel_order, cl_channel_type channel_type, size_t width, size_t height, size_t row_pitch, SV *data)
336 PPCODE: 328 PPCODE:
337 STRLEN len; 329 STRLEN len;
338 char *ptr = SvPVbyte (data, len); 330 char *ptr = SvPVbyte (data, len);
339 const cl_image_format format = { channel_order, channel_type }; 331 const cl_image_format format = { channel_order, channel_type };
340 NEED_SUCCESS_ARG (cl_mem mem, CreateImage2D, (this, flags, &format, width, height, len / height, ptr, &res)); 332 NEED_SUCCESS_ARG (cl_mem mem, CreateImage2D, (this, flags, &format, width, height, row_pitch, ptr, &res));
341 XPUSH_NEW_OBJ ("OpenCL::Image2D", mem); 333 XPUSH_NEW_OBJ ("OpenCL::Image2D", mem);
342 334
343void 335void
344image3d (OpenCL::Context this, cl_mem_flags flags, cl_channel_order channel_order, cl_channel_type channel_type, size_t width, size_t height, size_t depth, size_t slice_pitch, SV *data) 336image3d (OpenCL::Context this, cl_mem_flags flags, cl_channel_order channel_order, cl_channel_type channel_type, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data)
345 PPCODE: 337 PPCODE:
346 STRLEN len; 338 STRLEN len;
347 char *ptr = SvPVbyte (data, len); 339 char *ptr = SvPVbyte (data, len);
348 const cl_image_format format = { channel_order, channel_type }; 340 const cl_image_format format = { channel_order, channel_type };
349 NEED_SUCCESS_ARG (cl_mem mem, CreateImage3D, (this, flags, &format, width, height, 341 NEED_SUCCESS_ARG (cl_mem mem, CreateImage3D, (this, flags, &format, width, height, depth, row_pitch, slice_pitch, ptr, &res));
350 depth, len / (height * slice_pitch), slice_pitch, ptr, &res));
351 XPUSH_NEW_OBJ ("OpenCL::Image3D", mem); 342 XPUSH_NEW_OBJ ("OpenCL::Image3D", mem);
352 343
353void 344void
354supported_image_formats (OpenCL::Context this, cl_mem_flags flags, cl_mem_object_type image_type) 345supported_image_formats (OpenCL::Context this, cl_mem_flags flags, cl_mem_object_type image_type)
355 PPCODE: 346 PPCODE:
… …
402 INFO (CommandQueue) 393 INFO (CommandQueue)
403 394
404void 395void
405enqueue_read_buffer (OpenCL::Queue this, OpenCL::Buffer mem, cl_bool blocking, size_t offset, size_t len, SV *data, ...) 396enqueue_read_buffer (OpenCL::Queue this, OpenCL::Buffer mem, cl_bool blocking, size_t offset, size_t len, SV *data, ...)
406 PPCODE: 397 PPCODE:
407{
408 cl_event ev = 0; 398 cl_event ev = 0;
409 EVENT_LIST (6, items - 6); 399 EVENT_LIST (6, items - 6);
410 400
411 SvUPGRADE (data, SVt_PV); 401 SvUPGRADE (data, SVt_PV);
412 SvGROW (data, len); 402 SvGROW (data, len);
… …
414 SvCUR_set (data, len); 404 SvCUR_set (data, len);
415 NEED_SUCCESS (EnqueueReadBuffer, (this, mem, blocking, offset, len, SvPVX (data), event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 405 NEED_SUCCESS (EnqueueReadBuffer, (this, mem, blocking, offset, len, SvPVX (data), event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
416 406
417 if (ev) 407 if (ev)
418 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 408 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
419}
420 409
421void 410void
422enqueue_write_buffer (OpenCL::Queue this, OpenCL::Buffer mem, cl_bool blocking, size_t offset, SV *data, ...) 411enqueue_write_buffer (OpenCL::Queue this, OpenCL::Buffer mem, cl_bool blocking, size_t offset, SV *data, ...)
423 PPCODE: 412 PPCODE:
424{
425 cl_event ev = 0; 413 cl_event ev = 0;
426 STRLEN len; 414 STRLEN len;
427 char *ptr = SvPVbyte (data, len); 415 char *ptr = SvPVbyte (data, len);
428 EVENT_LIST (5, items - 5); 416 EVENT_LIST (5, items - 5);
429 417
430 NEED_SUCCESS (EnqueueReadBuffer, (this, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 418 NEED_SUCCESS (EnqueueReadBuffer, (this, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
431 419
432 if (ev) 420 if (ev)
433 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 421 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
434}
435 422
436void 423void
437enqueue_copy_buffer (OpenCL::Queue this, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_offset, size_t dst_offset, size_t len, ...) 424enqueue_copy_buffer (OpenCL::Queue this, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_offset, size_t dst_offset, size_t len, ...)
438 PPCODE: 425 PPCODE:
439{
440 cl_event ev = 0; 426 cl_event ev = 0;
441 EVENT_LIST (6, items - 6); 427 EVENT_LIST (6, items - 6);
442 428
443 NEED_SUCCESS (EnqueueCopyBuffer, (this, src, dst, src_offset, dst_offset, len, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 429 NEED_SUCCESS (EnqueueCopyBuffer, (this, src, dst, src_offset, dst_offset, len, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
444 430
445 if (ev) 431 if (ev)
446 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 432 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
447}
448 433
449 /*TODO http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBufferRect.html */ 434 /*TODO http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBufferRect.html */
450 /*TODO http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteBufferRect.html */ 435 /*TODO http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteBufferRect.html */
451 436
452void 437void
453enqueue_read_image (OpenCL::Queue this, OpenCL::Image src, cl_bool blocking, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data, ...) 438enqueue_read_image (OpenCL::Queue this, OpenCL::Image src, cl_bool blocking, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data, ...)
454 PPCODE: 439 PPCODE:
455{
456 cl_event ev = 0; 440 cl_event ev = 0;
457 const size_t src_origin[3] = { src_x, src_y, src_z }; 441 const size_t src_origin[3] = { src_x, src_y, src_z };
458 const size_t region[3] = { width, height, depth }; 442 const size_t region[3] = { width, height, depth };
459 size_t len = row_pitch * slice_pitch * depth; 443 size_t len = row_pitch * (slice_pitch ? slice_pitch : 1) * depth;
460 EVENT_LIST (11, items - 11); 444 EVENT_LIST (12, items - 12);
445
446 if (!len)
447 croak ("enqueue_read_image: currently, row_pitch must be specified to be non-zero");
461 448
462 SvUPGRADE (data, SVt_PV); 449 SvUPGRADE (data, SVt_PV);
463 SvGROW (data, len); 450 SvGROW (data, len);
464 SvPOK_only (data); 451 SvPOK_only (data);
465 SvCUR_set (data, len); 452 SvCUR_set (data, len);
466 NEED_SUCCESS (EnqueueReadImage, (this, src, blocking, src_origin, region, row_pitch, slice_pitch, SvPVX (data), event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 453 NEED_SUCCESS (EnqueueReadImage, (this, src, blocking, src_origin, region, row_pitch, slice_pitch, SvPVX (data), event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
467 454
468 if (ev) 455 if (ev)
469 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 456 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
470}
471 457
472void 458void
473enqueue_write_image (OpenCL::Queue this, OpenCL::Image dst, cl_bool blocking, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t row_pitch, SV *data, ...) 459enqueue_write_image (OpenCL::Queue this, OpenCL::Image dst, cl_bool blocking, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data, ...)
474 PPCODE: 460 PPCODE:
475{
476 cl_event ev = 0; 461 cl_event ev = 0;
477 const size_t dst_origin[3] = { dst_x, dst_y, dst_z }; 462 const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
478 const size_t region[3] = { width, height, depth }; 463 const size_t region[3] = { width, height, depth };
479 STRLEN len; 464 STRLEN len;
480 char *ptr = SvPVbyte (data, len); 465 char *ptr = SvPVbyte (data, len);
481 size_t slice_pitch = len / (row_pitch * height);
482 EVENT_LIST (11, items - 11); 466 EVENT_LIST (12, items - 12);
483 467
484 NEED_SUCCESS (EnqueueWriteImage, (this, dst, blocking, dst_origin, region, row_pitch, slice_pitch, SvPVX (data), event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 468 NEED_SUCCESS (EnqueueWriteImage, (this, dst, blocking, dst_origin, region, row_pitch, slice_pitch, SvPVX (data), event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
485 469
486 if (ev) 470 if (ev)
487 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 471 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
488}
489 472
490void 473void
491enqueue_copy_buffer_rect (OpenCL::Queue this, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t src_row_pitch, size_t src_slice_pitch, size_t dst_row_pitch, size_t dst_slice_pitch, ...) 474enqueue_copy_buffer_rect (OpenCL::Queue this, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t src_row_pitch, size_t src_slice_pitch, size_t dst_row_pitch, size_t dst_slice_pitch, ...)
492 PPCODE: 475 PPCODE:
493{
494 cl_event ev = 0; 476 cl_event ev = 0;
495 const size_t src_origin[3] = { src_x, src_y, src_z }; 477 const size_t src_origin[3] = { src_x, src_y, src_z };
496 const size_t dst_origin[3] = { dst_x, dst_y, dst_z }; 478 const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
497 const size_t region[3] = { width, height, depth }; 479 const size_t region[3] = { width, height, depth };
498 EVENT_LIST (16, items - 16); 480 EVENT_LIST (16, items - 16);
499 481
500 NEED_SUCCESS (EnqueueCopyBufferRect, (this, src, dst, src_origin, dst_origin, region, src_row_pitch, src_slice_pitch, dst_row_pitch, dst_slice_pitch, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 482 NEED_SUCCESS (EnqueueCopyBufferRect, (this, src, dst, src_origin, dst_origin, region, src_row_pitch, src_slice_pitch, dst_row_pitch, dst_slice_pitch, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
501 483
502 if (ev) 484 if (ev)
503 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 485 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
504}
505 486
506void 487void
507enqueue_copy_buffer_to_image (OpenCL::Queue this, OpenCL::Buffer src, OpenCL::Image dst, size_t src_offset, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...) 488enqueue_copy_buffer_to_image (OpenCL::Queue this, OpenCL::Buffer src, OpenCL::Image dst, size_t src_offset, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)
508 PPCODE: 489 PPCODE:
509{
510 cl_event ev = 0; 490 cl_event ev = 0;
511 const size_t dst_origin[3] = { dst_x, dst_y, dst_z }; 491 const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
512 const size_t region[3] = { width, height, depth }; 492 const size_t region[3] = { width, height, depth };
513 EVENT_LIST (10, items - 10); 493 EVENT_LIST (10, items - 10);
514 494
515 NEED_SUCCESS (EnqueueCopyBufferToImage, (this, src, dst, src_offset, dst_origin, region, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 495 NEED_SUCCESS (EnqueueCopyBufferToImage, (this, src, dst, src_offset, dst_origin, region, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
516 496
517 if (ev) 497 if (ev)
518 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 498 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
519}
520 499
521void 500void
522enqueue_copy_image (OpenCL::Queue this, OpenCL::Image src, OpenCL::Image dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...) 501enqueue_copy_image (OpenCL::Queue this, OpenCL::Image src, OpenCL::Image dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)
523 PPCODE: 502 PPCODE:
524{
525 cl_event ev = 0; 503 cl_event ev = 0;
526 const size_t src_origin[3] = { src_x, src_y, src_z }; 504 const size_t src_origin[3] = { src_x, src_y, src_z };
527 const size_t dst_origin[3] = { dst_x, dst_y, dst_z }; 505 const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
528 const size_t region[3] = { width, height, depth }; 506 const size_t region[3] = { width, height, depth };
529 EVENT_LIST (12, items - 12); 507 EVENT_LIST (12, items - 12);
530 508
531 NEED_SUCCESS (EnqueueCopyImage, (this, src, dst, src_origin, dst_origin, region, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 509 NEED_SUCCESS (EnqueueCopyImage, (this, src, dst, src_origin, dst_origin, region, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
532 510
533 if (ev) 511 if (ev)
534 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 512 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
535}
536 513
537void 514void
538enqueue_copy_image_to_buffer (OpenCL::Queue this, OpenCL::Image src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t dst_offset, ...) 515enqueue_copy_image_to_buffer (OpenCL::Queue this, OpenCL::Image src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t dst_offset, ...)
539 PPCODE: 516 PPCODE:
540{
541 cl_event ev = 0; 517 cl_event ev = 0;
542 const size_t src_origin[3] = { src_x, src_y, src_z }; 518 const size_t src_origin[3] = { src_x, src_y, src_z };
543 const size_t region[3] = { width, height, depth }; 519 const size_t region[3] = { width, height, depth };
544 EVENT_LIST (10, items - 10); 520 EVENT_LIST (10, items - 10);
545 521
546 NEED_SUCCESS (EnqueueCopyImageToBuffer, (this, src, dst, src_origin, region, dst_offset, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 522 NEED_SUCCESS (EnqueueCopyImageToBuffer, (this, src, dst, src_origin, region, dst_offset, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
547 523
548 if (ev) 524 if (ev)
549 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 525 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
550}
551 526
552void 527void
553enqueue_task (OpenCL::Queue this, OpenCL::Kernel kernel, ...) 528enqueue_task (OpenCL::Queue this, OpenCL::Kernel kernel, ...)
554 PPCODE: 529 PPCODE:
555{
556 cl_event ev = 0; 530 cl_event ev = 0;
557 EVENT_LIST (2, items - 2); 531 EVENT_LIST (2, items - 2);
558 532
559 NEED_SUCCESS (EnqueueTask, (this, kernel, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 533 NEED_SUCCESS (EnqueueTask, (this, kernel, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
560 534
561 if (ev) 535 if (ev)
562 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 536 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
563}
564 537
565void 538void
566enqueue_nd_range_kernel (OpenCL::Queue this, OpenCL::Kernel kernel, SV *global_work_offset, SV *global_work_size, SV *local_work_size = &PL_sv_undef, ...) 539enqueue_nd_range_kernel (OpenCL::Queue this, OpenCL::Kernel kernel, SV *global_work_offset, SV *global_work_size, SV *local_work_size = &PL_sv_undef, ...)
567 PPCODE: 540 PPCODE:
568{
569 cl_event ev = 0; 541 cl_event ev = 0;
570 size_t *gwo = 0, *gws, *lws = 0; 542 size_t *gwo = 0, *gws, *lws = 0;
571 int gws_len; 543 int gws_len;
572 size_t *lists; 544 size_t *lists;
573 int i; 545 int i;
… …
612 584
613 NEED_SUCCESS (EnqueueNDRangeKernel, (this, kernel, gws_len, gwo, gws, lws, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 585 NEED_SUCCESS (EnqueueNDRangeKernel, (this, kernel, gws_len, gwo, gws, lws, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
614 586
615 if (ev) 587 if (ev)
616 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 588 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
617}
618 589
619void 590void
620enqueue_marker (OpenCL::Queue this) 591enqueue_marker (OpenCL::Queue this)
621 PPCODE: 592 PPCODE:
622{
623 cl_event ev; 593 cl_event ev;
624 NEED_SUCCESS (EnqueueMarker, (this, &ev)); 594 NEED_SUCCESS (EnqueueMarker, (this, &ev));
625 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 595 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
626}
627 596
628void 597void
629enqueue_wait_for_events (OpenCL::Queue this, ...) 598enqueue_wait_for_events (OpenCL::Queue this, ...)
630 CODE: 599 CODE:
631{
632 EVENT_LIST (1, items - 1); 600 EVENT_LIST (1, items - 1);
633 NEED_SUCCESS (EnqueueWaitForEvents, (this, event_list_count, event_list_ptr)); 601 NEED_SUCCESS (EnqueueWaitForEvents, (this, event_list_count, event_list_ptr));
634}
635 602
636void 603void
637enqueue_barrier (OpenCL::Queue this) 604enqueue_barrier (OpenCL::Queue this)
638 CODE: 605 CODE:
639 NEED_SUCCESS (EnqueueBarrier, (this)); 606 NEED_SUCCESS (EnqueueBarrier, (this));
… …
690 NEED_SUCCESS (BuildProgram, (this, 1, &device, SvPVbyte_nolen (options), 0, 0)); 657 NEED_SUCCESS (BuildProgram, (this, 1, &device, SvPVbyte_nolen (options), 0, 0));
691 658
692void 659void
693build_info (OpenCL::Program this, OpenCL::Device device, cl_program_build_info name) 660build_info (OpenCL::Program this, OpenCL::Device device, cl_program_build_info name)
694 PPCODE: 661 PPCODE:
695{
696 size_t size; 662 size_t size;
697 SV *sv;
698
699 NEED_SUCCESS (GetProgramBuildInfo, (this, device, name, 0, 0, &size)); 663 NEED_SUCCESS (GetProgramBuildInfo, (this, device, name, 0, 0, &size));
700 sv = sv_2mortal (newSV (size)); 664 SV *sv = sv_2mortal (newSV (size));
701 SvUPGRADE (sv, SVt_PV); 665 SvUPGRADE (sv, SVt_PV);
702 SvPOK_only (sv); 666 SvPOK_only (sv);
703 SvCUR_set (sv, size); 667 SvCUR_set (sv, size);
704 NEED_SUCCESS (GetProgramBuildInfo, (this, device, name, size, SvPVX (sv), 0)); 668 NEED_SUCCESS (GetProgramBuildInfo, (this, device, name, size, SvPVX (sv), 0));
705 XPUSHs (sv); 669 XPUSHs (sv);
706}
707 670
708void 671void
709kernel (OpenCL::Program program, SV *function) 672kernel (OpenCL::Program program, SV *function)
710 PPCODE: 673 PPCODE:
711 NEED_SUCCESS_ARG (cl_kernel kernel, CreateKernel, (program, SvPVbyte_nolen (function), &res)); 674 NEED_SUCCESS_ARG (cl_kernel kernel, CreateKernel, (program, SvPVbyte_nolen (function), &res));

Diff Legend

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