integrated PR with queries

Author: flyx

CHANGELOG

@@ -1,12 +1,14 @@
 v0.8.0
  * Fixed the binding of `glGetTransformFeedbackVarying`
  * Fixed error when creating an empty Depth_Component texture (#135)
+ * Added package:
+   - GL.Objects.Queries
  * Added missing functionality in:
    - GL.Rasterization (glPolygonOffset)
    - GL.Objects.Buffers (glDrawTransformFeedback, glDrawTransformFeedbackStream,
                          glGenTransformFeedbacks, glDeleteTransformFeedbacks,
                          glBindTransformFeedback, glMapBufferRange,
-                         glFlushMappedBufferRange)
+                         glFlushMappedBufferRange, glGetBufferSubData)
  * Removed SOIL since it doesn't compile on macOS Catalina and replaced it with
    GID. Added `opengl-images.gpr` to replace SOIL functionality.
 v0.7.0:

src/gl/generated/gl-api.ads

@@ -329,64 +329,82 @@ private package GL.API is
    pragma Convention (StdCall, T150);
    type T151 is access procedure (P1 : Low_Level.Enums.Framebuffer_Kind; P2 : Enums.Framebuffer_Param; P3 : out Low_Level.Bool);
    pragma Convention (StdCall, T151);
-   type T152 is access procedure (P1 : UInt; P2 : Enums.Shader_Param; P3 : out Int);
+   type T152 is access procedure (P1 : Size; P2 : out UInt);
    pragma Convention (StdCall, T152);
-   type T153 is access procedure (P1 : UInt; P2 : Enums.Shader_Param; P3 : out Objects.Shaders.Shader_Type);
+   type T153 is access procedure (P1 : Size; P2 : Low_Level.UInt_Array);
    pragma Convention (StdCall, T153);
-   type T154 is access function (P1 : Objects.Shaders.Shader_Type) return UInt;
+   type T154 is access function (P1 : UInt) return Boolean;
    pragma Convention (StdCall, T154);
-   type T155 is access procedure (P1 : UInt);
+   type T155 is access procedure (P1 : UInt; P2 : Low_Level.Enums.Query_Results; P3 : out UInt);
    pragma Convention (StdCall, T155);
-   type T156 is access procedure (P1 : UInt; P2 : Size; P3 : Low_Level.Char_Access_Array; P4 : Low_Level.Int_Array);
+   type T156 is access procedure (P1 : Low_Level.Enums.Query_Param; P2 : UInt);
    pragma Convention (StdCall, T156);
-   type T157 is access procedure (P1 : UInt; P2 : Size; P3 : out Size; P4 : in out String);
+   type T157 is access procedure (P1 : Low_Level.Enums.Query_Param);
    pragma Convention (StdCall, T157);
-   type T158 is access procedure;
+   type T158 is access procedure (P1 : Low_Level.Enums.Query_Param; P2, P3 : UInt);
    pragma Convention (StdCall, T158);
-   type T159 is access function return UInt;
+   type T159 is access procedure (P1 : Low_Level.Enums.Query_Param; P2 : UInt);
    pragma Convention (StdCall, T159);
-   type T160 is access procedure (P1 : UInt);
+   type T160 is access procedure (P1 : UInt; P2 : Low_Level.Enums.Query_Param);
    pragma Convention (StdCall, T160);
-   type T161 is access procedure (P1 : UInt; P2 : Enums.Program_Param; P3 : out Int);
+   type T161 is access procedure (P1 : UInt; P2 : Enums.Shader_Param; P3 : out Int);
    pragma Convention (StdCall, T161);
-   type T162 is access procedure (P1, P2 : UInt);
+   type T162 is access procedure (P1 : UInt; P2 : Enums.Shader_Param; P3 : out Objects.Shaders.Shader_Type);
    pragma Convention (StdCall, T162);
-   type T163 is access procedure (P1 : UInt; P2 : Size; P3 : out Size; P4 : in out String);
+   type T163 is access function (P1 : Objects.Shaders.Shader_Type) return UInt;
    pragma Convention (StdCall, T163);
-   type T164 is access procedure (P1 : UInt; P2 : Objects.Shaders.Shader_Type; P3 : Enums.Program_Stage_Param; P4 : out Size);
+   type T164 is access procedure (P1 : UInt);
    pragma Convention (StdCall, T164);
