| … | |
… | |
| 1264 | void |
1264 | void |
| 1265 | gl_object_info (OpenCL::Memory self) |
1265 | gl_object_info (OpenCL::Memory self) |
| 1266 | PPCODE: |
1266 | PPCODE: |
| 1267 | cl_gl_object_type type; |
1267 | cl_gl_object_type type; |
| 1268 | cl_GLuint name; |
1268 | cl_GLuint name; |
| 1269 | NEED_SUCCESS (clGetGLObjectInfo, (self, &type, &name)); |
1269 | NEED_SUCCESS (GetGLObjectInfo, (self, &type, &name)); |
| 1270 | EXTEND (SP, 2); |
1270 | EXTEND (SP, 2); |
| 1271 | PUSHs (sv_2mortal (newSVuv (type))); |
1271 | PUSHs (sv_2mortal (newSVuv (type))); |
| 1272 | PUSHs (sv_2mortal (newSVuv (name))); |
1272 | PUSHs (sv_2mortal (newSVuv (name))); |
| 1273 | |
1273 | |
| 1274 | #endif |
1274 | #endif |
| … | |
… | |
| 1319 | |
1319 | |
| 1320 | void |
1320 | void |
| 1321 | target (OpenCL::Image self) |
1321 | target (OpenCL::Image self) |
| 1322 | PPCODE: |
1322 | PPCODE: |
| 1323 | cl_GLenum value [1]; |
1323 | cl_GLenum value [1]; |
| 1324 | NEED_SUCCESS (GetGlTextureInfo, (self, CL_GL_TEXTURE_TARGET, sizeof (value), value, 0)); |
1324 | NEED_SUCCESS (GetGLTextureInfo, (self, CL_GL_TEXTURE_TARGET, sizeof (value), value, 0)); |
| 1325 | EXTEND (SP, 1); |
1325 | EXTEND (SP, 1); |
| 1326 | const int i = 0; |
1326 | const int i = 0; |
| 1327 | PUSHs (sv_2mortal (newSVuv (value [i]))); |
1327 | PUSHs (sv_2mortal (newSVuv (value [i]))); |
| 1328 | |
1328 | |
| 1329 | void |
1329 | void |
| 1330 | gl_mipmap_level (OpenCL::Image self) |
1330 | gl_mipmap_level (OpenCL::Image self) |
| 1331 | PPCODE: |
1331 | PPCODE: |
| 1332 | cl_GLint value [1]; |
1332 | cl_GLint value [1]; |
| 1333 | NEED_SUCCESS (GetGlTextureInfo, (self, CL_GL_MIPMAP_LEVEL, sizeof (value), value, 0)); |
1333 | NEED_SUCCESS (GetGLTextureInfo, (self, CL_GL_MIPMAP_LEVEL, sizeof (value), value, 0)); |
| 1334 | EXTEND (SP, 1); |
1334 | EXTEND (SP, 1); |
| 1335 | const int i = 0; |
1335 | const int i = 0; |
| 1336 | PUSHs (sv_2mortal (newSViv (value [i]))); |
1336 | PUSHs (sv_2mortal (newSViv (value [i]))); |
| 1337 | |
1337 | |
| 1338 | #END:gl_texture |
1338 | #END:gl_texture |
