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

* when loading the functions for a particular OpenGL function, also

Browse Source 
automatically load those for lower versions (patch by "satan", mantis
    #13687)

git-svn-id: trunk@13167 -
This commit is contained in:
Jonas Maebe 2009-05-17 16:01:13 +00:00
parent b5985d7e7c
commit 3d771a7d39
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4484,7 +4484,7 @@ begin
if not Assigned(glCompressedTexSubImage1D) then Exit;
glGetCompressedTexImage := wglGetProcAddress('glGetCompressedTexImage');
if not Assigned(glGetCompressedTexImage) then Exit;
Result := TRUE;
Result := Load_GL_version_1_2;
end;
@ -9081,7 +9081,7 @@ begin
if not Assigned(glWindowPos3s) then Exit;
glWindowPos3sv := wglGetProcAddress('glWindowPos3sv');
if not Assigned(glWindowPos3sv) then Exit;
Result := TRUE;
Result := Load_GL_version_1_3;
end;
@ -9131,7 +9131,7 @@ begin
if not Assigned(glGetBufferParameteriv) then Exit;
glGetBufferPointerv := wglGetProcAddress('glGetBufferPointerv');
if not Assigned(glGetBufferPointerv) then Exit;
Result := TRUE;
Result := Load_GL_version_1_4;
end;
@ -9329,7 +9329,7 @@ begin
if not Assigned(glVertexAttrib4usv) then Exit;
glVertexAttribPointer := wglGetProcAddress('glVertexAttribPointer');
if not Assigned(glVertexAttribPointer) then Exit;
Result := TRUE;
Result := Load_GL_version_1_5;
end;