inc: opengl: Turn various GLubyte Ptrs into ZString Ptrs

http://www.freebasic.net/forum/viewtopic.php?p=206647#p206647
(cherry picked from commit 6d31308)

Author: dkl

changelog.txt

@@ -7,6 +7,7 @@ Version 1.02.1
 
 [fixed]
 - 1.02.0 regression: win/winuser.bi: Renamed INPUT typedef to INPUT_ to avoid conflicts with the quirk keyword (due to bug #730)
+- 1.02.0 regression: OpenGL binding: glGetString() and some others use ZString Ptr instead of GLubyte Ptr again
 
 
 Version 1.02.0

inc/GL/mesa/gl.bi

@@ -607,7 +607,7 @@ declare sub glPushClientAttrib(byval mask as GLbitfield)
 declare sub glPopClientAttrib()
 declare function glRenderMode(byval mode as GLenum) as GLint
 declare function glGetError() as GLenum
-declare function glGetString(byval name as GLenum) as const GLubyte ptr
+declare function glGetString(byval name as GLenum) as const zstring ptr
 declare sub glFinish()
 declare sub glFlush()
 declare sub glHint(byval target as GLenum, byval mode as GLenum)

inc/GL/mesa/glext.bi

@@ -853,7 +853,7 @@ type PFNGLCLEARBUFFERIVPROC as sub(byval buffer as GLenum, byval drawbuffer as G
 type PFNGLCLEARBUFFERUIVPROC as sub(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLuint ptr)
 type PFNGLCLEARBUFFERFVPROC as sub(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLfloat ptr)
 type PFNGLCLEARBUFFERFIPROC as sub(byval buffer as GLenum, byval drawbuffer as GLint, byval depth as GLfloat, byval stencil as GLint)
-type PFNGLGETSTRINGIPROC as function(byval name as GLenum, byval index as GLuint) as const GLubyte ptr
+type PFNGLGETSTRINGIPROC as function(byval name as GLenum, byval index as GLuint) as const zstring ptr
 type PFNGLISRENDERBUFFERPROC as function(byval renderbuffer as GLuint) as GLboolean
 type PFNGLBINDRENDERBUFFERPROC as sub(byval target as GLenum, byval renderbuffer as GLuint)
 type PFNGLDELETERENDERBUFFERSPROC as sub(byval n as GLsizei, byval renderbuffers as const GLuint ptr)
@@ -939,7 +939,7 @@ type PFNGLISVERTEXARRAYPROC as function(byval array as GLuint) as GLboolean
 	declare sub glClearBufferuiv(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLuint ptr)
 	declare sub glClearBufferfv(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLfloat ptr)
 	declare sub glClearBufferfi(byval buffer as GLenum, byval drawbuffer as GLint, byval depth as GLfloat, byval stencil as GLint)
-	declare function glGetStringi(byval name as GLenum, byval index as GLuint) as const GLubyte ptr
+	declare function glGetStringi(byval name as GLenum, byval index as GLuint) as const zstring ptr
 	declare function glIsRenderbuffer(byval renderbuffer as GLuint) as GLboolean
 	declare sub glBindRenderbuffer(byval target as GLenum, byval renderbuffer as GLuint)
 	declare sub glDeleteRenderbuffers(byval n as GLsizei, byval renderbuffers as const GLuint ptr)

inc/GL/mesa/glu.bi

@@ -194,7 +194,7 @@ declare function gluBuild2DMipmapLevels(byval target as GLenum, byval internalFo
 declare function gluBuild2DMipmaps(byval target as GLenum, byval internalFormat as GLint, byval width as GLsizei, byval height as GLsizei, byval format as GLenum, byval type as GLenum, byval data as const any ptr) as GLint
 declare function gluBuild3DMipmapLevels(byval target as GLenum, byval internalFormat as GLint, byval width as GLsizei, byval height as GLsizei, byval depth as GLsizei, byval format as GLenum, byval type as GLenum, byval level as GLint, byval base as GLint, byval max as GLint, byval data as const any ptr) as GLint
 declare function gluBuild3DMipmaps(byval target as GLenum, byval internalFormat as GLint, byval width as GLsizei, byval height as GLsizei, byval depth as GLsizei, byval format as GLenum, byval type as GLenum, byval data as const any ptr) as GLint
-declare function gluCheckExtension(byval extName as const GLubyte ptr, byval extString as const GLubyte ptr) as GLboolean
+declare function gluCheckExtension(byval extName as const zstring ptr, byval extString as const zstring ptr) as GLboolean
 declare sub gluCylinder(byval quad as GLUquadric ptr, byval base as GLdouble, byval top as GLdouble, byval height as GLdouble, byval slices as GLint, byval stacks as GLint)
 declare sub gluDeleteNurbsRenderer(byval nurb as GLUnurbs ptr)
 declare sub gluDeleteQuadric(byval quad as GLUquadric ptr)
@@ -204,9 +204,9 @@ declare sub gluEndCurve(byval nurb as GLUnurbs ptr)
 declare sub gluEndPolygon(byval tess as GLUtesselator ptr)
 declare sub gluEndSurface(byval nurb as GLUnurbs ptr)
 declare sub gluEndTrim(byval nurb as GLUnurbs ptr)
-declare function gluErrorString(byval error as GLenum) as const GLubyte ptr
+declare function gluErrorString(byval error as GLenum) as const zstring ptr
 declare sub gluGetNurbsProperty(byval nurb as GLUnurbs ptr, byval property as GLenum, byval data as GLfloat ptr)
-declare function gluGetString(byval name as GLenum) as const GLubyte ptr
+declare function gluGetString(byval name as GLenum) as const zstring ptr
 declare sub gluGetTessProperty(byval tess as GLUtesselator ptr, byval which as GLenum, byval data as GLdouble ptr)
 declare sub gluLoadSamplingMatrices(byval nurb as GLUnurbs ptr, byval model as const GLfloat ptr, byval perspective as const GLfloat ptr, byval view as const GLint ptr)
 declare sub gluLookAt(byval eyeX as GLdouble, byval eyeY as GLdouble, byval eyeZ as GLdouble, byval centerX as GLdouble, byval centerY as GLdouble, byval centerZ as GLdouble, byval upX as GLdouble, byval upY as GLdouble, byval upZ as GLdouble)

inc/GL/windows/gl.bi

@@ -726,7 +726,7 @@ declare sub glGetPixelMapuiv(byval map as GLenum, byval values as GLuint ptr)
 declare sub glGetPixelMapusv(byval map as GLenum, byval values as GLushort ptr)
 declare sub glGetPointerv(byval pname as GLenum, byval params as GLvoid ptr ptr)
 declare sub glGetPolygonStipple(byval mask as GLubyte ptr)
-declare function glGetString(byval name as GLenum) as const GLubyte ptr
+declare function glGetString(byval name as GLenum) as const zstring ptr
 declare sub glGetTexEnvfv(byval target as GLenum, byval pname as GLenum, byval params as GLfloat ptr)
 declare sub glGetTexEnviv(byval target as GLenum, byval pname as GLenum, byval params as GLint ptr)
 declare sub glGetTexGendv(byval coord as GLenum, byval pname as GLenum, byval params as GLdouble ptr)

inc/GL/windows/glext.bi

@@ -1089,7 +1089,7 @@ type PFNGLCLEARBUFFERIVPROC as sub(byval buffer as GLenum, byval drawbuffer as G
 type PFNGLCLEARBUFFERUIVPROC as sub(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLuint ptr)
 type PFNGLCLEARBUFFERFVPROC as sub(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLfloat ptr)
 type PFNGLCLEARBUFFERFIPROC as sub(byval buffer as GLenum, byval drawbuffer as GLint, byval depth as GLfloat, byval stencil as GLint)
-type PFNGLGETSTRINGIPROC as function(byval name as GLenum, byval index as GLuint) as const GLubyte ptr
+type PFNGLGETSTRINGIPROC as function(byval name as GLenum, byval index as GLuint) as const zstring ptr
 type PFNGLISRENDERBUFFERPROC as function(byval renderbuffer as GLuint) as GLboolean
 type PFNGLBINDRENDERBUFFERPROC as sub(byval target as GLenum, byval renderbuffer as GLuint)
 type PFNGLDELETERENDERBUFFERSPROC as sub(byval n as GLsizei, byval renderbuffers as const GLuint ptr)
@@ -1175,7 +1175,7 @@ type PFNGLISVERTEXARRAYPROC as function(byval array as GLuint) as GLboolean
 	declare sub glClearBufferuiv(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLuint ptr)
 	declare sub glClearBufferfv(byval buffer as GLenum, byval drawbuffer as GLint, byval value as const GLfloat ptr)
 	declare sub glClearBufferfi(byval buffer as GLenum, byval drawbuffer as GLint, byval depth as GLfloat, byval stencil as GLint)
-	declare function glGetStringi(byval name as GLenum, byval index as GLuint) as const GLubyte ptr
+	declare function glGetStringi(byval name as GLenum, byval index as GLuint) as const zstring ptr
 	declare function glIsRenderbuffer(byval renderbuffer as GLuint) as GLboolean
 	declare sub glBindRenderbuffer(byval target as GLenum, byval renderbuffer as GLuint)
 	declare sub glDeleteRenderbuffers(byval n as GLsizei, byval renderbuffers as const GLuint ptr)

inc/GL/windows/glu.bi

@@ -16,9 +16,9 @@ extern "Windows"
 	#define gluErrorStringWIN(errCode) cast(LPCWSTR, gluErrorString(errCode))
 #endif
 
-declare function gluErrorString(byval errCode as GLenum) as const GLubyte ptr
+declare function gluErrorString(byval errCode as GLenum) as const zstring ptr
 declare function gluErrorUnicodeStringEXT(byval errCode as GLenum) as const wstring ptr
-declare function gluGetString(byval name as GLenum) as const GLubyte ptr
+declare function gluGetString(byval name as GLenum) as const zstring ptr
 declare sub gluOrtho2D(byval left as GLdouble, byval right as GLdouble, byval bottom as GLdouble, byval top as GLdouble)
 declare sub gluPerspective(byval fovy as GLdouble, byval aspect as GLdouble, byval zNear as GLdouble, byval zFar as GLdouble)
 declare sub gluPickMatrix(byval x as GLdouble, byval y as GLdouble, byval width as GLdouble, byval height as GLdouble, byval viewport as GLint ptr)