opengl.tasks: Only check tasks are the same during debug build mode.

3-mid/opengl/source/opengl-tasks.adb

@@ -1,8 +1,18 @@
+with
+     openGL.Errors;
+
+
 package body openGL.Tasks
 is
+   use openGL.Errors;
+
 
    procedure check
    is
+   begin
+      if Debugging
+      then
+         declare
             use Ada,
                 ada.Task_Identification;
 
@@ -18,6 +28,8 @@ is
                raise Error with   "Calling task '"      & Task_Identification.Image (current_Task)  & "'"
                                 & " /= Renderer task '" & Task_Identification.Image (Renderer_Task) & "'";
             end if;
+         end;
+      end if;
    end check;
 
 
@@ -25,7 +37,11 @@ is
    function check return Boolean
    is
    begin
+      if Debugging
+      then
          check;
+      end if;
+
       return True;
    end check;