Parcourir la source

- remove further unnecessary sub classing of a specialization

Sven/Sarah Barth il y a 7 mois
Parent
commit
72a3729ca0
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      packages/rtl-generics/src/inc/generics.dictionariesh.inc

+ 1 - 1
packages/rtl-generics/src/inc/generics.dictionariesh.inc

@@ -450,7 +450,7 @@ type
     TCDM = class(TOpenAddressingSH<TKey, TEmptyRecord, TDefaultHashFactory, TLinearProbing>);
     TItemsArray = array of TItem;
     TItemsDArray = array[0..Pred(TCuckooCfg.D)] of TItemsArray;
-    TPointersEnumerator = class(TDeamortizedDArrayPointersEnumerator<TCuckooCfg, TItemsArray, TItemsDArray, TQueueDictionary, PDictionaryPair>);
+    TPointersEnumerator = TDeamortizedDArrayPointersEnumerator<TCuckooCfg, TItemsArray, TItemsDArray, TQueueDictionary, PDictionaryPair>;
     TPointersCollection = TDeamortizedDArrayPointersCollection<TPointersEnumerator, TItemsDArray, TQueueDictionary, PDictionaryPair>;
   public type
     PPointersCollection = ^TPointersCollection;