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

* fixed bug in realloc and setcapacity of tmemorystream

Browse Source
This commit is contained in:
michael 1999-07-18 20:58:47 +00:00
parent d47e0e0e11
commit 8413f064a8
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fcl/inc/streams.inc
View File

@ -414,7 +414,9 @@ begin
If NewCapacity>0 Then // round off to block size.
NewCapacity := (NewCapacity + (TMSGrow-1)) and not (TMSGROW-1);
// Only now check !
If NewCapacity<>FCapacity then
If NewCapacity=FCapacity then
Result:=FMemory
else
If NewCapacity=0 then
FreeMem (FMemory,Fcapacity)
else
@ -477,8 +479,9 @@ procedure TMemoryStream.SetSize(NewSize: Longint);
begin
SetCapacity (NewSize);
If FSize>NewSize then FSize:=NewSize;
IF FPosition>FSize then FPosition:=FSize;
FSize:=NewSize;
IF FPosition>FSize then
FPosition:=FSize;
end;
@ -616,7 +619,10 @@ end;
{
$Log$
Revision 1.13 1999-04-08 10:18:55 peter
Revision 1.14 1999-07-18 20:58:47 michael
* fixed bug in realloc and setcapacity of tmemorystream
Revision 1.13 1999/04/08 10:18:55 peter
* makefile updates
}