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

* Fix wrong read loop

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-03 17:40:46 +02:00
parent 2ce34f7bd3
commit 7ef2012151
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

@ -1011,7 +1011,7 @@ begin
end; end;
P:=P+1; P:=P+1;
R:=1; R:=1;
While (L>=0) and (R>0) do While (L>0) and (R>0) do
begin begin
R:=FSocket.Read(S[p],L); R:=FSocket.Read(S[p],L);
If R<0 then If R<0 then