From b5494c534ce47b6a1c39fed0f566af86f2794d3f Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 21 Mar 2009 16:11:08 +0000
Subject: [PATCH]   * handle EsockEINTR for fpaccept and fpconnect

git-svn-id: trunk@12939 -
---
 rtl/inc/sockets.inc | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/sockets.inc b/rtl/inc/sockets.inc
index 4a9a48109b..1473ccbf2c 100644
--- a/rtl/inc/sockets.inc
+++ b/rtl/inc/sockets.inc
@@ -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}