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

* Merging revisions r45722 from trunk:

Browse Source 
------------------------------------------------------------------------
    r45722 | ondrej | 2020-07-03 15:14:38 +0200 (Fri, 03 Jul 2020) | 1 line
    
    fphttpserver: fix endless loop in case of open connections
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46590 -
This commit is contained in:
michael 2020-08-23 09:21:16 +00:00
parent d3264f6a43
commit c15536afdf
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-web/src/base/fphttpserver.pp
View File

@ -905,7 +905,7 @@ begin
begin begin
Sleep(100); Sleep(100);
if (FConnectionCount=FLastCount) then if (FConnectionCount=FLastCount) then
Dec(ACount) Inc(ACount)
else else
FLastCount:=FConnectionCount; FLastCount:=FConnectionCount;
end; end;