paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-17 02:00:41 +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 if Res < 0 then
Err:=socketerror; Err:=socketerror;
{$else} {$else}
Err:=Res; Err:=Res;
{$endif} {$endif}
end; end;
{$IFDEF HAVENONBLOCKING} {$IFDEF HAVENONBLOCKING}
if (Err=ESysEINPROGRESS) and (ConnectTimeOut>0) then if {(Err=ESysEINPROGRESS) and} (ConnectTimeOut>0) then
begin begin
Res:=CheckSocketConnectTimeout(Handle, @FDS, @TimeV); Res:=CheckSocketConnectTimeout(Handle, @FDS, @TimeV);
SetSocketBlockingMode(Handle, bmBlocking, @FDS); SetSocketBlockingMode(Handle, bmBlocking, @FDS);