paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 23:29:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

harden clean ups to spot mem leaks earlier

Browse Source 
git-svn-id: trunk@7258 -
This commit is contained in:
mattias 2005-06-20 18:35:17 +00:00
parent 4b813aac5d
commit 717c3cbef7
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/codetoolmanager.pas
View File

@ -572,29 +572,29 @@ begin
{$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] A');
{$ENDIF}
GlobalValues.Free;
FreeAndNil(GlobalValues);
{$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] B');
{$ENDIF}
Positions.Free;
IdentifierHistory.Free;
IdentifierList.Free;
FreeAndNil(Positions);
FreeAndNil(IdentifierHistory);
FreeAndNil(IdentifierList);
FSourceTools.FreeAndClear;
FSourceTools.Free;
FResourceTool.Free;
FreeAndNil(FSourceTools);
FreeAndNil(FResourceTool);
{$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] C');
{$ENDIF}
DefineTree.Free;
DefinePool.Free;
FreeAndNil(DefineTree);
FreeAndNil(DefinePool);
{$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] D');
{$ENDIF}
SourceChangeCache.Free;
FreeAndNil(SourceChangeCache);
{$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] E');
{$ENDIF}
SourceCache.Free;
FreeAndNil(SourceCache);
{$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] F');
{$ENDIF}

10
components/codetools/identcompletiontool.pas
View File

@ -475,11 +475,11 @@ end;
destructor TIdentifierList.Destroy;
begin
Clear;
FItems.Free;
FIdentView.Free;
FFilteredList.Free;
FIdentSearchItem.Free;
FCreatedIdentifiers.Free;
FreeAndNil(FItems);
FreeAndNil(FIdentView);
FreeAndNil(FFilteredList);
FreeAndNil(FIdentSearchItem);
FreeAndNil(FCreatedIdentifiers);
inherited Destroy;
end;