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

* update AllOk parameter of Load_GL_version_1_2x() when loading an extension

Browse Source 
fails (mantis #30663, patch by Paul Michell)

git-svn-id: trunk@34595 -
This commit is contained in:
Jonas Maebe 2016-10-02 12:56:43 +00:00
parent de60bfab9c
commit 37a365c236
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5201,17 +5201,17 @@ end;
procedure Load_GL_version_1_2x(var allOK: Boolean);
begin
glBlendColor := wglGetProcAddress('glBlendColor');
if not Assigned(glBlendColor) then Exit;
if not Assigned(glBlendColor) then allOK := False;
glBlendEquation := wglGetProcAddress('glBlendEquation');
if not Assigned(glBlendEquation) then Exit;
if not Assigned(glBlendEquation) then allOK := False;
glDrawRangeElements := wglGetProcAddress('glDrawRangeElements');
if not Assigned(glDrawRangeElements) then Exit;
if not Assigned(glDrawRangeElements) then allOK := False;
glTexImage3D := wglGetProcAddress('glTexImage3D');
if not Assigned(glTexImage3D) then Exit;
if not Assigned(glTexImage3D) then allOK := False;
glTexSubImage3D := wglGetProcAddress('glTexSubImage3D');
if not Assigned(glTexSubImage3D) then Exit;
if not Assigned(glTexSubImage3D) then allOK := False;
glCopyTexSubImage3D := wglGetProcAddress('glCopyTexSubImage3D');
if not Assigned(glCopyTexSubImage3D) then Exit;
if not Assigned(glCopyTexSubImage3D) then allOK := False;
end;
function Load_GL_version_1_2: boolean;