paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:09:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* avoid range check error and overflow in objpas.hash, should resolve #39561

Browse Source
This commit is contained in:
florian 2022-02-12 14:26:31 +01:00
parent ee2d2a4bd4
commit 15b7a8763f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/objpas.pp
View File

@ -336,7 +336,10 @@ begin
For I:=1 to Length(S) do { 0 terminated }
begin
thehash:=thehash shl 4;
{$push}
{$R-}{$Q-}
inc(theHash,Ord(S[i]));
{$pop}
g:=thehash and LongWord($f shl 28);
if g<>0 then
begin