From: George J <ivanov_george@list.ru>
Subject: Re: Win32. Task or CreateThread
Date: Wed, 3 Aug 2016 19:41:42 -0700 (PDT)
Date: 2016-08-03T19:41:42-07:00 [thread overview]
Message-ID: <9990482f-f95b-40d9-8061-43f467d12a7b@googlegroups.com> (raw)
In-Reply-To: <67bbafe1-567a-4ddc-9645-9a0780bcff62@googlegroups.com>
среда, 3 августа 2016 г., 23:31:11 UTC+3 пользователь Aurele написал:
> 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;
Thanks, Aurele!
prev parent reply other threads:[~2016-08-04 2:41 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-08-02 14:38 Win32. Task or CreateThread George J
2016-08-02 15:22 ` Dmitry A. Kazakov
2016-08-02 16:39 ` George J
2016-08-03 17:31 ` George J
2016-08-03 19:43 ` Dmitry A. Kazakov
2016-08-04 2:42 ` George J
2016-08-05 4:25 ` George J
2016-08-05 6:15 ` George J
2016-08-05 6:17 ` Dmitry A. Kazakov
2016-08-05 6:48 ` George J
2016-08-03 20:31 ` Aurele
2016-08-04 2:41 ` George J [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox