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

* patch from #18613 from M. Kamburelis fixes glBufferSubDataARB and some formatting.

Browse Source 
git-svn-id: trunk@16826 -
This commit is contained in:
marco 2011-01-28 12:01:54 +00:00
parent 012ef5218b
commit 6d0e9444cd
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/opengl/src/glext.pp
View File

@ -2770,6 +2770,8 @@ function Load_GL_ARB_fragment_program: Boolean;
const
GL_TEXT_FRAGMENT_SHADER_ATI = $8200;
function Load_GL_ATI_text_fragment_shader: Boolean;
{***** GL_ARB_vertex_buffer_object *****}
const
GL_BUFFER_SIZE_ARB = $8764;
@ -2816,9 +2818,7 @@ var
glUnmapBufferARB : function (target :GLenum) :GLboolean; extdecl;
glGetBufferParameterivARB:procedure(target:GLenum; pname:GLenum; params:PGLint); extdecl;
glGetBufferPointervARB : procedure(target: GLenum; pname:GLenum; params: PPGLvoid); extdecl;
function Load_GL_ARB_vertex_buffer_object : boolean;
function Load_GL_ATI_text_fragment_shader: Boolean;
function Load_GL_ARB_vertex_buffer_object : boolean;
//***** GL_APPLE_client_storage *****//
const
@ -8451,6 +8451,8 @@ begin
if not Assigned(glIsBufferARB) then Exit;
glBufferDataARB := wglGetProcAddress('glBufferDataARB');
if not Assigned(glBufferDataARB) then Exit;
glBufferSubDataARB := wglGetProcAddress('glBufferSubDataARB');
if not Assigned(glBufferSubDataARB) then Exit;
glGetBufferSubDataARB := wglGetProcAddress('glGetBufferSubDataARB');
if not Assigned(glGetBufferSubDataARB) then Exit;
glMapBufferARB := wglGetProcAddress('glMapBufferARB');