Re: Win32. Task or CreateThread

[Aurele <aurele.vitali@gmail.com>]

declare
Start_Time : Ada.Real_Time.Time;
      Stop_Time  : Ada.Real_Time.Time;


loop

  Start_Time := Ada.Real_Time.Clock;

  Do_Stuff'

  Stop_Time        := Ada.Real_Time.Clock; 
  Performance_Time := Ada.Real_Time.To_Duration( Stop_Time - Start_Time ); 

  while Performance_Time < 0.2 loop  -- Delay...
    Winbase.Sleep( 0 );  -- This is a Windows function
    Stop_Time := Ada.Real_Time.Clock; 
    Performance_Time := Ada.Real_Time.To_Duration( Stop_Time - Start_Time ); 
  end loop;
          
end loop;