paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 19:30:17 +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
parent 1df255cddf
commit 168b158514
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 Var
B : TBytes; B : TBytes;
hash : TSHA1Digest; {%H-}hash : TSHA1Digest;
K : string; K : string;
begin begin
// respond key // respond key
@ -1410,7 +1410,7 @@ begin
if not (woCloseExplicit in Options) then if not (woCloseExplicit in Options) then
begin begin
if (aFrame.Reason<CLOSE_NORMAL_CLOSURE) or if (aFrame.Reason<CLOSE_NORMAL_CLOSURE) or
(aFrame.Reason=CLOSE_RESERVER) or (aFrame.Reason=CLOSE_RESERVER) or
(aFrame.Reason=CLOSE_NO_STATUS_RCVD) or (aFrame.Reason=CLOSE_NO_STATUS_RCVD) or
(aFrame.Reason=CLOSE_ABNORMAL_CLOSURE) or (aFrame.Reason=CLOSE_ABNORMAL_CLOSURE) or