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

* Patch from Luiz Americo to remove redundant test

Browse Source 
git-svn-id: trunk@23335 -
This commit is contained in:
michael 2013-01-07 10:36:46 +00:00
parent 2a9e12c709
commit b315d35819
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/custfcgi.pp
View File

@ -417,7 +417,7 @@ var ErrorCode,
r : TFCGIRequest;
begin
if Not (Assigned(Request) and (Request is TFCGIRequest)) then
if Not (Request is TFCGIRequest) then
Raise Exception.Create(SErrNorequest);
R:=TFCGIRequest(Request);
BytesToWrite := BEtoN(ARecord^.contentLength) + ARecord^.paddingLength+sizeof(FCGI_Header);