paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 01:48:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* commited patch from Mantis #19956 by Michalis that deals with previous extensions

Browse Source 
of opengl becoming part of core in never versions.

git-svn-id: trunk@18941 -
This commit is contained in:
marco 2011-09-02 09:43:53 +00:00
parent 97e4608614
commit 0bad1997d1
1 changed files with 78 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

150
packages/opengl/src/glext.pp
View File

@ -4011,7 +4011,13 @@ var
glRenderbufferStorageMultisample: procedure(target: GLenum; samples: GLsizei; internalformat: GLenum; width: GLsizei; height: GLsizei); extdecl;
glFramebufferTextureLayer: procedure(target: GLenum; attachment: GLenum; texture: GLuint; level: GLint; layer: GLint); extdecl;
function Load_GL_ARB_framebuffer_object(): Boolean;
{ Using LoadAsCore = true means that we will *not* check
if the extension is advertised in glGetString(GL_EXTENSIONS) string.
This allows to successfully Load_GL_version_3_0 in an OpenGL 3.0
forward-compatible context, where the "core extensions" do not have
to be mentioned inside glGetString(GL_EXTENSIONS). }
function Load_GL_ARB_framebuffer_object(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_framebuffer_object DEPRECATED *****//
const
@ -4032,7 +4038,7 @@ var
glMapBufferRange: function(target: GLenum; offset: GLintptr; length: GLsizeiptr; access: GLbitfield): PGLvoid; extdecl;
glFlushMappedBufferRange: procedure(target: GLenum; offset: GLintptr; length: GLsizeiptr); extdecl;
function Load_GL_ARB_map_buffer_range(): Boolean;
function Load_GL_ARB_map_buffer_range(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_vertex_array_object *****//
const
@ -4043,7 +4049,7 @@ var
glGenVertexArrays: procedure(n: GLsizei; arrays: PGLuint); extdecl;
glIsVertexArray: function(_array: GLuint): GLboolean; extdecl;
function Load_GL_ARB_vertex_array_object(): Boolean;
function Load_GL_ARB_vertex_array_object(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_copy_buffer *****//
const
@ -4052,7 +4058,7 @@ const
var
glCopyBufferSubData: procedure(readTarget: GLenum; writeTarget: GLenum; readOffset: GLintptr; writeOffset: GLintptr; size: GLsizeiptr); extdecl;
function Load_GL_ARB_copy_buffer(): Boolean;
function Load_GL_ARB_copy_buffer(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_uniform_buffer_object *****//
const
@ -4098,7 +4104,7 @@ var
glGetActiveUniformBlockName: procedure(_program: GLuint; uniformBlockIndex: GLuint; bufSize: GLsizei; length: PGLsizei; uniformBlockName: PGLchar); extdecl;
glUniformBlockBinding: procedure(_program: GLuint; uniformBlockIndex: GLuint; uniformBlockBinding: GLuint); extdecl;
function Load_GL_ARB_uniform_buffer_object(): Boolean;
function Load_GL_ARB_uniform_buffer_object(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_draw_elements_base_vertex *****//
var
@ -4107,7 +4113,7 @@ var
glDrawElementsInstancedBaseVertex: procedure(mode: GLenum; count: GLsizei; _type: GLenum; const indices: PGLvoid; primcount: GLsizei; basevertex: GLint); extdecl;
glMultiDrawElementsBaseVertex: procedure(mode: GLenum; const count: PGLsizei; _type: GLenum; const indices: PPGLvoid; primcount: GLsizei; const basevertex: PGLint); extdecl;
function Load_GL_ARB_draw_elements_base_vertex(): Boolean;
function Load_GL_ARB_draw_elements_base_vertex(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_provoking_vertex *****//
const
@ -4118,7 +4124,7 @@ const
var
glProvokingVertex: procedure(mode: GLenum); extdecl;
function Load_GL_ARB_provoking_vertex(): Boolean;
function Load_GL_ARB_provoking_vertex(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_sync *****//
type
@ -4151,7 +4157,7 @@ var
glGetInteger64v: procedure(pname: GLenum; params: PGLint64); extdecl;
glGetSynciv: procedure(sync: GLsync; pname: GLenum; bufSize: GLsizei; length: PGLsizei; values: PGLint); extdecl;
function Load_GL_ARB_sync(): Boolean;
function Load_GL_ARB_sync(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_texture_multisample *****//
const
@ -4182,7 +4188,7 @@ var
glGetMultisamplefv: procedure(pname: GLenum; index: GLuint; val: PGLfloat); extdecl;
glSampleMaski: procedure(index: GLuint; mask: GLbitfield); extdecl;
function Load_GL_ARB_texture_multisample(): Boolean;
function Load_GL_ARB_texture_multisample(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_blend_func_extended *****//
const
@ -4196,7 +4202,7 @@ var
glBindFragDataLocationIndexed: procedure(_program: GLuint; colorNumber: GLuint; index: GLuint; const name: PGLchar); extdecl;
glGetFragDataIndex: function(_program: GLuint; const name: PGLchar): GLint; extdecl;
function Load_GL_ARB_blend_func_extended(): Boolean;
function Load_GL_ARB_blend_func_extended(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_sampler_objects *****//
const
@ -4217,7 +4223,7 @@ var
glGetSamplerParameterfv: procedure(sampler: GLuint; pname: GLenum; params: PGLfloat); extdecl;
glGetSamplerParameterIuiv: procedure(sampler: GLuint; pname: GLenum; params: PGLuint); extdecl;
function Load_GL_ARB_sampler_objects(): Boolean;
function Load_GL_ARB_sampler_objects(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_timer_query *****//
const
@ -4228,7 +4234,7 @@ var
glGetQueryObjecti64v: procedure(id: GLuint; pname: GLenum; params: PGLint64); extdecl;
glGetQueryObjectui64v: procedure(id: GLuint; pname: GLenum; params: PGLuint64); extdecl;
function Load_GL_ARB_timer_query(): Boolean;
function Load_GL_ARB_timer_query(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_vertex_type_2_10_10_10_rev *****//
@ -4274,7 +4280,7 @@ var
glVertexAttribP4ui: procedure(index: GLuint; _type: GLenum; normalized: GLboolean; value: GLuint); extdecl;
glVertexAttribP4uiv: procedure(index: GLuint; _type: GLenum; normalized: GLboolean; const value: PGLuint); extdecl;
function Load_GL_ARB_vertex_type_2_10_10_10_rev(): Boolean;
function Load_GL_ARB_vertex_type_2_10_10_10_rev(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_gpu_shader_fp64 *****//
// reuse GL_DOUBLE
@ -4338,7 +4344,7 @@ var
glProgramUniformMatrix4x2dvEXT: procedure(_program: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLdouble); extdecl;
glProgramUniformMatrix4x3dvEXT: procedure(_program: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLdouble); extdecl;
function Load_GL_ARB_gpu_shader_fp64(): Boolean;
function Load_GL_ARB_gpu_shader_fp64(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_shader_subroutine *****//
const
@ -4362,7 +4368,7 @@ var
glGetUniformSubroutineuiv: procedure(shadertype: GLenum; location: GLint; params: PGLuint); extdecl;
glGetProgramStageiv: procedure(_program: GLuint; shadertype: GLenum; pname: GLenum; values: PGLint); extdecl;
function Load_GL_ARB_shader_subroutine(): Boolean;
function Load_GL_ARB_shader_subroutine(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_tessellation_shader *****//
const
@ -4410,7 +4416,7 @@ var
glPatchParameteri: procedure(pname: GLenum; value: GLint); extdecl;
glPatchParameterfv: procedure(pname: GLenum; const values: PGLfloat); extdecl;
function Load_GL_ARB_tessellation_shader(): Boolean;
function Load_GL_ARB_tessellation_shader(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_transform_feedback2 *****//
const
@ -4427,7 +4433,7 @@ var
glResumeTransformFeedback: procedure(); extdecl;
glDrawTransformFeedback: procedure(mode: GLenum; id: GLuint); extdecl;
function Load_GL_ARB_transform_feedback2(): Boolean;
function Load_GL_ARB_transform_feedback2(LoadAsCore: boolean = false): Boolean;
//**** GL_ARB_transform_feedback3 *****//
const
@ -4438,7 +4444,7 @@ var
glEndQueryIndexed: procedure(target: GLenum; index: GLuint); extdecl;
glGetQueryIndexediv: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLint); extdecl;
function Load_GL_ARB_transform_feedback3(): Boolean;
function Load_GL_ARB_transform_feedback3(LoadAsCore: boolean = false): Boolean;
//***** GL_version_1_4 *****//
@ -9844,14 +9850,14 @@ begin
end;
function Load_GL_ARB_framebuffer_object(): Boolean;
function Load_GL_ARB_framebuffer_object(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_framebuffer_object', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_framebuffer_object', extstring) then
begin
glIsRenderbuffer := wglGetProcAddress('glIsRenderbuffer');
if not Assigned(glIsRenderbuffer) then Exit;
@ -9897,14 +9903,14 @@ begin
end;
end;
function Load_GL_ARB_map_buffer_range(): Boolean;
function Load_GL_ARB_map_buffer_range(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_map_buffer_range', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_map_buffer_range', extstring) then
begin
glMapBufferRange := wglGetProcAddress('glMapBufferRange');
if not Assigned(glMapBufferRange) then Exit;
@ -9914,14 +9920,14 @@ begin
end;
end;
function Load_GL_ARB_vertex_array_object(): Boolean;
function Load_GL_ARB_vertex_array_object(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_vertex_array_object', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_vertex_array_object', extstring) then
begin
glBindVertexArray := wglGetProcAddress('glBindVertexArray');
if not Assigned(glBindVertexArray) then Exit;
@ -9935,14 +9941,14 @@ begin
end;
end;
function Load_GL_ARB_copy_buffer(): Boolean;
function Load_GL_ARB_copy_buffer(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_copy_buffer', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_copy_buffer', extstring) then
begin
glCopyBufferSubData := wglGetProcAddress('glCopyBufferSubData');
if not Assigned(glCopyBufferSubData) then Exit;
@ -9950,14 +9956,14 @@ begin
end;
end;
function Load_GL_ARB_uniform_buffer_object(): Boolean;
function Load_GL_ARB_uniform_buffer_object(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_uniform_buffer_object', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_uniform_buffer_object', extstring) then
begin
glGetUniformIndices := wglGetProcAddress('glGetUniformIndices');
if not Assigned(glGetUniformIndices) then Exit;
@ -9984,14 +9990,14 @@ begin
end;
end;
function Load_GL_ARB_draw_elements_base_vertex(): Boolean;
function Load_GL_ARB_draw_elements_base_vertex(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_draw_elements_base_vertex', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_draw_elements_base_vertex', extstring) then
begin
glDrawElementsBaseVertex := wglGetProcAddress('glDrawElementsBaseVertex');
if not Assigned(glDrawElementsBaseVertex) then Exit;
@ -10005,14 +10011,14 @@ begin
end;
end;
function Load_GL_ARB_provoking_vertex(): Boolean;
function Load_GL_ARB_provoking_vertex(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_provoking_vertex', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_provoking_vertex', extstring) then
begin
glProvokingVertex := wglGetProcAddress('glProvokingVertex');
if not Assigned(glProvokingVertex) then Exit;
@ -10020,14 +10026,14 @@ begin
end;
end;
function Load_GL_ARB_sync(): Boolean;
function Load_GL_ARB_sync(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_sync', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_sync', extstring) then
begin
glFenceSync := wglGetProcAddress('glFenceSync');
if not Assigned(glFenceSync) then Exit;
@ -10047,14 +10053,14 @@ begin
end;
end;
function Load_GL_ARB_texture_multisample(): Boolean;
function Load_GL_ARB_texture_multisample(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_texture_multisample', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_texture_multisample', extstring) then
begin
glTexImage2DMultisample := wglGetProcAddress('glTexImage2DMultisample');
if not Assigned(glTexImage2DMultisample) then Exit;
@ -10068,14 +10074,14 @@ begin
end;
end;
function Load_GL_ARB_sampler_objects(): Boolean;
function Load_GL_ARB_sampler_objects(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_sampler_objects', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_sampler_objects', extstring) then
begin
glGenSamplers := wglGetProcAddress('glGenSamplers');
if not Assigned(glGenSamplers) then Exit;
@ -10109,14 +10115,14 @@ begin
end;
end;
function Load_GL_ARB_blend_func_extended(): Boolean;
function Load_GL_ARB_blend_func_extended(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_blend_func_extended', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_blend_func_extended', extstring) then
begin
glBindFragDataLocationIndexed := wglGetProcAddress('glBindFragDataLocationIndexed');
if not Assigned(glBindFragDataLocationIndexed) then Exit;
@ -10126,14 +10132,14 @@ begin
end;
end;
function Load_GL_ARB_timer_query(): Boolean;
function Load_GL_ARB_timer_query(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_timer_query', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_timer_query', extstring) then
begin
glQueryCounter := wglGetProcAddress('glQueryCounter');
if not Assigned(glQueryCounter) then Exit;
@ -10145,14 +10151,14 @@ begin
end;
end;
function Load_GL_ARB_vertex_type_2_10_10_10_rev(): Boolean;
function Load_GL_ARB_vertex_type_2_10_10_10_rev(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_vertex_type_2_10_10_10_rev', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_vertex_type_2_10_10_10_rev', extstring) then
begin
glVertexP2ui := wglGetProcAddress('glVertexP2ui');
if not Assigned(glVertexP2ui) then Exit;
@ -10234,14 +10240,14 @@ begin
end;
end;
function Load_GL_ARB_gpu_shader_fp64(): Boolean;
function Load_GL_ARB_gpu_shader_fp64(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_gpu_shader_fp64', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_gpu_shader_fp64', extstring) then
begin
glUniform1d := wglGetProcAddress('glUniform1d');
if not Assigned(glUniform1d) then Exit;
@ -10324,14 +10330,14 @@ begin
end;
end;
function Load_GL_ARB_shader_subroutine(): Boolean;
function Load_GL_ARB_shader_subroutine(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_shader_subroutine', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_shader_subroutine', extstring) then
begin
glGetSubroutineUniformLocation := wglGetProcAddress('glGetSubroutineUniformLocation');
if not Assigned(glGetSubroutineUniformLocation) then Exit;
@ -10353,14 +10359,14 @@ begin
end;
end;
function Load_GL_ARB_tessellation_shader(): Boolean;
function Load_GL_ARB_tessellation_shader(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_tessellation_shader', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_tessellation_shader', extstring) then
begin
glPatchParameteri := wglGetProcAddress('glPatchParameteri');
if not Assigned(glPatchParameteri) then Exit;
@ -10370,14 +10376,14 @@ begin
end;
end;
function Load_GL_ARB_transform_feedback2(): Boolean;
function Load_GL_ARB_transform_feedback2(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_transform_feedback2', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_transform_feedback2', extstring) then
begin
glBindTransformFeedback := wglGetProcAddress('glBindTransformFeedback');
if not Assigned(glBindTransformFeedback) then Exit;
@ -10397,14 +10403,14 @@ begin
end;
end;
function Load_GL_ARB_transform_feedback3(): Boolean;
function Load_GL_ARB_transform_feedback3(LoadAsCore: boolean): Boolean;
var
extstring: String;
begin
Result := False;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
if glext_ExtensionSupported('GL_ARB_transform_feedback3', extstring) then
if LoadAsCore or glext_ExtensionSupported('GL_ARB_transform_feedback3', extstring) then
begin
glDrawTransformFeedbackStream := wglGetProcAddress('glDrawTransformFeedbackStream');
if not Assigned(glDrawTransformFeedbackStream) then Exit;
@ -11113,9 +11119,9 @@ begin
if not Assigned(glClearBufferfi) then Exit;
glGetStringi := wglGetProcAddress('glGetStringi');
if not Assigned(glGetStringi) then Exit;
if not Load_GL_ARB_framebuffer_object() then Exit;
if not Load_GL_ARB_map_buffer_range() then Exit;
if not Load_GL_ARB_vertex_array_object() then Exit;
if not Load_GL_ARB_framebuffer_object(true) then Exit;
if not Load_GL_ARB_map_buffer_range(true) then Exit;
if not Load_GL_ARB_vertex_array_object(true) then Exit;
Result := Load_GL_VERSION_2_1();
end;
@ -11130,8 +11136,8 @@ begin
if not Assigned(glTexBuffer) then Exit;
glPrimitiveRestartIndex := wglGetProcAddress('glPrimitiveRestartIndex');
if not Assigned(glPrimitiveRestartIndex) then Exit;
if not Load_GL_ARB_copy_buffer() then Exit;
if not Load_GL_ARB_uniform_buffer_object() then Exit;
if not Load_GL_ARB_copy_buffer(true) then Exit;
if not Load_GL_ARB_uniform_buffer_object(true) then Exit;
Result := Load_GL_VERSION_3_0();
end;
@ -11146,31 +11152,31 @@ begin
if not Assigned(glProgramParameteri) then Exit;
glFramebufferTexture := wglGetProcAddress('glFramebufferTexture');
if not Assigned(glFramebufferTexture) then Exit;
if not Load_GL_ARB_draw_elements_base_vertex() then Exit;
if not Load_GL_ARB_provoking_vertex() then Exit;
if not Load_GL_ARB_sync() then Exit;
if not Load_GL_ARB_texture_multisample() then Exit;
if not Load_GL_ARB_draw_elements_base_vertex(true) then Exit;
if not Load_GL_ARB_provoking_vertex(true) then Exit;
if not Load_GL_ARB_sync(true) then Exit;
if not Load_GL_ARB_texture_multisample(true) then Exit;
Result := Load_GL_VERSION_3_1();
end;
function Load_GL_VERSION_3_3(): Boolean;
begin
Result := False;
if not Load_GL_ARB_blend_func_extended() then Exit;
if not Load_GL_ARB_sampler_objects() then Exit;
if not Load_GL_ARB_timer_query() then Exit;
if not Load_GL_ARB_vertex_type_2_10_10_10_rev() then Exit;
if not Load_GL_ARB_blend_func_extended(true) then Exit;
if not Load_GL_ARB_sampler_objects(true) then Exit;
if not Load_GL_ARB_timer_query(true) then Exit;
if not Load_GL_ARB_vertex_type_2_10_10_10_rev(true) then Exit;
Result := Load_GL_VERSION_3_2();
end;
function Load_GL_VERSION_4_0(): Boolean;
begin
Result := False;
if not Load_GL_ARB_gpu_shader_fp64() then Exit;
if not Load_GL_ARB_shader_subroutine() then Exit;
if not Load_GL_ARB_tessellation_shader() then Exit;
if not Load_GL_ARB_transform_feedback2() then Exit;
if not Load_GL_ARB_transform_feedback3() then Exit;
if not Load_GL_ARB_gpu_shader_fp64(true) then Exit;
if not Load_GL_ARB_shader_subroutine(true) then Exit;
if not Load_GL_ARB_tessellation_shader(true) then Exit;
if not Load_GL_ARB_transform_feedback2(true) then Exit;
if not Load_GL_ARB_transform_feedback3(true) then Exit;
Result := Load_GL_VERSION_3_3();
end;