paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: stringhashlist: disable range checking in hash function

Browse Source 
git-svn-id: trunk@14255 -
This commit is contained in:
mattias 2008-02-26 10:06:52 +00:00
parent 8b91f41f9e
commit 9e72cfb939
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/stringhashlist.pas
View File

@ -269,6 +269,8 @@ begin
P:= PChar(Key);
Len:= Length(Key);
Result := Len;
{$IFOPT R+}{$DEFINE RangeChecking}{$ENDIF}
{$R-}
// use the last 30 characters to compute the hash
case fCaseSensitive of
True:
@ -278,6 +280,7 @@ begin
for I := Len - 1 downto 0 do
inc(Result, cardinal(ord(UpperCaseChars[P[I]])) shl I);
end;
{$IFDEF RangeChecking}{$R+}{$UNDEF RangeChecking}{$ENDIF}
end;
procedure TStringHashList.Insert(Index: Integer; Item: PStringHashItem);