paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fixes for OpenCL module by Denis Golovan, resolves #18901

Browse Source 
git-svn-id: trunk@17231 -
This commit is contained in:
florian 2011-04-02 19:15:04 +00:00
parent bd302b760e
commit 0d38c744f4
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/opencl/src/cl.pp
View File

@ -385,6 +385,7 @@ const
CL_DEVICE_MEM_BASE_ADDR_ALIGN = $1019;
CL_DEVICE_MIN_DATA_TYPE_ALIGN_SIZE = $101A;
CL_DEVICE_SINGLE_FP_CONFIG = $101B;
CL_DEVICE_DOUBLE_FP_CONFIG = $1032;
CL_DEVICE_GLOBAL_MEM_CACHE_TYPE = $101C;
CL_DEVICE_GLOBAL_MEM_CACHELINE_SIZE = $101D;
CL_DEVICE_GLOBAL_MEM_CACHE_SIZE = $101E;
@ -440,9 +441,9 @@ const
// cl_context_info
CL_CONTEXT_REFERENCE_COUNT = $1080;
CL_CONTEXT_NUM_DEVICES = $1081;
CL_CONTEXT_DEVICES = $1082;
CL_CONTEXT_PROPERTIES_INFO = $1083; // CL_CONTEXT_PROPERTIES
CL_CONTEXT_DEVICES = $1081;
CL_CONTEXT_PROPERTIES_INFO = $1082; // CL_CONTEXT_PROPERTIES
CL_CONTEXT_NUM_DEVICES = $1083;
CL_CONTEXT_PLATFORM_INFO = $1084; // CL_CONTEXT_PLATFORM
// cl_command_queue_info

7
packages/opencl/src/cl_gl.pp
View File

@ -48,6 +48,13 @@ const
CL_GL_TEXTURE_TARGET = $2004;
CL_GL_MIPMAP_LEVEL = $2005;
CL_GL_CONTEXT_KHR = $2008;
CL_EGL_DISPLAY_KHR = $2009;
CL_GLX_DISPLAY_KHR = $200A;
CL_WGL_HDC_KHR = $200B;
CL_CGL_SHAREGROUP_KHR = $200C;
function clCreateFromGLBuffer(context: cl_context; falgs: cl_mem_flags;
bufobj: GLuint; var errcode_ret: cl_int
): cl_mem; cdecl; external name 'clCreateFromGLBuffer';