def call_function(self, function):
if function.name == "glViewport":
print ' bool reshape_window = false;'
print ' if (x + width > glretrace::window_width) {'
print ' glretrace::window_width = x + width;'
print ' reshape_window = true;'
print ' }'
print ' if (y + height > glretrace::window_height) {'
print ' glretrace::window_height = y + height;'
print ' reshape_window = true;'
print ' }'
print ' if (reshape_window) {'
print ' // XXX: does not always work'
print ' glretrace::drawable->resize(glretrace::window_width, glretrace::window_height);'
print ' reshape_window = false;'
print ' }'
if function.name == "glEnd":
print ' glretrace::insideGlBeginEnd = false;'
Retracer.call_function(self, function)
if function.name == "glBegin":
print ' glretrace::insideGlBeginEnd = true;'
else:
# glGetError is not allowed inside glBegin/glEnd
print ' glretrace::checkGlError(call.no);'
def call_function(self, function):
if function.name == "glViewport":
print ' bool reshape_window = false;'
print ' if (x + width > glretrace::window_width) {'
print ' glretrace::window_width = x + width;'
print ' reshape_window = true;'
print ' }'
print ' if (y + height > glretrace::window_height) {'
print ' glretrace::window_height = y + height;'
print ' reshape_window = true;'
print ' }'
print ' if (reshape_window) {'
print ' // XXX: does not always work'
print ' glretrace::drawable->resize(glretrace::window_width, glretrace::window_height);'
print ' reshape_window = false;'
print ' }'
if function.name == "glEnd":
print ' glretrace::insideGlBeginEnd = false;'
Retracer.call_function(self, function)
if function.name == "glBegin":
print ' glretrace::insideGlBeginEnd = true;'
else:
# glGetError is not allowed inside glBegin/glEnd
print ' glretrace::checkGlError();'
def call_function(self, function):
if function.name == "glViewport":
print ' bool reshape_window = false;'
print ' if (x + width > glretrace::window_width) {'
print ' glretrace::window_width = x + width;'
print ' reshape_window = true;'
print ' }'
print ' if (y + height > glretrace::window_height) {'
print ' glretrace::window_height = y + height;'
print ' reshape_window = true;'
print ' }'
print ' if (reshape_window) {'
print ' // XXX: does not always work'
print ' glretrace::drawable->resize(glretrace::window_width, glretrace::window_height);'
print ' reshape_window = false;'
print ' }'
if function.name == "glEnd":
print ' glretrace::insideGlBeginEnd = false;'
Retracer.call_function(self, function)
if function.name == "glBegin":
print ' glretrace::insideGlBeginEnd = true;'
elif function.name.startswith('gl'):
# glGetError is not allowed inside glBegin/glEnd
print ' glretrace::checkGlError(call.no);'
if function.name == 'glFlush':
print ' if (!glretrace::double_buffer) {'
print ' glretrace::frame_complete(call.no);'
print ' }'
def call_function(self, function):
if function.name == "glViewport":
print " if (glretrace::drawable) {"
print " int drawable_width = x + width;"
print " int drawable_height = y + height;"
print " if (drawable_width > (int)glretrace::drawable->width ||"
print " drawable_height > (int)glretrace::drawable->height) {"
print " glretrace::drawable->resize(drawable_width, drawable_height);"
print " if (!glretrace::drawable->visible) {"
print " glretrace::drawable->show();"
print " }"
print " glScissor(0, 0, drawable_width, drawable_height);"
print " }"
print " }"
if function.name == "glEnd":
print " glretrace::insideGlBeginEnd = false;"
if function.name == "memcpy":
print " if (!dest || !src || !n) return;"
Retracer.call_function(self, function)
# Error checking
if function.name == "glBegin":
print " glretrace::insideGlBeginEnd = true;"
elif function.name.startswith("gl"):
# glGetError is not allowed inside glBegin/glEnd
print " if (!glretrace::benchmark && !glretrace::insideGlBeginEnd) {"
print " glretrace::checkGlError(call);"
if function.name in ("glProgramStringARB", "glProgramStringNV"):
print r" GLint error_position = -1;"
print r" glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &error_position);"
print r" if (error_position != -1) {"
print r" const char *error_string = (const char *)glGetString(GL_PROGRAM_ERROR_STRING_ARB);"
print r' std::cerr << call.no << ": warning: " << error_string << "\n";'
print r" }"
if function.name == "glCompileShader":
print r" GLint compile_status = 0;"
print r" glGetShaderiv(shader, GL_COMPILE_STATUS, &compile_status);"
print r" if (!compile_status) {"
print r" GLint info_log_length = 0;"
print r" glGetShaderiv(shader, GL_INFO_LOG_LENGTH, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetShaderInfoLog(shader, info_log_length, NULL, infoLog);"
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name == "glLinkProgram":
print r" GLint link_status = 0;"
print r" glGetProgramiv(program, GL_LINK_STATUS, &link_status);"
print r" if (!link_status) {"
print r" GLint info_log_length = 0;"
print r" glGetProgramiv(program, GL_INFO_LOG_LENGTH, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetProgramInfoLog(program, info_log_length, NULL, infoLog);"
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name == "glCompileShaderARB":
print r" GLint compile_status = 0;"
print r" glGetObjectParameterivARB(shaderObj, GL_OBJECT_COMPILE_STATUS_ARB, &compile_status);"
print r" if (!compile_status) {"
print r" GLint info_log_length = 0;"
print r" glGetObjectParameterivARB(shaderObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetInfoLogARB(shaderObj, info_log_length, NULL, infoLog);"
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name == "glLinkProgramARB":
print r" GLint link_status = 0;"
print r" glGetObjectParameterivARB(programObj, GL_OBJECT_LINK_STATUS_ARB, &link_status);"
print r" if (!link_status) {"
print r" GLint info_log_length = 0;"
print r" glGetObjectParameterivARB(programObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetInfoLogARB(programObj, info_log_length, NULL, infoLog);"
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name in (
"glMapBuffer",
"glMapBufferARB",
"glMapBufferRange",
"glMapNamedBufferEXT",
"glMapNamedBufferRangeEXT",
):
print r" if (!__result) {"
print r' std::cerr << call.no << ": warning: failed to map buffer\n";'
print r" }"
if function.name in ("glGetAttribLocation", "glGetAttribLocationARB"):
print r" GLint __orig_result = call.ret->toSInt();"
print r" if (__result != __orig_result) {"
print r' std::cerr << call.no << ": warning vertex attrib location mismatch " << __orig_result << " -> " << __result << "\n";'
print r" }"
if function.name in (
"glCheckFramebufferStatus",
"glCheckFramebufferStatusEXT",
"glCheckNamedFramebufferStatusEXT",
):
print r" GLint __orig_result = call.ret->toSInt();"
print r" if (__orig_result == GL_FRAMEBUFFER_COMPLETE &&"
print r" __result != GL_FRAMEBUFFER_COMPLETE) {"
print r' std::cerr << call.no << ": incomplete framebuffer (" << __result << ")\n";'
print r" }"
print " }"
def call_function(self, function):
if function.name == "glViewport":
print ' if (glretrace::drawable) {'
print ' int drawable_width = x + width;'
print ' int drawable_height = y + height;'
print ' if (drawable_width > (int)glretrace::drawable->width ||'
print ' drawable_height > (int)glretrace::drawable->height) {'
print ' glretrace::drawable->resize(drawable_width, drawable_height);'
print ' if (!glretrace::drawable->visible) {'
print ' glretrace::drawable->show();'
print ' }'
print ' glScissor(0, 0, drawable_width, drawable_height);'
print ' }'
print ' }'
if function.name == "glEnd":
print ' glretrace::insideGlBeginEnd = false;'
if function.name == 'memcpy':
print ' if (!dest || !src || !n) return;'
Retracer.call_function(self, function)
# Error checking
if function.name == "glBegin":
print ' glretrace::insideGlBeginEnd = true;'
elif function.name.startswith('gl'):
# glGetError is not allowed inside glBegin/glEnd
print ' if (!glretrace::benchmark && !glretrace::insideGlBeginEnd) {'
print ' glretrace::checkGlError(call);'
if function.name in ('glProgramStringARB', 'glProgramStringNV'):
print r' GLint error_position = -1;'
print r' glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &error_position);'
print r' if (error_position != -1) {'
print r' const char *error_string = (const char *)glGetString(GL_PROGRAM_ERROR_STRING_ARB);'
print r' std::cerr << call.no << ": warning: " << error_string << "\n";'
print r' }'
if function.name == 'glCompileShader':
print r' GLint compile_status = 0;'
print r' glGetShaderiv(shader, GL_COMPILE_STATUS, &compile_status);'
print r' if (!compile_status) {'
print r' GLint info_log_length = 0;'
print r' glGetShaderiv(shader, GL_INFO_LOG_LENGTH, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetShaderInfoLog(shader, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glLinkProgram':
print r' GLint link_status = 0;'
print r' glGetProgramiv(program, GL_LINK_STATUS, &link_status);'
print r' if (!link_status) {'
print r' GLint info_log_length = 0;'
print r' glGetProgramiv(program, GL_INFO_LOG_LENGTH, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetProgramInfoLog(program, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glCompileShaderARB':
print r' GLint compile_status = 0;'
print r' glGetObjectParameterivARB(shaderObj, GL_OBJECT_COMPILE_STATUS_ARB, &compile_status);'
print r' if (!compile_status) {'
print r' GLint info_log_length = 0;'
print r' glGetObjectParameterivARB(shaderObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetInfoLogARB(shaderObj, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glLinkProgramARB':
print r' GLint link_status = 0;'
print r' glGetObjectParameterivARB(programObj, GL_OBJECT_LINK_STATUS_ARB, &link_status);'
print r' if (!link_status) {'
print r' GLint info_log_length = 0;'
print r' glGetObjectParameterivARB(programObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetInfoLogARB(programObj, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name in ('glMapBuffer', 'glMapBufferARB', 'glMapBufferRange', 'glMapNamedBufferEXT', 'glMapNamedBufferRangeEXT'):
print r' if (!__result) {'
print r' std::cerr << call.no << ": warning: failed to map buffer\n";'
print r' }'
if function.name in ('glGetAttribLocation', 'glGetAttribLocationARB'):
print r' GLint __orig_result = call.ret->toSInt();'
print r' if (__result != __orig_result) {'
print r' std::cerr << call.no << ": warning vertex attrib location mismatch " << __orig_result << " -> " << __result << "\n";'
print r' }'
print ' }'
def call_function(self, function):
# Infer the drawable size from GL calls
if function.name == "glViewport":
print " glretrace::updateDrawable(x + width, y + height);"
if function.name in ("glBlitFramebuffer", "glBlitFramebufferEXT"):
# Some applications do all their rendering in a framebuffer, and
# then just blit to the drawable without ever calling glViewport.
print " glretrace::updateDrawable(std::max(dstX0, dstX1), std::max(dstY0, dstY1));"
if function.name == "glEnd":
print " glretrace::insideGlBeginEnd = false;"
if function.name == "memcpy":
print " if (!dest || !src || !n) return;"
Retracer.call_function(self, function)
# Error checking
if function.name == "glBegin":
print " glretrace::insideGlBeginEnd = true;"
elif function.name.startswith("gl"):
# glGetError is not allowed inside glBegin/glEnd
print " if (!glretrace::benchmark && !glretrace::insideGlBeginEnd) {"
print " glretrace::checkGlError(call);"
if function.name in ("glProgramStringARB", "glProgramStringNV"):
print r" GLint error_position = -1;"
print r" glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &error_position);"
print r" if (error_position != -1) {"
print r" const char *error_string = (const char *)glGetString(GL_PROGRAM_ERROR_STRING_ARB);"
print r' retrace::warning(call) << error_string << "\n";'
print r" }"
if function.name == "glCompileShader":
print r" GLint compile_status = 0;"
print r" glGetShaderiv(shader, GL_COMPILE_STATUS, &compile_status);"
print r" if (!compile_status) {"
print r" GLint info_log_length = 0;"
print r" glGetShaderiv(shader, GL_INFO_LOG_LENGTH, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetShaderInfoLog(shader, info_log_length, NULL, infoLog);"
print r' retrace::warning(call) << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name == "glLinkProgram":
print r" GLint link_status = 0;"
print r" glGetProgramiv(program, GL_LINK_STATUS, &link_status);"
print r" if (!link_status) {"
print r" GLint info_log_length = 0;"
print r" glGetProgramiv(program, GL_INFO_LOG_LENGTH, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetProgramInfoLog(program, info_log_length, NULL, infoLog);"
print r' retrace::warning(call) << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name == "glCompileShaderARB":
print r" GLint compile_status = 0;"
print r" glGetObjectParameterivARB(shaderObj, GL_OBJECT_COMPILE_STATUS_ARB, &compile_status);"
print r" if (!compile_status) {"
print r" GLint info_log_length = 0;"
print r" glGetObjectParameterivARB(shaderObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetInfoLogARB(shaderObj, info_log_length, NULL, infoLog);"
print r' retrace::warning(call) << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name == "glLinkProgramARB":
print r" GLint link_status = 0;"
print r" glGetObjectParameterivARB(programObj, GL_OBJECT_LINK_STATUS_ARB, &link_status);"
print r" if (!link_status) {"
print r" GLint info_log_length = 0;"
print r" glGetObjectParameterivARB(programObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);"
print r" GLchar *infoLog = new GLchar[info_log_length];"
print r" glGetInfoLogARB(programObj, info_log_length, NULL, infoLog);"
print r' retrace::warning(call) << infoLog << "\n";'
print r" delete [] infoLog;"
print r" }"
if function.name in self.map_function_names:
print r" if (!__result) {"
print r' retrace::warning(call) << "failed to map buffer\n";'
print r" }"
if function.name in ("glGetAttribLocation", "glGetAttribLocationARB"):
print r" GLint __orig_result = call.ret->toSInt();"
print r" if (__result != __orig_result) {"
print r' retrace::warning(call) << "vertex attrib location mismatch " << __orig_result << " -> " << __result << "\n";'
print r" }"
if function.name in (
"glCheckFramebufferStatus",
"glCheckFramebufferStatusEXT",
"glCheckNamedFramebufferStatusEXT",
):
print r" GLint __orig_result = call.ret->toSInt();"
print r" if (__orig_result == GL_FRAMEBUFFER_COMPLETE &&"
print r" __result != GL_FRAMEBUFFER_COMPLETE) {"
print r' retrace::warning(call) << "incomplete framebuffer (" << glstate::enumToString(__result) << ")\n";'
print r" }"
print " }"
# Update buffer mappings
if function.name in self.map_function_names:
print r" if (__result) {"
print r" unsigned long long __address = call.ret->toUIntPtr();"
if "BufferRange" not in function.name:
print r" GLint length = 0;"
if function.name == "glMapBuffer":
print r" glGetBufferParameteriv(target, GL_BUFFER_SIZE, &length);"
elif function.name == "glMapBufferARB":
print r" glGetBufferParameterivARB(target, GL_BUFFER_SIZE_ARB, &length);"
elif function.name == "glMapNamedBufferEXT":
print r" glGetNamedBufferParameterivEXT(buffer, GL_BUFFER_SIZE, &length);"
else:
assert False
print r" retrace::addRegion(__address, __result, length);"
print r" }"
if function.name in self.unmap_function_names:
print r" GLvoid *ptr = NULL;"
if function.name == "glUnmapBuffer":
print r" glGetBufferPointerv(target, GL_BUFFER_MAP_POINTER, &ptr);"
elif function.name == "glUnmapBufferARB":
print r" glGetBufferPointervARB(target, GL_BUFFER_MAP_POINTER_ARB, &ptr);"
elif function.name == "glUnmapNamedBufferEXT":
print r" glGetNamedBufferPointervEXT(buffer, GL_BUFFER_MAP_POINTER, &ptr);"
else:
assert False
print r" if (ptr) {"
print r" retrace::delRegionByPointer(ptr);"
print r" }"
def call_function(self, function):
if function.name == "glViewport":
print ' if (glretrace::drawable) {'
print ' int drawable_width = x + width;'
print ' int drawable_height = y + height;'
print ' if (drawable_width > (int)glretrace::drawable->width ||'
print ' drawable_height > (int)glretrace::drawable->height) {'
print ' glretrace::drawable->resize(drawable_width, drawable_height);'
print ' if (!glretrace::drawable->visible) {'
print ' glretrace::drawable->show();'
print ' }'
print ' glScissor(0, 0, drawable_width, drawable_height);'
print ' }'
print ' }'
if function.name == "glEnd":
print ' glretrace::insideGlBeginEnd = false;'
if function.name == 'memcpy':
print ' if (!dest || !src || !n) return;'
Retracer.call_function(self, function)
# Error checking
if function.name == "glBegin":
print ' glretrace::insideGlBeginEnd = true;'
elif function.name.startswith('gl'):
# glGetError is not allowed inside glBegin/glEnd
print ' if (!glretrace::benchmark && !glretrace::insideGlBeginEnd) {'
print ' glretrace::checkGlError(call);'
if function.name in ('glProgramStringARB', 'glProgramStringNV'):
print r' GLint error_position = -1;'
print r' glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &error_position);'
print r' if (error_position != -1) {'
print r' const char *error_string = (const char *)glGetString(GL_PROGRAM_ERROR_STRING_ARB);'
print r' std::cerr << call.no << ": warning: " << error_string << "\n";'
print r' }'
if function.name == 'glCompileShader':
print r' GLint compile_status = 0;'
print r' glGetShaderiv(shader, GL_COMPILE_STATUS, &compile_status);'
print r' if (!compile_status) {'
print r' GLint info_log_length = 0;'
print r' glGetShaderiv(shader, GL_INFO_LOG_LENGTH, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetShaderInfoLog(shader, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glLinkProgram':
print r' GLint link_status = 0;'
print r' glGetProgramiv(program, GL_LINK_STATUS, &link_status);'
print r' if (!link_status) {'
print r' GLint info_log_length = 0;'
print r' glGetProgramiv(program, GL_INFO_LOG_LENGTH, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetProgramInfoLog(program, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glCompileShaderARB':
print r' GLint compile_status = 0;'
print r' glGetObjectParameterivARB(shaderObj, GL_OBJECT_COMPILE_STATUS_ARB, &compile_status);'
print r' if (!compile_status) {'
print r' GLint info_log_length = 0;'
print r' glGetObjectParameterivARB(shaderObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetInfoLogARB(shaderObj, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glLinkProgramARB':
print r' GLint link_status = 0;'
print r' glGetObjectParameterivARB(programObj, GL_OBJECT_LINK_STATUS_ARB, &link_status);'
print r' if (!link_status) {'
print r' GLint info_log_length = 0;'
print r' glGetObjectParameterivARB(programObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetInfoLogARB(programObj, info_log_length, NULL, infoLog);'
print r' std::cerr << call.no << ": warning: " << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name in ('glMapBuffer', 'glMapBufferARB',
'glMapBufferRange', 'glMapNamedBufferEXT',
'glMapNamedBufferRangeEXT'):
print r' if (!__result) {'
print r' std::cerr << call.no << ": warning: failed to map buffer\n";'
print r' }'
if function.name in ('glGetAttribLocation',
'glGetAttribLocationARB'):
print r' GLint __orig_result = call.ret->toSInt();'
print r' if (__result != __orig_result) {'
print r' std::cerr << call.no << ": warning vertex attrib location mismatch " << __orig_result << " -> " << __result << "\n";'
print r' }'
print ' }'
def call_function(self, function):
# Infer the drawable size from GL calls
if function.name == "glViewport":
print ' glretrace::updateDrawable(x + width, y + height);'
if function.name in ('glBlitFramebuffer', 'glBlitFramebufferEXT'):
# Some applications do all their rendering in a framebuffer, and
# then just blit to the drawable without ever calling glViewport.
print ' glretrace::updateDrawable(std::max(dstX0, dstX1), std::max(dstY0, dstY1));'
if function.name == "glEnd":
print ' glretrace::insideGlBeginEnd = false;'
if function.name == 'memcpy':
print ' if (!dest || !src || !n) return;'
Retracer.call_function(self, function)
# Error checking
if function.name == "glBegin":
print ' glretrace::insideGlBeginEnd = true;'
elif function.name.startswith('gl'):
# glGetError is not allowed inside glBegin/glEnd
print ' if (!glretrace::benchmark && !glretrace::insideGlBeginEnd) {'
print ' glretrace::checkGlError(call);'
if function.name in ('glProgramStringARB', 'glProgramStringNV'):
print r' GLint error_position = -1;'
print r' glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &error_position);'
print r' if (error_position != -1) {'
print r' const char *error_string = (const char *)glGetString(GL_PROGRAM_ERROR_STRING_ARB);'
print r' retrace::warning(call) << error_string << "\n";'
print r' }'
if function.name == 'glCompileShader':
print r' GLint compile_status = 0;'
print r' glGetShaderiv(shader, GL_COMPILE_STATUS, &compile_status);'
print r' if (!compile_status) {'
print r' GLint info_log_length = 0;'
print r' glGetShaderiv(shader, GL_INFO_LOG_LENGTH, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetShaderInfoLog(shader, info_log_length, NULL, infoLog);'
print r' retrace::warning(call) << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glLinkProgram':
print r' GLint link_status = 0;'
print r' glGetProgramiv(program, GL_LINK_STATUS, &link_status);'
print r' if (!link_status) {'
print r' GLint info_log_length = 0;'
print r' glGetProgramiv(program, GL_INFO_LOG_LENGTH, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetProgramInfoLog(program, info_log_length, NULL, infoLog);'
print r' retrace::warning(call) << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glCompileShaderARB':
print r' GLint compile_status = 0;'
print r' glGetObjectParameterivARB(shaderObj, GL_OBJECT_COMPILE_STATUS_ARB, &compile_status);'
print r' if (!compile_status) {'
print r' GLint info_log_length = 0;'
print r' glGetObjectParameterivARB(shaderObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetInfoLogARB(shaderObj, info_log_length, NULL, infoLog);'
print r' retrace::warning(call) << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name == 'glLinkProgramARB':
print r' GLint link_status = 0;'
print r' glGetObjectParameterivARB(programObj, GL_OBJECT_LINK_STATUS_ARB, &link_status);'
print r' if (!link_status) {'
print r' GLint info_log_length = 0;'
print r' glGetObjectParameterivARB(programObj, GL_OBJECT_INFO_LOG_LENGTH_ARB, &info_log_length);'
print r' GLchar *infoLog = new GLchar[info_log_length];'
print r' glGetInfoLogARB(programObj, info_log_length, NULL, infoLog);'
print r' retrace::warning(call) << infoLog << "\n";'
print r' delete [] infoLog;'
print r' }'
if function.name in self.map_function_names:
print r' if (!__result) {'
print r' retrace::warning(call) << "failed to map buffer\n";'
print r' }'
if function.name in ('glGetAttribLocation', 'glGetAttribLocationARB'):
print r' GLint __orig_result = call.ret->toSInt();'
print r' if (__result != __orig_result) {'
print r' retrace::warning(call) << "vertex attrib location mismatch " << __orig_result << " -> " << __result << "\n";'
print r' }'
if function.name in ('glCheckFramebufferStatus', 'glCheckFramebufferStatusEXT', 'glCheckNamedFramebufferStatusEXT'):
print r' GLint __orig_result = call.ret->toSInt();'
print r' if (__orig_result == GL_FRAMEBUFFER_COMPLETE &&'
print r' __result != GL_FRAMEBUFFER_COMPLETE) {'
print r' retrace::warning(call) << "incomplete framebuffer (" << glstate::enumToString(__result) << ")\n";'
print r' }'
print ' }'
# Update buffer mappings
if function.name in self.map_function_names:
print r' if (__result) {'
print r' unsigned long long __address = call.ret->toUIntPtr();'
if 'BufferRange' not in function.name:
print r' GLint length = 0;'
if function.name == 'glMapBuffer':
print r' glGetBufferParameteriv(target, GL_BUFFER_SIZE, &length);'
elif function.name == 'glMapBufferARB':
print r' glGetBufferParameterivARB(target, GL_BUFFER_SIZE_ARB, &length);'
elif function.name == 'glMapNamedBufferEXT':
print r' glGetNamedBufferParameterivEXT(buffer, GL_BUFFER_SIZE, &length);'
else:
assert False
print r' retrace::addRegion(__address, __result, length);'
print r' }'
if function.name in self.unmap_function_names:
print r' GLvoid *ptr = NULL;'
if function.name == 'glUnmapBuffer':
print r' glGetBufferPointerv(target, GL_BUFFER_MAP_POINTER, &ptr);'
elif function.name == 'glUnmapBufferARB':
print r' glGetBufferPointervARB(target, GL_BUFFER_MAP_POINTER_ARB, &ptr);'
elif function.name == 'glUnmapNamedBufferEXT':
print r' glGetNamedBufferPointervEXT(buffer, GL_BUFFER_MAP_POINTER, &ptr);'
else:
assert False
print r' if (ptr) {'
print r' retrace::delRegionByPointer(ptr);'
print r' }'
