| … | |
… | |
| 2805 | const int i = 0; |
2805 | const int i = 0; |
| 2806 | PUSHs (sv_2mortal (newSVuv (value [i]))); |
2806 | PUSHs (sv_2mortal (newSVuv (value [i]))); |
| 2807 | |
2807 | |
| 2808 | #END:kernel_work_group |
2808 | #END:kernel_work_group |
| 2809 | |
2809 | |
|
|
2810 | #if CL_VERSION_1_2 |
|
|
2811 | |
|
|
2812 | void |
|
|
2813 | arg_info (OpenCL::Kernel self, cl_uint idx, cl_kernel_arg_info name) |
|
|
2814 | PPCODE: |
|
|
2815 | size_t size; |
|
|
2816 | NEED_SUCCESS (GetKernelArgInfo, (self, name, 0, 0, &size)); |
|
|
2817 | SV *sv = sv_2mortal (newSV (size)); |
|
|
2818 | SvUPGRADE (sv, SVt_PV); |
|
|
2819 | SvPOK_only (sv); |
|
|
2820 | SvCUR_set (sv, size); |
|
|
2821 | NEED_SUCCESS (GetKernelArgInfo, (self, name, size, SvPVX (sv), 0)); |
|
|
2822 | XPUSHs (sv); |
|
|
2823 | |
|
|
2824 | #BEGIN:kernel_arg |
|
|
2825 | |
|
|
2826 | #END:kernel_arg |
|
|
2827 | |
|
|
2828 | #endif |
|
|
2829 | |
| 2810 | MODULE = OpenCL PACKAGE = OpenCL::Event |
2830 | MODULE = OpenCL PACKAGE = OpenCL::Event |
| 2811 | |
2831 | |
| 2812 | void |
2832 | void |
| 2813 | DESTROY (OpenCL::Event self) |
2833 | DESTROY (OpenCL::Event self) |
| 2814 | CODE: |
2834 | CODE: |
