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

* Fixes from Michalis Kamburelis:

Browse Source 
1. Fixes declarations of glGetMapiv, glGetMaterialiv and glLightiv to take pointer as the last parameter.
  2. Changes glGetString, gluErrorString and gluGetString to return PChar instead of PGLubyte.

git-svn-id: trunk@58 -
This commit is contained in:
michael 2005-05-22 08:39:24 +00:00
parent 1467901e3e
commit b9fc96073b
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/extra/opengl/gl.pp
View File

@ -1270,15 +1270,15 @@ var
glGetLightiv: procedure(light, pname: GLenum; params: PGLint); extdecl;
glGetMapdv: procedure(target, query: GLenum; v: PGLdouble); extdecl;
glGetMapfv: procedure(target, query: GLenum; v: PGLfloat); extdecl;
glGetMapiv: procedure(target, query: GLenum; v: GLint); extdecl;
glGetMapiv: procedure(target, query: GLenum; v: PGLint); extdecl;
glGetMaterialfv: procedure(face, pname: GLenum; params: PGLfloat); extdecl;
glGetMaterialiv: procedure(face, pname: GLenum; params: GLint); extdecl;
glGetMaterialiv: procedure(face, pname: GLenum; params: PGLint); extdecl;
glGetPixelMapfv: procedure(map: GLenum; values: PGLfloat); extdecl;
glGetPixelMapuiv: procedure(map: GLenum; values: PGLuint); extdecl;
glGetPixelMapusv: procedure(map: GLenum; values: PGLushort); extdecl;
glGetPointerv: procedure(pname: GLenum; params: Pointer); extdecl;
glGetPolygonStipple: procedure(mask: PGLubyte); extdecl;
glGetString: function(name: GLenum): PGLubyte; extdecl;
glGetString: function(name: GLenum): PChar; extdecl;
glGetTexEnvfv: procedure(target, pname: GLenum; params: PGLfloat); extdecl;
glGetTexEnviv: procedure(target, pname: GLenum; params: PGLint); extdecl;
glGetTexGendv: procedure(coord, pname: GLenum; params: PGLdouble); extdecl;
@ -1314,7 +1314,7 @@ var
glLightf: procedure(light, pname: GLenum; param: GLfloat); extdecl;
glLightfv: procedure(light, pname: GLenum; const params: PGLfloat); extdecl;
glLighti: procedure(light, pname: GLenum; param: GLint); extdecl;
glLightiv: procedure(light, pname: GLenum; const params: GLint); extdecl;
glLightiv: procedure(light, pname: GLenum; const params: PGLint); extdecl;
glLineStipple: procedure(factor: GLint; pattern: GLushort); extdecl;
glLineWidth: procedure(width: GLfloat); extdecl;
glListBase: procedure(base: GLuint); extdecl;

4
packages/extra/opengl/glu.pp
View File

@ -83,9 +83,9 @@ type
PPointer = ^Pointer;
var
gluErrorString: function(errCode: GLenum): PGLubyte; extdecl;
gluErrorString: function(errCode: GLenum): PChar; extdecl;
gluErrorUnicodeStringEXT: function(errCode: GLenum): PWideChar; extdecl;
gluGetString: function(name: GLenum): PGLubyte; extdecl;
gluGetString: function(name: GLenum): PChar; extdecl;
gluOrtho2D: procedure(left,right, bottom, top: GLdouble); extdecl;
gluPerspective: procedure(fovy, aspect, zNear, zFar: GLdouble); extdecl;
gluPickMatrix: procedure(x, y, width, height: GLdouble; var viewport: TViewPortArray); extdecl;