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

* return wrAbandoned rather than wrError from IntbasiceventWaitFor

Browse Source 
in case a sleep is interrupted while the event is being destroyed

git-svn-id: trunk@8260 -
This commit is contained in:
Jonas Maebe 2007-08-11 08:13:36 +00:00
parent ef801ba3a3
commit ce86cedd4d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/unix/cthreads.pp
View File

@ -818,11 +818,13 @@ begin
{ in which case we try to lock once more); 2) an error occurred; }
{ 3) we're being destroyed }
until ((nanores=0) and not lastloop) or ((nanores<>0) and (nanoerr<>ESysEINTR)) or plocaleventstate(state)^.FDestroying;
{ adjust result for error or being destroyed }
if (nanores <> 0) then
result := wrError
else if plocaleventstate(state)^.FDestroying then
result := wrAbandoned;
{ adjust result being destroyed or error (in this order, since }
{ if we're being destroyed the "error" could be ESysEINTR, which }
{ is not a real error }
if plocaleventstate(state)^.FDestroying then
result := wrAbandoned
else if (nanores <> 0) then
result := wrError;
{ break out of greater loop when we got the lock, when an error }
{ occurred, or when we are being destroyed }
if (result<>wrTimeOut) then