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

- removed unnecessary glGetString(GL_EXTENSIONS) calls (mantis #30663,

Browse Source 
patch by Paul Michell)

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

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

@ -5299,10 +5299,7 @@ begin
end;
procedure Load_GL_version_1_3x(var allOK: Boolean);
var
extstring: String;
begin
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
glActiveTexture := wglGetProcAddress('glActiveTexture');
if not Assigned(glActiveTexture) then allOK := false;
glClientActiveTexture := wglGetProcAddress('glClientActiveTexture');
@ -10491,10 +10488,7 @@ begin
end;
procedure Load_GL_version_1_4x (var allOK: Boolean);
var
extstring: String;
begin
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
glBlendFuncSeparate := wglGetProcAddress('glBlendFuncSeparate');
if not Assigned(glBlendFuncSeparate) then allOK := false;
glFogCoordf := wglGetProcAddress('glFogCoordf');
@ -10595,10 +10589,7 @@ begin
end;
procedure Load_GL_version_1_5x (var allOK: Boolean);
var
extstring: string;
begin
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
glGenQueries := wglGetProcAddress('glGenQueries');
if not Assigned(glGenQueries) then allOK := false;
glDeleteQueries := wglGetProcAddress('glDeleteQueries');
@ -10648,10 +10639,7 @@ begin
end;
procedure Load_GL_version_2_0x (var allOK: Boolean);
var
extstring: String;
begin
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
glBlendEquationSeparate := wglGetProcAddress('glBlendEquationSeparate');
if not Assigned(glBlendEquationSeparate) then allOK := false;
glDrawBuffers := wglGetProcAddress('glDrawBuffers');