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

* and yet more ESysEINTR handling

Browse Source 
git-svn-id: trunk@12927 -
This commit is contained in:
Jonas Maebe 2009-03-19 22:20:39 +00:00
parent 483b3b4a30
commit d79161a01a
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-async/src/unix/libasync.pp
View File

@ -86,14 +86,20 @@ var
CurIOCallback: PIOCallbackData;
begin
if Handle^.Data.HighestHandle < 0 then
// No I/O checks to do, so just wait...
AsyncResult := fpselect(0, nil, nil, nil, TimeOut)
begin
// No I/O checks to do, so just wait...
repeat
AsyncResult := fpselect(0, nil, nil, nil, TimeOut)
until (AsyncResult<>-1) or (fpgeterrno<>ESysEINTR);
end
else
begin
CurReadFDSet := PFDSet(Handle^.Data.FDData)[0];
CurWriteFDSet := PFDSet(Handle^.Data.FDData)[1];
AsyncResult := fpselect(Handle^.Data.HighestHandle + 1,
@CurReadFDSet, @CurWriteFDSet, nil, TimeOut);
repeat
AsyncResult := fpselect(Handle^.Data.HighestHandle + 1,
@CurReadFDSet, @CurWriteFDSet, nil, TimeOut);
until (AsyncResult<>-1) or (fpgeterrno<>ESysEINTR);
if AsyncResult > 0 then
begin