Преглед изворни кода

- remove further unnecessary sub classing of a specialization

Sven/Sarah Barth пре 8 месеци
родитељ
комит
72a3729ca0
1 измењених фајлова са 1 додато и 1 уклоњено
  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;