瀏覽代碼

- 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;