paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 08:42:10 +01: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

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

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