… | |
… | |
2510 | NEED_SUCCESS (GetProgramBuildInfo, (self, device, ix, size, value, 0)); |
2510 | NEED_SUCCESS (GetProgramBuildInfo, (self, device, ix, size, value, 0)); |
2511 | EXTEND (SP, 1); |
2511 | EXTEND (SP, 1); |
2512 | const int i = 0; |
2512 | const int i = 0; |
2513 | PUSHs (sv_2mortal (newSVpv (value, 0))); |
2513 | PUSHs (sv_2mortal (newSVpv (value, 0))); |
2514 | |
2514 | |
|
|
2515 | void |
|
|
2516 | binary_type (OpenCL::Program self, OpenCL::Device device) |
|
|
2517 | PPCODE: |
|
|
2518 | cl_program_binary_type value [1]; |
|
|
2519 | NEED_SUCCESS (GetProgramBuildInfo, (self, device, CL_PROGRAM_BINARY_TYPE, sizeof (value), value, 0)); |
|
|
2520 | EXTEND (SP, 1); |
|
|
2521 | const int i = 0; |
|
|
2522 | PUSHs (sv_2mortal (newSVuv (UV)value [i]))); |
|
|
2523 | |
2515 | #END:program_build |
2524 | #END:program_build |
2516 | |
2525 | |
2517 | void |
2526 | void |
2518 | kernel (OpenCL::Program program, SV *function) |
2527 | kernel (OpenCL::Program program, SV *function) |
2519 | PPCODE: |
2528 | PPCODE: |