Pass INFO_LOG warnings in glCreateShaderProgramv/glCreateShaderProgramEXT.

diff --git a/retrace/glretrace.py b/retrace/glretrace.py
index b7659ff1dd6bcd37e6268a3fa7b22c2c43a55527..af5e7d124562b133ef03d04806a4008a18293d26 100644 (file)
--- a/retrace/glretrace.py
+++ b/retrace/glretrace.py
@@ -306,7 +306,9 @@ class GlRetracer(Retracer):
                 print r'             retrace::warning(call) << infoLog << "\n";'
                 print r'             delete [] infoLog;'
                 print r'        }'
-            if function.name == 'glLinkProgram':
+            if function.name in ('glLinkProgram', 'glCreateShaderProgramv', 'glCreateShaderProgramEXT'):
+                if function.name != 'glLinkProgram':
+                    print r'        GLuint program = _result;'
                 print r'        GLint link_status = 0;'
                 print r'        glGetProgramiv(program, GL_LINK_STATUS, &link_status);'
                 print r'        if (!link_status) {'