From 7ef2012151438c314d82b279c06939140dbf0c41 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Fri, 3 Sep 2021 17:40:46 +0200 Subject: [PATCH] * Fix wrong read loop --- packages/fcl-web/src/base/fphttpserver.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-web/src/base/fphttpserver.pp b/packages/fcl-web/src/base/fphttpserver.pp index a1e797fdd8..eaee8c0e98 100644 --- a/packages/fcl-web/src/base/fphttpserver.pp +++ b/packages/fcl-web/src/base/fphttpserver.pp @@ -1011,7 +1011,7 @@ begin end; P:=P+1; R:=1; - While (L>=0) and (R>0) do + While (L>0) and (R>0) do begin R:=FSocket.Read(S[p],L); If R<0 then