-   type T165 is access function (P1 : UInt; P2 : Objects.Shaders.Shader_Type; P3 : Interfaces.C.char_array) return Objects.Programs.Subroutine_Index_Type;
+   type T165 is access procedure (P1 : UInt; P2 : Size; P3 : Low_Level.Char_Access_Array; P4 : Low_Level.Int_Array);
    pragma Convention (StdCall, T165);
-   type T166 is access function (P1 : UInt; P2 : Objects.Shaders.Shader_Type; P3 : Interfaces.C.char_array) return Objects.Programs.Uniform_Location_Type;
+   type T166 is access procedure (P1 : UInt; P2 : Size; P3 : out Size; P4 : in out String);
    pragma Convention (StdCall, T166);
-   type T167 is access function (P1 : UInt; P2 : C.char_array) return Uniforms.Uniform;
+   type T167 is access procedure;
    pragma Convention (StdCall, T167);
-   type T168 is access procedure (P1 : UInt; P2 : Attributes.Attribute; P3 : C.char_array);
+   type T168 is access function return UInt;
    pragma Convention (StdCall, T168);
-   type T169 is access function (P1 : UInt; P2 : C.char_array) return Attributes.Attribute;
+   type T169 is access procedure (P1 : UInt);
    pragma Convention (StdCall, T169);
-   type T170 is access procedure (P1 : Attributes.Attribute; P2 : Component_Count; P3 : Numeric_Type; P4 : Low_Level.Bool; P5 : Size; P6 : Int);
+   type T170 is access procedure (P1 : UInt; P2 : Enums.Program_Param; P3 : out Int);
    pragma Convention (StdCall, T170);
-   type T171 is access procedure (P1 : Attributes.Attribute; P2 : Component_Count; P3 : Numeric_Type; P4 : Size; P5 : Int);
+   type T171 is access procedure (P1, P2 : UInt);
    pragma Convention (StdCall, T171);
-   type T172 is access procedure (P1 : Attributes.Attribute);
+   type T172 is access procedure (P1 : UInt; P2 : Size; P3 : out Size; P4 : in out String);
    pragma Convention (StdCall, T172);
-   type T173 is access procedure (P1 : UInt; P2 : Size; P3 : out Size; P4 : in out UInt_Array);
+   type T173 is access procedure (P1 : UInt; P2 : Objects.Shaders.Shader_Type; P3 : Enums.Program_Stage_Param; P4 : out Size);
    pragma Convention (StdCall, T173);
-   type T174 is access procedure (P1 : UInt; P2 : Buffers.Draw_Buffer_Index; P3 : Interfaces.C.char_array);
+   type T174 is access function (P1 : UInt; P2 : Objects.Shaders.Shader_Type; P3 : Interfaces.C.char_array) return Objects.Programs.Subroutine_Index_Type;
    pragma Convention (StdCall, T174);
-   type T175 is access function (P1 : UInt; P2 : Interfaces.C.char_array) return Int;
+   type T175 is access function (P1 : UInt; P2 : Objects.Shaders.Shader_Type; P3 : Interfaces.C.char_array) return Objects.Programs.Uniform_Location_Type;
    pragma Convention (StdCall, T175);
-   type T176 is access procedure (P1 : Connection_Mode);
+   type T176 is access function (P1 : UInt; P2 : C.char_array) return Uniforms.Uniform;
    pragma Convention (StdCall, T176);
-   type T177 is access procedure (P1 : UInt; P2 : Int; P3 : Size; P4 : out Size; P5 : out Size; P6 : out GL.Objects.Programs.Active_Attribute; P7 : in out Interfaces.C.char_array);
+   type T177 is access procedure (P1 : UInt; P2 : Attributes.Attribute; P3 : C.char_array);
    pragma Convention (StdCall, T177);
-   type T178 is access procedure (P1 : UInt; P2 : Size; P3 : Low_Level.Char_Access_Array; P4 : GL.Objects.Programs.Buffer_Mode);
+   type T178 is access function (P1 : UInt; P2 : C.char_array) return Attributes.Attribute;
    pragma Convention (StdCall, T178);
-   type T179 is access procedure (P1 : Enums.Patch_Parameter_Int; P2 : Int);
+   type T179 is access procedure (P1 : Attributes.Attribute; P2 : Component_Count; P3 : Numeric_Type; P4 : Low_Level.Bool; P5 : Size; P6 : Int);
    pragma Convention (StdCall, T179);
