--- Merging r16966 into '.':

U    packages/opencl/src/cl_gl.pp

# revisions: 16966
------------------------------------------------------------------------
r16966 | marco | 2011-02-21 22:19:47 +0100 (Mon, 21 Feb 2011) | 3 lines
Changed paths:
   M /trunk/packages/opencl/src/cl_gl.pp

 * Patch from mantis that fixed a 16-bit integer conversion error.
    (Denis Golovan, mantis 18797)

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@16967 -

packages/opencl/src/cl_gl.pp

@@ -49,7 +49,7 @@ const
   CL_GL_MIPMAP_LEVEL        = $2005;
 
 function clCreateFromGLBuffer(context: cl_context; falgs: cl_mem_flags;
-  bufobj: GLuint; var errcode_ret: Integer
+  bufobj: GLuint; var errcode_ret: cl_int
   ): cl_mem; cdecl; external name 'clCreateFromGLBuffer';
 
 function clCreateFromGLTexture2D(context: cl_context;