summaryrefslogtreecommitdiff
path: root/packages/fcl-net
diff options
context:
space:
mode:
authormarcus <marcus@3ad0048d-3df7-0310-abae-a5850022a9f2>2018-07-01 13:47:51 +0000
committermarcus <marcus@3ad0048d-3df7-0310-abae-a5850022a9f2>2018-07-01 13:47:51 +0000
commit88b989899235b2da369417130271637fcc779d5e (patch)
tree70293d09a80172b41e2a219204976d730ee3cde8 /packages/fcl-net
parenta7a1de32c1d709e08e22d0677d7647e35f812c2e (diff)
downloadfpc-88b989899235b2da369417130271637fcc779d5e.tar.gz
InetSocket: fixed connect without timeout set
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39355 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-net')
-rw-r--r--packages/fcl-net/src/ssockets.pp2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp
index ba47485a60..f84b803e13 100644
--- a/packages/fcl-net/src/ssockets.pp
+++ b/packages/fcl-net/src/ssockets.pp
@@ -1117,7 +1117,7 @@ begin
If (Res<0) then
Raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort])]);
{$IFDEF HAVENONBLOCKING}
- If (Res=0) then
+ If (Res=0) and (ConnectTimeOut>0) then
Raise ESocketError.Create(seConnectTimeOut, [Format('%s:%d',[FHost, FPort])]);
{$ENDIF}
end;