paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 16:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix for bug report #39661

Browse Source
This commit is contained in:
Pierre Muller 2022-04-11 09:24:41 +00:00 committed by FPK
parent 4c5fc2f958
commit 379c1414a7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symbase.pas
View File

@ -173,7 +173,7 @@ implementation
if length(FId)>maxidlen then if length(FId)>maxidlen then
SetLength(FId,maxidlen); SetLength(FId,maxidlen);
{$endif} {$endif}
FHash:=FPHash(s); FHash:=FPHash(FId);
end; end;