paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 20:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle EsockEINTR for fpaccept and fpconnect

Browse Source 
git-svn-id: trunk@12939 -
This commit is contained in:
Jonas Maebe 2009-03-21 16:11:08 +00:00
parent 9f3adee38e
commit b5494c534c
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/sockets.inc
View File

@ -169,13 +169,20 @@ Var AddrLen : Longint;
begin begin
AddrLEn:=SizeOf(Addr); AddrLEn:=SizeOf(Addr);
DoAccept:=fpaccept(Sock,@Addr,@AddrLen); repeat
DoAccept:=fpaccept(Sock,@Addr,@AddrLen);
until (DoAccept<>-1) or (SocketError <> EsockEINTR);
end; end;
Function DoConnect(Sock:longint;const addr: TInetSockAddr): Boolean; Function DoConnect(Sock:longint;const addr: TInetSockAddr): Boolean;
var
res: longint;
begin begin
DoConnect:=fpconnect(Sock,@Addr,SizeOF(TInetSockAddr)) = 0; repeat
res:=fpconnect(Sock,@Addr,SizeOF(TInetSockAddr));
until (res<>-1) or (SocketError <> EsockEINTR);
DoConnect:= res = 0;
end; end;
{$warnings off} {$warnings off}