From 4527a7286577f431a902fd36fc50421c8630eed7 Mon Sep 17 00:00:00 2001
From: mattias <mattias@idefix.freepascal.org>
Date: Mon, 1 Mar 2021 21:31:20 +0000
Subject: [PATCH] rtl: less hints

---
 packages/rtl/generics.collections.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/packages/rtl/generics.collections.pas b/packages/rtl/generics.collections.pas
index de545f0..96ccac2 100644
--- a/packages/rtl/generics.collections.pas
+++ b/packages/rtl/generics.collections.pas
@@ -1263,6 +1263,7 @@ end;
 constructor TDictionary<TKey, TValue>.Create(ACapacity: Integer = 0);
 begin
   FMap:=TJSMap.New;
+  if ACapacity>0 then ; // ToDo
 end;
 
 constructor TDictionary<TKey, TValue>.Create(const Collection: TEnumerable<TMyPair>);
@@ -1653,14 +1654,14 @@ end;
 procedure TThreadList<T>.Remove(const Item: T);
 
 begin
-  RemoveItem(T,TDirection.FromBeginning);
+  RemoveItem(Item,TDirection.FromBeginning);
 end;
 
 procedure TThreadList<T>.RemoveItem(const Item: T; Direction: TDirection);
 begin
   LockList;
   try
-    FList.RemoveItem(T,Direction);
+    FList.RemoveItem(Item,Direction);
   finally
     UnlockList;
   end;
@@ -1704,7 +1705,8 @@ end;
 
 constructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships; ACapacity: Integer);
 begin
-  Create(aOwnerShips);
+  FOwnerShips:=aOwnerships;
+  inherited Create(ACapacity);
 end;
 
 constructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships);