paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 20:27:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix SysUtils.HashName as proposed by Awkward in #39827, resolves #39827

Browse Source 
* adapted to syscodepages.inc for the fixed HashName
This commit is contained in:
florian 2022-07-06 20:07:39 +02:00
parent 1d32a575e7
commit 4fecfe3df3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/sysutils/sysansi.inc
View File

@ -64,10 +64,11 @@ end;
Function HashName(Name: PAnsiChar): LongWord; Function HashName(Name: PAnsiChar): LongWord;
Var Var
thehash,g,I : LongWord; thehash,g : LongWord;
I : SizeInt;
begin begin
thehash:=0; thehash:=0;
For I:=1 to Length(Name) do { 0 terminated } For I:=0 to StrLen(Name)-1 do { 0 terminated }
begin begin
thehash:=thehash shl 4; thehash:=thehash shl 4;
inc(theHash,Ord(UpCase(Name[i]))); inc(theHash,Ord(UpCase(Name[i])));