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

* fix glext_fog_coord functions, patch by Michalis Kamburelis

Browse Source 
git-svn-id: trunk@9509 -
This commit is contained in:
Almindor 2007-12-22 08:59:58 +00:00
parent 5e3462b6fc
commit 60611c87c1
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/extra/opengl/glext.pp
View File

@ -1011,10 +1011,10 @@ const
GL_FOG_COORDINATE_ARRAY_POINTER_EXT = $8456; GL_FOG_COORDINATE_ARRAY_POINTER_EXT = $8456;
GL_FOG_COORDINATE_ARRAY_EXT = $8457; GL_FOG_COORDINATE_ARRAY_EXT = $8457;
var var
glFogCoordfEXfloat: procedure(coord: GLfloat); extdecl; glFogCoordfEXT: procedure(coord: GLfloat); extdecl;
glFogCoorddEXdouble: procedure(coord: GLdouble); extdecl; glFogCoorddEXT: procedure(coord: GLdouble); extdecl;
glFogCoordfvEXfloat: procedure(coord: GLfloat); extdecl; glFogCoordfvEXT: procedure(coord: PGLfloat); extdecl;
glFogCoorddvEXdouble: procedure(coord: GLdouble); extdecl; glFogCoorddvEXT: procedure(coord: PGLdouble); extdecl;
glFogCoordPointerEXT: procedure(_type: GLenum; stride: GLsizei; pointer: PGLvoid); extdecl; glFogCoordPointerEXT: procedure(_type: GLenum; stride: GLsizei; pointer: PGLvoid); extdecl;
function Load_GL_EXT_fog_coord: Boolean; function Load_GL_EXT_fog_coord: Boolean;
@ -5311,14 +5311,14 @@ begin
if glext_ExtensionSupported('GL_EXT_fog_coord', extstring) then if glext_ExtensionSupported('GL_EXT_fog_coord', extstring) then
begin begin
glFogCoordfEXfloat := wglGetProcAddress('glFogCoordfEXfloat'); glFogCoordfEXT := wglGetProcAddress('glFogCoordfEXT');
if not Assigned(glFogCoordfEXfloat) then Exit; if not Assigned(glFogCoordfEXT) then Exit;
glFogCoorddEXdouble := wglGetProcAddress('glFogCoorddEXdouble'); glFogCoorddEXT := wglGetProcAddress('glFogCoorddEXT');
if not Assigned(glFogCoorddEXdouble) then Exit; if not Assigned(glFogCoorddEXT) then Exit;
glFogCoordfvEXfloat := wglGetProcAddress('glFogCoordfvEXfloat'); glFogCoordfvEXT := wglGetProcAddress('glFogCoordfvEXT');
if not Assigned(glFogCoordfvEXfloat) then Exit; if not Assigned(glFogCoordfvEXT) then Exit;
glFogCoorddvEXdouble := wglGetProcAddress('glFogCoorddvEXdouble'); glFogCoorddvEXT := wglGetProcAddress('glFogCoorddvEXT');
if not Assigned(glFogCoorddvEXdouble) then Exit; if not Assigned(glFogCoorddvEXT) then Exit;
glFogCoordPointerEXT := wglGetProcAddress('glFogCoordPointerEXT'); glFogCoordPointerEXT := wglGetProcAddress('glFogCoordPointerEXT');
if not Assigned(glFogCoordPointerEXT) then Exit; if not Assigned(glFogCoordPointerEXT) then Exit;
Result := TRUE; Result := TRUE;