paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 07:09:31 +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} {$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] A'); DebugLn('[TCodeToolManager.Destroy] A');
{$ENDIF} {$ENDIF}
GlobalValues.Free; FreeAndNil(GlobalValues);
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] B'); DebugLn('[TCodeToolManager.Destroy] B');
{$ENDIF} {$ENDIF}
Positions.Free; FreeAndNil(Positions);
IdentifierHistory.Free; FreeAndNil(IdentifierHistory);
IdentifierList.Free; FreeAndNil(IdentifierList);
FSourceTools.FreeAndClear; FSourceTools.FreeAndClear;
FSourceTools.Free; FreeAndNil(FSourceTools);
FResourceTool.Free; FreeAndNil(FResourceTool);
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] C'); DebugLn('[TCodeToolManager.Destroy] C');
{$ENDIF} {$ENDIF}
DefineTree.Free; FreeAndNil(DefineTree);
DefinePool.Free; FreeAndNil(DefinePool);
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] D'); DebugLn('[TCodeToolManager.Destroy] D');
{$ENDIF} {$ENDIF}
SourceChangeCache.Free; FreeAndNil(SourceChangeCache);
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] E'); DebugLn('[TCodeToolManager.Destroy] E');
{$ENDIF} {$ENDIF}
SourceCache.Free; FreeAndNil(SourceCache);
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TCodeToolManager.Destroy] F'); DebugLn('[TCodeToolManager.Destroy] F');
{$ENDIF} {$ENDIF}

10
components/codetools/identcompletiontool.pas
View File

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