paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make dictionary constructor behave as Delphi does in absence of comparer

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-22 16:29:33 +01:00
parent 63237dd375
commit 45cb7d1eff
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-generics/src/inc/generics.dictionaries.inc
View File

@ -1059,7 +1059,11 @@ constructor TOpenAddressingDH<OPEN_ADDRESSING_CONSTRAINTS>.Create(ACapacity: Siz
const AComparer: IExtendedEqualityComparer<TKey>);
begin
FMaxLoadFactor := TProbeSequence.DEFAULT_LOAD_FACTOR;
FEqualityComparer := AComparer;
// Delphi creates one if you pass nil...
if aComparer=Nil then
FEqualityComparer := TExtendedEqualityComparer<TKey>.Default(THashFactory)
else
FEqualityComparer := AComparer;
SetCapacity(ACapacity);
end;