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

* Fixed reading of name=length pairs with lenfth>128

Browse Source 
git-svn-id: trunk@15881 -
This commit is contained in:
michael 2010-08-23 12:55:26 +00:00
parent 3a07adf27e
commit b4a13f2b33
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/base/custfcgi.pp
View File

@ -207,9 +207,9 @@ var
Result:=ARecord^.ContentData[i]
else
begin
Result:=BEtoN(PWord(@(ARecord^.ContentData[i]))^);
// ((ARecord^.ContentData[i] and $7f) shl 24) + (ARecord^.ContentData[i+1] shl 16)
// + (ARecord^.ContentData[i+2] shl 8) + (ARecord^.ContentData[i+3]);
// Result:=BEtoN(PLongint(@(ARecord^.ContentData[i]))^);
Result:=((ARecord^.ContentData[i] and $7f) shl 24) + (ARecord^.ContentData[i+1] shl 16)
+ (ARecord^.ContentData[i+2] shl 8) + (ARecord^.ContentData[i+3]);
inc(i,3);
end;
inc(i);
@ -555,6 +555,7 @@ begin
end;
Finally
FreeMem(AFCGI_Record);
AFCGI_Record:=Nil;
end;
until (1<>1);
end;