-   type T180 is access procedure (P1 : Enums.Patch_Parameter_Float_Array; P2 : Types.Single_Array);
+   type T180 is access procedure (P1 : Attributes.Attribute; P2 : Component_Count; P3 : Numeric_Type; P4 : Size; P5 : Int);
    pragma Convention (StdCall, T180);
+   type T181 is access procedure (P1 : Attributes.Attribute);
+   pragma Convention (StdCall, T181);
+   type T182 is access procedure (P1 : UInt; P2 : Size; P3 : out Size; P4 : in out UInt_Array);
+   pragma Convention (StdCall, T182);
+   type T183 is access procedure (P1 : UInt; P2 : Buffers.Draw_Buffer_Index; P3 : Interfaces.C.char_array);
+   pragma Convention (StdCall, T183);
+   type T184 is access function (P1 : UInt; P2 : Interfaces.C.char_array) return Int;
+   pragma Convention (StdCall, T184);
+   type T185 is access procedure (P1 : Connection_Mode);
+   pragma Convention (StdCall, T185);
+   type T186 is access procedure (P1 : UInt; P2 : Int; P3 : Size; P4 : out Size; P5 : out Size; P6 : out GL.Objects.Programs.Active_Attribute; P7 : in out Interfaces.C.char_array);
+   pragma Convention (StdCall, T186);
+   type T187 is access procedure (P1 : UInt; P2 : Size; P3 : Low_Level.Char_Access_Array; P4 : GL.Objects.Programs.Buffer_Mode);
+   pragma Convention (StdCall, T187);
+   type T188 is access procedure (P1 : Enums.Patch_Parameter_Int; P2 : Int);
+   pragma Convention (StdCall, T188);
+   type T189 is access procedure (P1 : Enums.Patch_Parameter_Float_Array; P2 : Types.Single_Array);
+   pragma Convention (StdCall, T189);
    function Get_Error return Errors.Error_Code;
    pragma Import (StdCall, Get_Error, "glGetError");
    procedure Flush;
@@ -700,6 +718,7 @@ private package GL.API is
    Map_Buffer_Range : T116;
    Buffer_Pointer : T117;
    Buffer_Sub_Data : T118;
+   Get_Buffer_Sub_Data : T118;
    Unmap_Buffer : T119;
    Get_Buffer_Parameter_Access_Kind : T120;
    Get_Buffer_Parameter_Bool : T121;
@@ -739,43 +758,52 @@ private package GL.API is
    Framebuffer_Parameter_Bool : T149;
    Get_Framebuffer_Parameter_Size : T150;
    Get_Framebuffer_Parameter_Bool : T151;
