paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 18:30:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Clear memory correctly when setting capacity (bug id 28928)

Browse Source 
git-svn-id: trunk@32327 -
This commit is contained in:
michael 2015-11-15 11:15:25 +00:00
parent e6b86d9b5b
commit d00d64021b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/stringl.inc
View File

@ -1129,7 +1129,7 @@ begin
If Index<FCount then
System.Move (FList^[Index],FList^[Index+1],
(FCount-Index)*SizeOf(TStringItem));
Pointer(Flist^[Index].Fstring):=Nil; // Needed to initialize...
// Pointer(Flist^[Index].Fstring):=Nil; // Needed to initialize...
Flist^[Index].FString:=S;
Flist^[Index].FObject:=O;
Inc(FCount);
@ -1251,7 +1251,7 @@ begin
begin
MSize:=FCapacity*Sizeof(TStringItem);
System.Move (FList^,NewList^,MSize);
FillWord (Pchar(NewList)[MSize],(NewCapacity-FCapacity)*WordRatio, 0);
FillWord (Pchar(NewList)[MSize],(NewCapacity-FCapacity)*(SizeOf(TStringItem) div SizeOf(Word)), 0);
FreeMem (Flist,MSize);
end;
Flist:=NewList;