paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 19:18:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed TPointerToPointerTree.DisposeItem

Browse Source 
git-svn-id: trunk@42726 -
This commit is contained in:
mattias 2013-09-10 20:04:56 +00:00
parent 15838492b6
commit 376c2af303
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/codetools/codetoolsstructs.pas
View File

@ -91,22 +91,22 @@ type
TPointerToPointerTree = class
private
FTree: TAVLTree;// tree of PPointerToPointerItem
function GetItems(const Key: Pointer): Pointer;
procedure SetItems(const Key: Pointer; AValue: Pointer);
function GetItems(Key: Pointer): Pointer;
procedure SetItems(Key: Pointer; AValue: Pointer);
protected
procedure DisposeItem(p: PPointerToPointerItem); virtual;
public
constructor Create;
destructor Destroy; override;
procedure Clear; virtual;
function Contains(const Key: Pointer): boolean;
procedure Remove(const Key: Pointer); virtual;
function Contains(Key: Pointer): boolean;
procedure Remove(Key: Pointer); virtual;
property Tree: TAVLTree read FTree; // tree of PPointerToPointerItem
function GetNodeData(AVLNode: TAVLTreeNode): PPointerToPointerItem; inline;
function Count: integer;
function FindNode(const Key: Pointer): TAVLTreeNode;
procedure Add(const Key, Value: Pointer); virtual;
property Items[const Key: Pointer]: Pointer read GetItems write SetItems; default;
function FindNode(Key: Pointer): TAVLTreeNode;
procedure Add(Key, Value: Pointer); virtual;
property Items[Key: Pointer]: Pointer read GetItems write SetItems; default;
end;
TStringMap = class;
@ -492,7 +492,7 @@ end;
{ TPointerToPointerTree }
function TPointerToPointerTree.GetItems(const Key: Pointer): Pointer;
function TPointerToPointerTree.GetItems(Key: Pointer): Pointer;
var
Node: TAVLTreeNode;
begin
@ -503,7 +503,7 @@ begin
Result:=nil;
end;
procedure TPointerToPointerTree.SetItems(const Key: Pointer; AValue: Pointer);
procedure TPointerToPointerTree.SetItems(Key: Pointer; AValue: Pointer);
var
Node: TAVLTreeNode;
NewItem: PPointerToPointerItem;
@ -521,7 +521,7 @@ end;
procedure TPointerToPointerTree.DisposeItem(p: PPointerToPointerItem);
begin
DisposeItem(p);
Dispose(p);
end;
constructor TPointerToPointerTree.Create;
@ -548,12 +548,12 @@ begin
FTree.Clear;
end;
function TPointerToPointerTree.Contains(const Key: Pointer): boolean;
function TPointerToPointerTree.Contains(Key: Pointer): boolean;
begin
Result:=FindNode(Key)<>nil;
end;
procedure TPointerToPointerTree.Remove(const Key: Pointer);
procedure TPointerToPointerTree.Remove(Key: Pointer);
var
Node: TAVLTreeNode;
Item: PPointerToPointerItem;
@ -577,12 +577,12 @@ begin
Result:=FTree.Count;
end;
function TPointerToPointerTree.FindNode(const Key: Pointer): TAVLTreeNode;
function TPointerToPointerTree.FindNode(Key: Pointer): TAVLTreeNode;
begin
Result:=FTree.FindKey(Key,@ComparePointerAndP2PItem);
end;
procedure TPointerToPointerTree.Add(const Key, Value: Pointer);
procedure TPointerToPointerTree.Add(Key, Value: Pointer);
begin
Items[Key]:=Value;
end;