with
     openGL.Errors;


package body openGL.Tasks
is
   use openGL.Errors;


   procedure check
   is
   begin
      if Debugging
      then
         declare
            use Ada,
                ada.Task_Identification;

            calling_Task : constant Task_Id := Task_Identification.current_Task;

            --  TODO: Use the assert instead of the exception for performance.
            --  pragma assert (Renderer_Task = calling_Task,
            --                   "Calling task '"      & Task_Identification.Image (current_Task)  & "'"
            --                 & " /= Renderer task '" & Task_Identification.Image (Renderer_Task) & "'");
         begin
            if Renderer_Task /= calling_Task
            then
               raise Error with   "Calling task '"      & Task_Identification.Image (current_Task)  & "'"
                                & " /= Renderer task '" & Task_Identification.Image (Renderer_Task) & "'";
            end if;
         end;
      end if;
   end check;



   function check return Boolean
   is
   begin
      if Debugging
      then
         check;
      end if;

      return True;
   end check;

end openGL.Tasks;