From 050a5632923d36176c083a77b37324f7df695e35 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Wed, 18 Feb 2009 11:23:30 +0300
Subject: [PATCH] Properly check glProgramStringARB for failures

---
 skinvp.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/skinvp.c b/skinvp.c
index 8b5cf3b..8f7d12c 100644
--- a/skinvp.c
+++ b/skinvp.c
@@ -201,15 +201,16 @@ static void skin_anim (State *s)
 
 static void load_program (const char *text, GLsizei size, GLuint progid)
 {
+    GLint pos;
+
     glBindProgramARB (GL_VERTEX_PROGRAM_ARB, progid);
 
     glProgramStringARB (GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB,
                         size, (const GLubyte *) text);
-    if (glGetError () != GL_NO_ERROR) {
-        GLint pos;
+    glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &pos);
+    if (pos != -1) {
         char buf[1024];
 
-        glGetIntegerv (GL_PROGRAM_ERROR_POSITION_ARB, &pos);
         snprintf (buf, 1024, "glProgramStringARB: error %s at %d",
                   (char *) glGetString (GL_PROGRAM_ERROR_STRING_ARB), pos);
         caml_failwith (buf);
-- 
2.11.4.GIT