diff --git a/src/nogl/noGLES1.inc b/src/nogl/noGLES1.inc
index 9aa878324dc0159081663f9e56c145e962fdb628..05cce69c940cda006edc5d20ba844968845f2d53 100644 (file)
--- a/src/nogl/noGLES1.inc
+++ b/src/nogl/noGLES1.inc
es_glDisable: procedure (cap: GLenum); cdecl;
es_glIsEnabled: function (cap: GLenum): GLBoolean; cdecl;
es_glGetString: function (name: GLenum): PChar; cdecl;
+ es_glGetError: function (): GLenum; cdecl;
es_glClearColor: procedure (red, green, blue, alpha: GLclampf); cdecl;
es_glClear: procedure (mask: GLbitfield); cdecl;
es_glAlphaFunc: procedure (func: GLenum; ref: GLclampf); cdecl;
result := es_glGetString(name);
end;
+ function glGetError: GLenum;
+ begin
+ result := es_glGetError
+ end;
+
procedure glClearColor(red, green, blue, alpha: GLclampf);
begin
es_glClearColor(red, green, blue, alpha);
es_glDisable := SDL_GL_GetProcAddress('glDisable');
es_glIsEnabled := SDL_GL_GetProcAddress('glIsEnabled');
es_glGetString := SDL_GL_GetProcAddress('glGetString');
+ es_glGetError := SDL_GL_GetProcAddress('glGetError');
es_glClearColor := SDL_GL_GetProcAddress('glClearColor');
es_glClear := SDL_GL_GetProcAddress('glClear');
es_glAlphaFunc := SDL_GL_GetProcAddress('glAlphaFunc');