paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for Mantis #35921: apply patch by Maciej Izak

Browse Source 
git-svn-id: trunk@42556 -
This commit is contained in:
svenbarth 2019-08-02 13:16:07 +00:00
parent 3195b64599
commit e8a7661bcf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-generics/src/generics.collections.pas
View File

@ -747,8 +747,8 @@ type
function Remove(constref AKey: TKey; ADisposeNode: boolean = true): boolean; function Remove(constref AKey: TKey; ADisposeNode: boolean = true): boolean;
function ExtractPair(constref AKey: TKey; ADisposeNode: boolean = true): TTreePair; overload; function ExtractPair(constref AKey: TKey; ADisposeNode: boolean = true): TTreePair; overload;
function ExtractPair(constref ANode: PNode; ADispose: boolean = true): TTreePair; overload; function ExtractPair(constref ANode: PNode; ADispose: boolean = true): TTreePair; overload;
function ExtractNode(constref AKey: TKey; ADisposeNode: boolean): PNode; overload; function Extract(constref AKey: TKey; ADisposeNode: boolean): PNode;
function ExtractNode(ANode: PNode; ADispose: boolean): PNode; overload; function ExtractNode(ANode: PNode; ADispose: boolean): PNode;
procedure Delete(ANode: PNode; ADispose: boolean = true); inline; procedure Delete(ANode: PNode; ADispose: boolean = true); inline;
function GetEnumerator: TPairEnumerator; function GetEnumerator: TPairEnumerator;
@ -3430,7 +3430,7 @@ begin
Result.Value := DoRemove(ANode, cnExtracted, ADispose); Result.Value := DoRemove(ANode, cnExtracted, ADispose);
end; end;
function TCustomAVLTreeMap<TREE_CONSTRAINTS>.ExtractNode(constref AKey: TKey; ADisposeNode: boolean): PNode; function TCustomAVLTreeMap<TREE_CONSTRAINTS>.Extract(constref AKey: TKey; ADisposeNode: boolean): PNode;
begin begin
Result:=Find(AKey); Result:=Find(AKey);
if Result<>nil then if Result<>nil then