paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-17 05:49:05 +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); constructor TDictionary<TKey, TValue>.Create(ACapacity: Integer = 0);
begin begin
FMap:=TJSMap.New; FMap:=TJSMap.New;
if ACapacity>0 then ; // ToDo
end; end;
constructor TDictionary<TKey, TValue>.Create(const Collection: TEnumerable<TMyPair>); constructor TDictionary<TKey, TValue>.Create(const Collection: TEnumerable<TMyPair>);
@ -1653,14 +1654,14 @@ end;
procedure TThreadList<T>.Remove(const Item: T); procedure TThreadList<T>.Remove(const Item: T);
begin begin
RemoveItem(T,TDirection.FromBeginning); RemoveItem(Item,TDirection.FromBeginning);
end; end;
procedure TThreadList<T>.RemoveItem(const Item: T; Direction: TDirection); procedure TThreadList<T>.RemoveItem(const Item: T; Direction: TDirection);
begin begin
LockList; LockList;
try try
FList.RemoveItem(T,Direction); FList.RemoveItem(Item,Direction);
finally finally
UnlockList; UnlockList;
end; end;
@ -1704,7 +1705,8 @@ end;
constructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships; ACapacity: Integer); constructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships; ACapacity: Integer);
begin begin
Create(aOwnerShips); FOwnerShips:=aOwnerships;
inherited Create(ACapacity);
end; end;
constructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships); constructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships);