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

* Patch to fix issue #40351

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-16 12:32:05 +02:00
parent e1a216a4aa
commit 656254a984
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -928,9 +928,10 @@ begin
Result := winsock2.Select(FSocket + 1, @FDS, @FDS, @FDS, @TimeV) > 0;
{$endif}
{$endif}
If not Result then
DoOnIdle;
Until Result or (Not FAccepting);
If Result then
break;
DoOnIdle;
Until (Not FAccepting);
end;
procedure TSocketServer.Listen;