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

* since T(Tag)HashSet always forces the size to a power of 2, use "and"

Browse Source 
rather than "mod" to select the hash bucket

git-svn-id: trunk@32055 -
This commit is contained in:
Jonas Maebe 2015-10-14 16:44:02 +00:00
parent 9431648b6c
commit 231039b224
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cclasses.pas
View File

@ -2881,7 +2881,7 @@ end;
h: LongWord;
begin
h := FPHash(Key, KeyLen);
Entry := @FBucket[h mod FBucketCount];
Entry := @FBucket[h and (FBucketCount-1)];
while Assigned(Entry^) and
not ((Entry^^.HashValue = h) and (Entry^^.KeyLength = KeyLen) and
(CompareByte(Entry^^.Key^, Key^, KeyLen) = 0)) do
@ -2930,7 +2930,7 @@ end;
e := FBucket[i];
while Assigned(e) do
begin
chain := @p[e^.HashValue mod NewCapacity];
chain := @p[e^.HashValue and (NewCapacity-1)];
n := e^.Next;
e^.Next := chain^;
chain^ := e;
@ -2988,7 +2988,7 @@ end;
h: LongWord;
begin
h := FPHash(Key, KeyLen, Tag);
Entry := @PPTagHashSetItem(FBucket)[h mod FBucketCount];
Entry := @PPTagHashSetItem(FBucket)[h and (FBucketCount-1)];
while Assigned(Entry^) and
not ((Entry^^.HashValue = h) and (Entry^^.KeyLength = KeyLen) and
(Entry^^.Tag = Tag) and (CompareByte(Entry^^.Key^, Key^, KeyLen) = 0)) do