paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:26:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed overallocation of buckets in T(Tag)HashSet after resize

Browse Source 
git-svn-id: trunk@32043 -
This commit is contained in:
Jonas Maebe 2015-10-13 15:58:57 +00:00
parent 192bb3e032
commit dff35e7d03
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cclasses.pas
View File

@ -2924,7 +2924,7 @@ end;
i: Integer; i: Integer;
e, n: PHashSetItem; e, n: PHashSetItem;
begin begin
p := AllocMem(NewCapacity * SizeOfItem); p := AllocMem(NewCapacity * SizeOf(PHashSetItem));
for i := 0 to FBucketCount-1 do for i := 0 to FBucketCount-1 do
begin begin
e := FBucket[i]; e := FBucket[i];