forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

prevent range error when hashing

This commit is contained in:
Basile Burg 2016-07-04 20:37:03 +02:00
parent 029f9bd751
commit e7d545bcad
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_common.pas
View File

@ -309,6 +309,7 @@ class function TStringHash.hash(const key: string; maxBucketsPow2: longword): lo
var var
i: integer; i: integer;
begin begin
{$PUSH}{$R-}
result := 2166136261; result := 2166136261;
for i:= 1 to key.length do for i:= 1 to key.length do
begin begin
@ -316,6 +317,7 @@ begin
result *= 16777619; result *= 16777619;
end; end;
result := result and (maxBucketsPow2-1); result := result and (maxBucketsPow2-1);
{$POP}
end; end;
class function TObjectHash.hash(key: TObject; maxBucketsPow2: longword): longword; class function TObjectHash.hash(key: TObject; maxBucketsPow2: longword): longword;
@ -323,6 +325,7 @@ var
ptr: PByte; ptr: PByte;
i: integer; i: integer;
begin begin
{$PUSH}{$R-}
ptr := PByte(key); ptr := PByte(key);
result := 2166136261; result := 2166136261;
{$IFDEF CPU32} {$IFDEF CPU32}
@ -336,6 +339,7 @@ begin
ptr += 1; ptr += 1;
end; end;
result := result and (maxBucketsPow2-1); result := result and (maxBucketsPow2-1);
{$POP}
end; end;
procedure TCEPersistentShortcut.assign(aValue: TPersistent); procedure TCEPersistentShortcut.assign(aValue: TPersistent);