From 22dc8af121cd709fcac8d78a3fab26fbba4ca525 Mon Sep 17 00:00:00 2001
From: obones <obones@free.fr>
Date: Wed, 9 Sep 2020 15:08:15 +0200
Subject: [PATCH] Must call the inherited constructor, or this causes an
 infinite recursion

---
 Source/Collections.Dictionary.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/Collections.Dictionary.pas b/Source/Collections.Dictionary.pas
index 52528ec..85f5fae 100644
--- a/Source/Collections.Dictionary.pas
+++ b/Source/Collections.Dictionary.pas
@@ -266,7 +266,7 @@ constructor TObjectDictionary<TKey,TValue>(Ownerships: TDictionaryOwnerships; co
 
 constructor TObjectDictionary<TKey,TValue>(Ownerships: TDictionaryOwnerships; ACapacity: Integer; const AComparer: IEqualityComparer<TKey>);
 begin
-  constructor(ACapacity, AComparer);
+  inherited constructor(ACapacity, AComparer);
 
   FOwnerships := Ownerships;
 end;