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

* Avoid overflow when reading from streams > 2gb

Browse Source 
git-svn-id: trunk@22945 -
This commit is contained in:
michael 2012-11-06 23:41:49 +00:00
parent 3a5b5f03d5
commit a3f7a7fdb4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/classes/streams.inc
View File

@ -592,8 +592,9 @@ begin
Result:=0;
If (FSize>0) and (FPosition<Fsize) and (FPosition>=0) then
begin
Result:=FSize-FPosition;
If Result>Count then Result:=Count;
Result:=Count;
If (Result>(FSize-FPosition)) then
Result:=(FSize-FPosition);
Move ((FMemory+FPosition)^,Buffer,Result);
FPosition:=Fposition+Result;
end;