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

* Some minor changes that make the recent changes more backwards compatible. Mantis #21837

Browse Source 
git-svn-id: trunk@21043 -
This commit is contained in:
marco 2012-04-25 19:47:54 +00:00
parent 5b09fa8a8c
commit e59be6884e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/opengl/src/glu.pp
View File

@ -87,6 +87,12 @@ Const
{$ENDIF OS2}
{$endif}
type
TViewPortArray = array [0..3] of GLint;
T16dArray = array [0..15] of GLdouble;
T3dArray = array [0..2] of GLdouble;
T4pArray = array [0..3] of Pointer;
T4fArray = array [0..3] of GLfloat;
const
GLU_EXT_object_space_tess = 1;
@ -283,7 +289,7 @@ Type
PGLdouble = ^GLdouble;
PGLfloat = ^GLfloat;
PGLint = ^GLint;
PGLubyte = ^GLubyte;
PGLubyte = PAnsiChar; //< this is only used for strings in GLU
PGLUnurbs = ^GLUnurbs;
PGLUquadric = ^GLUquadric;
PGLUtesselator = ^GLUtesselator;
@ -293,6 +299,7 @@ Type
GLUtesselatorObj = GLUtesselator;
GLUtriangulatorObj = GLUtesselator;
_GLUfuncptr = procedure ;extdecl;
TCallback = _GLUfuncptr;
{$IFDEF MORPHOS}