From 37a365c236b27ffbc66eaeba1306ac915d83bbc9 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 2 Oct 2016 12:56:43 +0000 Subject: [PATCH] * update AllOk parameter of Load_GL_version_1_2x() when loading an extension fails (mantis #30663, patch by Paul Michell) git-svn-id: trunk@34595 - --- packages/opengl/src/glext.pp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/packages/opengl/src/glext.pp b/packages/opengl/src/glext.pp index c0f7280beb..de2d091d8f 100644 --- a/packages/opengl/src/glext.pp +++ b/packages/opengl/src/glext.pp @@ -5201,17 +5201,17 @@ end; procedure Load_GL_version_1_2x(var allOK: Boolean); begin glBlendColor := wglGetProcAddress('glBlendColor'); - if not Assigned(glBlendColor) then Exit; + if not Assigned(glBlendColor) then allOK := False; glBlendEquation := wglGetProcAddress('glBlendEquation'); - if not Assigned(glBlendEquation) then Exit; + if not Assigned(glBlendEquation) then allOK := False; glDrawRangeElements := wglGetProcAddress('glDrawRangeElements'); - if not Assigned(glDrawRangeElements) then Exit; + if not Assigned(glDrawRangeElements) then allOK := False; glTexImage3D := wglGetProcAddress('glTexImage3D'); - if not Assigned(glTexImage3D) then Exit; + if not Assigned(glTexImage3D) then allOK := False; glTexSubImage3D := wglGetProcAddress('glTexSubImage3D'); - if not Assigned(glTexSubImage3D) then Exit; + if not Assigned(glTexSubImage3D) then allOK := False; glCopyTexSubImage3D := wglGetProcAddress('glCopyTexSubImage3D'); - if not Assigned(glCopyTexSubImage3D) then Exit; + if not Assigned(glCopyTexSubImage3D) then allOK := False; end; function Load_GL_version_1_2: boolean;