-   Get_Shader_Param : T152;
-   Get_Shader_Type : T153;
-   Create_Shader : T154;
-   Delete_Shader : T155;
-   Shader_Source : T156;
-   Get_Shader_Source : T157;
-   Compile_Shader : T155;
-   Release_Shader_Compiler : T158;
-   Get_Shader_Info_Log : T157;
-   Create_Program : T159;
-   Delete_Program : T160;
-   Get_Program_Param : T161;
-   Attach_Shader : T162;
-   Link_Program : T160;
-   Get_Program_Info_Log : T163;
-   Get_Program_Stage : T164;
-   Get_Subroutine_Index : T165;
-   Get_Subroutine_Uniform_Location : T166;
-   Use_Program : T160;
-   Validate_Program : T160;
-   Get_Uniform_Location : T167;
-   Bind_Attrib_Location : T168;
-   Get_Attrib_Location : T169;
-   Vertex_Attrib_Pointer : T170;
-   Vertex_AttribI_Pointer : T171;
-   Vertex_AttribL_Pointer : T171;
-   Enable_Vertex_Attrib_Array : T172;
-   Disable_Vertex_Attrib_Array : T172;
-   Get_Attached_Shaders : T173;
-   Bind_Frag_Data_Location : T174;
-   Get_Frag_Data_Location : T175;
-   Begin_Transform_Feedback : T176;
-   End_Transform_Feedback : T158;
-   Get_Transform_Feedback_Varying : T177;
-   Transform_Feedback_Varyings : T178;
-   Set_Patch_Parameter_Int : T179;
-   Set_Patch_Parameter_Float_Array : T180;
+   Gen_Queries : T152;
+   Delete_Queries : T153;
+   Is_Query : T154;
+   Get_Query_Object : T155;
+   Begin_Query : T156;
+   End_Query : T157;
+   Begin_Query_Indexed : T158;
+   End_Query_Indexed : T159;
+   Query_Counter : T160;
+   Get_Shader_Param : T161;
+   Get_Shader_Type : T162;
+   Create_Shader : T163;
+   Delete_Shader : T164;
+   Shader_Source : T165;
+   Get_Shader_Source : T166;
+   Compile_Shader : T164;
+   Release_Shader_Compiler : T167;
+   Get_Shader_Info_Log : T166;
+   Create_Program : T168;
+   Delete_Program : T169;
+   Get_Program_Param : T170;
+   Attach_Shader : T171;
+   Link_Program : T169;
+   Get_Program_Info_Log : T172;
+   Get_Program_Stage : T173;
+   Get_Subroutine_Index : T174;
+   Get_Subroutine_Uniform_Location : T175;
+   Use_Program : T169;
+   Validate_Program : T169;
+   Get_Uniform_Location : T176;
+   Bind_Attrib_Location : T177;
+   Get_Attrib_Location : T178;
+   Vertex_Attrib_Pointer : T179;
+   Vertex_AttribI_Pointer : T180;
+   Vertex_AttribL_Pointer : T180;
+   Enable_Vertex_Attrib_Array : T181;
+   Disable_Vertex_Attrib_Array : T181;
+   Get_Attached_Shaders : T182;
+   Bind_Frag_Data_Location : T183;
+   Get_Frag_Data_Location : T184;
+   Begin_Transform_Feedback : T185;
+   End_Transform_Feedback : T167;
+   Get_Transform_Feedback_Varying : T186;
+   Transform_Feedback_Varyings : T187;
+   Set_Patch_Parameter_Int : T188;
+   Set_Patch_Parameter_Float_Array : T189;
    procedure Depth_Range (Near, Far : Double);
    pragma Import (StdCall, Depth_Range, "glDepthRange");
    procedure Viewport (X, Y : Int; Width, Height : Size);

src/gl/generated/gl-load_function_pointers.adb

@@ -208,6 +208,15 @@ procedure GL.Load_Function_Pointers is
    function Load_T178 is new Load (T178);
    function Load_T179 is new Load (T179);
    function Load_T180 is new Load (T180);
+   function Load_T181 is new Load (T181);
+   function Load_T182 is new Load (T182);
+   function Load_T183 is new Load (T183);
+   function Load_T184 is new Load (T184);
+   function Load_T185 is new Load (T185);
+   function Load_T186 is new Load (T186);
+   function Load_T187 is new Load (T187);
+   function Load_T188 is new Load (T188);
+   function Load_T189 is new Load (T189);
 begin
    GL.API.Doubles.Vertex_Attrib1 := Load_T1 ("glVertexAttribL1d");
    GL.API.Doubles.Vertex_Attrib2 := Load_T2 ("glVertexAttribL2d");
@@ -332,6 +341,7 @@ begin
    GL.API.Map_Buffer_Range := Load_T116 ("glMapBufferRange");
    GL.API.Buffer_Pointer := Load_T117 ("glGetBufferPointerv");
    GL.API.Buffer_Sub_Data := Load_T118 ("glBufferSubData");
+   GL.API.Get_Buffer_Sub_Data := Load_T118 ("glGetBufferSubData");
    GL.API.Unmap_Buffer := Load_T119 ("glUnmapBuffer");
    GL.API.Get_Buffer_Parameter_Access_Kind := Load_T120 ("glGetBufferParameteriv");
    GL.API.Get_Buffer_Parameter_Bool := Load_T121 ("glGetBufferParameteriv");
@@ -365,41 +375,50 @@ begin
    GL.API.Framebuffer_Parameter_Bool := Load_T149 ("glFramebufferParameteri");
    GL.API.Get_Framebuffer_Parameter_Size := Load_T150 ("glGetFramebufferParameteriv");
    GL.API.Get_Framebuffer_Parameter_Bool := Load_T151 ("glGetFramebufferParameteriv");
