paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 11:45:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TInetSocket connect timeout support under 1 second fix.

Browse Source 
(cherry picked from commit f20b6275563a6051ea91ab2f1b1521dd287be83f)
This commit is contained in:
Dimitrios Chr. Ioannidis 2022-06-08 23:10:36 +03:00 committed by d.ioannidis
parent c13517634f
commit 33f5da686e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-net/src/ssockets.pp
View File

@ -1289,7 +1289,7 @@ var
begin begin
locTimeVal := PTimeVal(ATimeVPtr); locTimeVal := PTimeVal(ATimeVPtr);
locFDS := PFDSet(AFDSPtr); locFDS := PFDSet(AFDSPtr);
locTimeVal^.tv_usec := 0; locTimeVal^.tv_usec := (FConnectTimeout mod 1000) * 1000;
locTimeVal^.tv_sec := FConnectTimeout div 1000; locTimeVal^.tv_sec := FConnectTimeout div 1000;
Res:=-1; Res:=-1;
{$ifdef unix} {$ifdef unix}