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

fcl-web: less hints

Browse Source
This commit is contained in:
mattias 2023-07-07 18:54:00 +02:00 committed by Pierre Muller
parent 9d6fa7d153
commit 3d6c540d19
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-web/src/websocket/fpwebsocket.pp
View File

@ -538,7 +538,7 @@ procedure TWSHandShakeResponse.ToStrings(aHandShake: TWSHandshakeRequest; aRespo
Var
B : TBytes;
hash : TSHA1Digest;
{%H-}hash : TSHA1Digest;
K : string;
begin
// respond key
@ -1410,7 +1410,7 @@ begin
if not (woCloseExplicit in Options) then
begin
if (aFrame.Reason<CLOSE_NORMAL_CLOSURE) or
if (aFrame.Reason<CLOSE_NORMAL_CLOSURE) or
(aFrame.Reason=CLOSE_RESERVER) or
(aFrame.Reason=CLOSE_NO_STATUS_RCVD) or
(aFrame.Reason=CLOSE_ABNORMAL_CLOSURE) or