-   GL.API.Get_Shader_Param := Load_T152 ("glGetShaderiv");
-   GL.API.Get_Shader_Type := Load_T153 ("glGetShaderiv");
-   GL.API.Create_Shader := Load_T154 ("glCreateShader");
-   GL.API.Delete_Shader := Load_T155 ("glDeleteShader");
-   GL.API.Shader_Source := Load_T156 ("glShaderSource");
-   GL.API.Get_Shader_Source := Load_T157 ("glGetShaderSource");
-   GL.API.Compile_Shader := Load_T155 ("glCompileShader");
-   GL.API.Release_Shader_Compiler := Load_T158 ("glReleaseShaderCompiler");
-   GL.API.Get_Shader_Info_Log := Load_T157 ("glGetShaderInfoLog");
-   GL.API.Create_Program := Load_T159 ("glCreateProgram");
-   GL.API.Delete_Program := Load_T160 ("glDeleteProgram");
-   GL.API.Get_Program_Param := Load_T161 ("glGetProgramiv");
-   GL.API.Attach_Shader := Load_T162 ("glAttachShader");
-   GL.API.Link_Program := Load_T160 ("glLinkProgram");
-   GL.API.Get_Program_Info_Log := Load_T163 ("glGetProgramInfoLog");
-   GL.API.Get_Program_Stage := Load_T164 ("glGetProgramStageiv");
-   GL.API.Get_Subroutine_Index := Load_T165 ("glGetSubroutineIndex");
-   GL.API.Get_Subroutine_Uniform_Location := Load_T166 ("glGetSubroutineUniformLocation");
-   GL.API.Use_Program := Load_T160 ("glUseProgram");
-   GL.API.Validate_Program := Load_T160 ("glValidateProgram");
-   GL.API.Get_Uniform_Location := Load_T167 ("glGetUniformLocation");
-   GL.API.Bind_Attrib_Location := Load_T168 ("glBindAttribLocation");
-   GL.API.Get_Attrib_Location := Load_T169 ("glGetAttribLocation");
-   GL.API.Vertex_Attrib_Pointer := Load_T170 ("glVertexAttribPointer");
-   GL.API.Vertex_AttribI_Pointer := Load_T171 ("glVertexAttribIPointer");
-   GL.API.Vertex_AttribL_Pointer := Load_T171 ("glVertexAttribLPointer");
-   GL.API.Enable_Vertex_Attrib_Array := Load_T172 ("glEnableVertexAttribArray");
-   GL.API.Disable_Vertex_Attrib_Array := Load_T172 ("glDisableVertexAttribArray");
-   GL.API.Get_Attached_Shaders := Load_T173 ("glGetAttachedShaders");
-   GL.API.Bind_Frag_Data_Location := Load_T174 ("glBindFragDataLocation");
-   GL.API.Get_Frag_Data_Location := Load_T175 ("glGetFragDataLocation");
-   GL.API.Begin_Transform_Feedback := Load_T176 ("glBeginTransformFeedback");
-   GL.API.End_Transform_Feedback := Load_T158 ("glEndTransformFeedback");
-   GL.API.Get_Transform_Feedback_Varying := Load_T177 ("glGetTransformFeedbackVarying");
-   GL.API.Transform_Feedback_Varyings := Load_T178 ("glTransformFeedbackVaryings");
-   GL.API.Set_Patch_Parameter_Int := Load_T179 ("glPatchParameteri");
-   GL.API.Set_Patch_Parameter_Float_Array := Load_T180 ("glPatchParameterfv");
+   GL.API.Gen_Queries := Load_T152 ("glGenQueries");
+   GL.API.Delete_Queries := Load_T153 ("glDeleteQueries");
+   GL.API.Is_Query := Load_T154 ("glIsQuery");
+   GL.API.Get_Query_Object := Load_T155 ("glGetQueryObjectuiv");
+   GL.API.Begin_Query := Load_T156 ("glBeginQuery");
+   GL.API.End_Query := Load_T157 ("glEndQuery");
+   GL.API.Begin_Query_Indexed := Load_T158 ("glBeginQueryIndexed");
+   GL.API.End_Query_Indexed := Load_T159 ("glEndQueryIndexed");
+   GL.API.Query_Counter := Load_T160 ("glQueryCounter");
+   GL.API.Get_Shader_Param := Load_T161 ("glGetShaderiv");
+   GL.API.Get_Shader_Type := Load_T162 ("glGetShaderiv");
+   GL.API.Create_Shader := Load_T163 ("glCreateShader");
+   GL.API.Delete_Shader := Load_T164 ("glDeleteShader");
+   GL.API.Shader_Source := Load_T165 ("glShaderSource");
+   GL.API.Get_Shader_Source := Load_T166 ("glGetShaderSource");
+   GL.API.Compile_Shader := Load_T164 ("glCompileShader");
+   GL.API.Release_Shader_Compiler := Load_T167 ("glReleaseShaderCompiler");
+   GL.API.Get_Shader_Info_Log := Load_T166 ("glGetShaderInfoLog");
+   GL.API.Create_Program := Load_T168 ("glCreateProgram");
+   GL.API.Delete_Program := Load_T169 ("glDeleteProgram");
+   GL.API.Get_Program_Param := Load_T170 ("glGetProgramiv");
+   GL.API.Attach_Shader := Load_T171 ("glAttachShader");
+   GL.API.Link_Program := Load_T169 ("glLinkProgram");
+   GL.API.Get_Program_Info_Log := Load_T172 ("glGetProgramInfoLog");
+   GL.API.Get_Program_Stage := Load_T173 ("glGetProgramStageiv");
+   GL.API.Get_Subroutine_Index := Load_T174 ("glGetSubroutineIndex");
+   GL.API.Get_Subroutine_Uniform_Location := Load_T175 ("glGetSubroutineUniformLocation");
+   GL.API.Use_Program := Load_T169 ("glUseProgram");
+   GL.API.Validate_Program := Load_T169 ("glValidateProgram");
+   GL.API.Get_Uniform_Location := Load_T176 ("glGetUniformLocation");
+   GL.API.Bind_Attrib_Location := Load_T177 ("glBindAttribLocation");
+   GL.API.Get_Attrib_Location := Load_T178 ("glGetAttribLocation");
+   GL.API.Vertex_Attrib_Pointer := Load_T179 ("glVertexAttribPointer");
+   GL.API.Vertex_AttribI_Pointer := Load_T180 ("glVertexAttribIPointer");
+   GL.API.Vertex_AttribL_Pointer := Load_T180 ("glVertexAttribLPointer");
+   GL.API.Enable_Vertex_Attrib_Array := Load_T181 ("glEnableVertexAttribArray");
+   GL.API.Disable_Vertex_Attrib_Array := Load_T181 ("glDisableVertexAttribArray");
+   GL.API.Get_Attached_Shaders := Load_T182 ("glGetAttachedShaders");
+   GL.API.Bind_Frag_Data_Location := Load_T183 ("glBindFragDataLocation");
+   GL.API.Get_Frag_Data_Location := Load_T184 ("glGetFragDataLocation");
+   GL.API.Begin_Transform_Feedback := Load_T185 ("glBeginTransformFeedback");
+   GL.API.End_Transform_Feedback := Load_T167 ("glEndTransformFeedback");
+   GL.API.Get_Transform_Feedback_Varying := Load_T186 ("glGetTransformFeedbackVarying");
+   GL.API.Transform_Feedback_Varyings := Load_T187 ("glTransformFeedbackVaryings");
+   GL.API.Set_Patch_Parameter_Int := Load_T188 ("glPatchParameteri");
+   GL.API.Set_Patch_Parameter_Float_Array := Load_T189 ("glPatchParameterfv");
 end GL.Load_Function_Pointers;

src/gl/implementation/gl-enums-getter.ads

@@ -241,6 +241,8 @@ package GL.Enums.Getter is
       Stencil_Back_Pass_Depth_Fail,
       Stencil_Back_Pass_Depth_Pass,
       Blend_Equation_Alpha,
+      Query_Result,
+      Query_Result_Available,
       Max_Combined_Texture_Image_Units,
       Stencil_Back_Ref,
       Stencil_Back_Value_Mask,
@@ -484,6 +486,8 @@ package GL.Enums.Getter is
       Stencil_Back_Pass_Depth_Fail  => 16#8802#,
       Stencil_Back_Pass_Depth_Pass  => 16#8803#,
       Blend_Equation_Alpha          => 16#883D#,
+      Query_Result                  => 16#8866#,
+      Query_Result_Available        => 16#8867#,
       Max_Combined_Texture_Image_Units => 16#8B4D#,
       Stencil_Back_Ref              => 16#8CA3#,
       Stencil_Back_Value_Mask       => 16#8CA4#,