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

* Patch from Vincent Snijders to grow memory stream by a quarter of its size

Browse Source 
git-svn-id: trunk@5581 -
This commit is contained in:
michael 2006-12-13 19:17:39 +00:00
parent 9d3c23bb80
commit 2eda10c74c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -535,11 +535,17 @@ end;
function TMemoryStream.Realloc(var NewCapacity: Longint): Pointer; function TMemoryStream.Realloc(var NewCapacity: Longint): Pointer;
begin begin
// round off to block size.
If NewCapacity<0 Then If NewCapacity<0 Then
NewCapacity:=0 NewCapacity:=0
else else
NewCapacity := (NewCapacity + (TMSGrow-1)) and not (TMSGROW-1); begin
// if growing, grow at least a quarter
if (NewCapacity>FCapacity) and (NewCapacity < (5*FCapacity) div 4) then
NewCapacity := (5*FCapacity) div 4;
// round off to block size.
NewCapacity := (NewCapacity + (TMSGrow-1)) and not (TMSGROW-1);
end;
// Only now check ! // Only now check !
If NewCapacity=FCapacity then If NewCapacity=FCapacity then
Result:=FMemory Result:=FMemory