Browse Source

* Reinstate GenericsHash as default hash

git-svn-id: trunk@39358 -
michael 7 years ago
parent
commit
da249dacdd
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl-generics/src/generics.defaults.pas

+ 1 - 1
packages/rtl-generics/src/generics.defaults.pas

@@ -955,7 +955,7 @@ type
     class procedure GetHashList(AKey: Pointer; ASize: SizeInt; AHashList: PUInt32; AOptions: TGetHashListOptions = []); override;
     class procedure GetHashList(AKey: Pointer; ASize: SizeInt; AHashList: PUInt32; AOptions: TGetHashListOptions = []); override;
   end;
   end;
 
 
-  TDefaultHashFactory = TDelphiQuadrupleHashFactory;
+  TDefaultHashFactory = TGenericsHashFactory;
 
 
   TDefaultGenericInterface = (giComparer, giEqualityComparer, giExtendedEqualityComparer);
   TDefaultGenericInterface = (giComparer, giEqualityComparer, giExtendedEqualityComparer);