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

codetools: fixed mem leak

Browse Source 
git-svn-id: trunk@20125 -
This commit is contained in:
mattias 2009-05-22 14:23:42 +00:00
parent b2377c0c8b
commit aba18655f4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecompletiontool.pas
View File

@ -5746,7 +5746,8 @@ var
while BodyAVLNode<>nil do begin
BodyNodeExt:=TCodeTreeNodeExtension(BodyAVLNode.Data);
if ClassProcs.Find(BodyNodeExt)=nil then begin
BodiesWithoutDefs:=TAVLTree.Create(@CompareCodeTreeNodeExt);
if BodiesWithoutDefs=nil then
BodiesWithoutDefs:=TAVLTree.Create(@CompareCodeTreeNodeExt);
BodiesWithoutDefs.Add(BodyNodeExt);
end;
BodyAVLNode:=ProcBodyNodes.FindSuccessor(BodyAVLNode);
@ -5761,7 +5762,8 @@ var
if (ProcBodyNodes.Find(DefNodeExt)=nil)
and (not ProcNodeHasSpecifier(DefNodeExt.Node,psABSTRACT)) then begin
// move proc definition from ClassProcs to DefsWithoutBodies
DefsWithoutBodies:=TAVLTree.Create(@CompareCodeTreeNodeExt);
if DefsWithoutBodies=nil then
DefsWithoutBodies:=TAVLTree.Create(@CompareCodeTreeNodeExt);
DefsWithoutBodies.Add(DefNodeExt);
end;
end;