paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-17 06:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: less hints

Browse Source
This commit is contained in:
mattias 2021-03-01 21:31:20 +00:00
parent eda9e6b192
commit 4527a72865
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl/generics.collections.pas
View File

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