* GL_ARB_Vertex_buffer_object returned true when it should be false in some cases, mantis 12128

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11754 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/packages/opengl/src/glext.pp b/packages/opengl/src/glext.pp
index 11bf4d82b2..4917bc1c80 100644
--- a/packages/opengl/src/glext.pp
+++ b/packages/opengl/src/glext.pp
@@ -7588,7 +7588,7 @@ function load_GL_ARB_vertex_buffer_object : boolean;
 var extstring:string;
 
 begin
-  load_GL_ARB_vertex_buffer_object:=false;
+  Result:=false;
   extstring := String(PChar(glGetString(GL_EXTENSIONS)));
   if glext_ExtensionSupported('GL_ARB_vertex_buffer_object',extstring) then
     begin
@@ -7612,8 +7612,8 @@ begin
       if not Assigned(glGetBufferParameterivARB) then Exit;
       glGetBufferPointervARB := wglGetProcAddress('glGetBufferPointervARB');
       if not Assigned(glGetBufferPointervARB) then Exit;
+      Result:=true;
     end;
-  load_GL_ARB_vertex_buffer_object:=true;
 end;
 
 {$IFDEF Windows}