Re: can someone help me with this code (explanation)

["G.B." <bauhaus@futureapps.invalid>]

On 26.09.14 09:58, J-P. Rosen wrote:
> Le 26/09/2014 09:04, Björn Lundin a écrit :
>> Or by using a protected object as a semaphore
>>
> But why? It's so simpler with a task:

It also centralizes I/O to one task, unlike a solution using
locking in each task that takes hold of a PO or, alternatively,
a Suspension_Object:

    procedure Print (Message : String) is
       use Ada.Text_IO, Ada.Synchronous_Task_Control;
    begin
       Suspend_Until_True (Lock);
       Put_Line (Message);
       Flush;
       Set_True (Lock);
    end Print;