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

whitespace cleanup

Browse Source
This commit is contained in:
Ondrej Pokorny 2025-02-25 20:23:57 +01:00 committed by Michael Van Canneyt
parent 610972b26c
commit e2c9661234
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -945,7 +945,7 @@ begin
Delete(FBuffer,1,1);
Done:=True;
end;
CheckLF:=False;
CheckLF:=False;
end;
if not Done then
begin
@ -1053,9 +1053,9 @@ procedure TFPHTTPConnection.ParseStartLine(Request : TFPHTTPConnectionRequest;
Var
S : String;
I : Integer;
begin
if aStartLine='' then
if aStartLine='' then
exit;
Request.Method:=GetNextWord(AStartLine);
Request.URL:=GetNextWord(AStartLine);
@ -1065,7 +1065,7 @@ begin
S:=Copy(S,1,I-1);
If (Length(S)>1) and (S[1]<>'/') then
S:='/'+S
else if S='/' then
else if S='/' then
S:='';
Request.PathInfo:=S;
S:=GetNextWord(AStartLine);
@ -1114,7 +1114,7 @@ begin
P:=P+R;
L:=L-R;
end;
end;
end;
end;
ARequest.ContentBytes:=S;
end;
@ -1182,7 +1182,7 @@ begin
if Assigned(FServer) then
Result:=FServer.LookupHostNames
else
Result:=False;
Result:=False;
end;
procedure TFPHTTPConnection.AllocateConnectionID;