paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 23:09:38 +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

11
rtl/inc/sockets.inc
View File

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