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

* initialise timespec.tv_sec again for generic BasicEventWaitFor

Browse Source 
git-svn-id: trunk@8836 -
This commit is contained in:
Jonas Maebe 2007-10-17 21:14:01 +00:00
parent 5f3e2b10e8
commit 2701a0f743
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/unix/cthreads.pp
View File

@ -820,6 +820,7 @@ begin
else
result := wrError;
{$else}
timespec.tv_sec:=0;
{ 500 miliseconds or less -> wait once for this duration }
if (timeout <= 500) then
loopcnt:=1