paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 07:50:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation (bug id 34064) pending correct solution

Browse Source 
git-svn-id: trunk@39535 -
This commit is contained in:
michael 2018-07-30 21:34:59 +00:00
parent 962391621f
commit 487259fed2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1108,11 +1108,11 @@ begin
if Res < 0 then
Err:=socketerror;
{$else}
Err:=Res;
Err:=Res;
{$endif}
end;
{$IFDEF HAVENONBLOCKING}
if (Err=ESysEINPROGRESS) and (ConnectTimeOut>0) then
if {(Err=ESysEINPROGRESS) and} (ConnectTimeOut>0) then
begin
Res:=CheckSocketConnectTimeout(Handle, @FDS, @TimeV);
SetSocketBlockingMode(Handle, bmBlocking, @FDS);