From e59be6884ec396b8d353a5c171831a9a4f43a5c1 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 25 Apr 2012 19:47:54 +0000
Subject: [PATCH]  * Some minor changes that make the recent changes more
 backwards compatible. Mantis #21837

git-svn-id: trunk@21043 -
---
 packages/opengl/src/glu.pp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/packages/opengl/src/glu.pp b/packages/opengl/src/glu.pp
index d3bab231c9..02629c2ae4 100644
--- a/packages/opengl/src/glu.pp
+++ b/packages/opengl/src/glu.pp
@@ -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}