1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | with ada.Task_Identification; package openGL.Tasks -- -- Allow checking that a GL operation is called only in the GL renderer engine task. -- is Renderer_Task : ada.Task_Identification.Task_Id := ada.Task_Identification.null_Task_Id; -- -- The current renderer task. procedure check; function check return Boolean; -- -- Check if the calling task is the renderer task. -- Otherwise, gives an assertion error. end openGL.Tasks; |