paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 23:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give generic IntbasiceventWaitFor a granularity of 50 rather than

Browse Source 
500 miliseconds

git-svn-id: trunk@9222 -
This commit is contained in:
Jonas Maebe 2007-11-12 22:06:39 +00:00
parent 95abc479ac
commit 34d0fd2c30
1 changed files with 6 additions and 6 deletions

12
rtl/unix/cthreads.pp
View File

@ -821,16 +821,16 @@ begin
result := wrError;
{$else}
timespec.tv_sec:=0;
{ 500 miliseconds or less -> wait once for this duration }
if (timeout <= 500) then
{ 50 miliseconds or less -> wait once for this duration }
if (timeout <= 50) then
loopcnt:=1
{ otherwise wake up every 500 msecs to check }
{ otherwise wake up every 50 msecs to check }
{ (we'll wait a little longer in total because }
{ we don't take into account the overhead) }
else
begin
loopcnt := timeout div 500;
timespec.tv_nsec:=500*1000000;
loopcnt := timeout div 50;
timespec.tv_nsec:=50*1000000;
end;
result := wrTimeOut;
nanores := 0;
@ -839,7 +839,7 @@ begin
begin
{ in the last iteration, wait for the amount of time left }
if (i = loopcnt) then
timespec.tv_nsec:=(timeout mod 500) * 1000000;
timespec.tv_nsec:=(timeout mod 50) * 1000000;
timetemp:=timespec;
lastloop:=false;
{ every time our sleep is interrupted for whatever reason, }