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

* Fixed memleaks

Browse Source 
git-svn-id: trunk@17452 -
This commit is contained in:
marc 2008-11-19 23:14:39 +00:00
parent e3e4988008
commit 13f948b3ca
4 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/callstackdlg.pp
View File

@ -222,6 +222,7 @@ end;
destructor TCallStackDlg.Destroy; destructor TCallStackDlg.Destroy;
begin begin
SetCallstack(nil);
FCallStackNotification.OnChange := nil; FCallStackNotification.OnChange := nil;
FCallStackNotification.ReleaseReference; FCallStackNotification.ReleaseReference;
inherited Destroy; inherited Destroy;

1
debugger/localsdlg.pp
View File

@ -77,6 +77,7 @@ end;
destructor TLocalsDlg.Destroy; destructor TLocalsDlg.Destroy;
begin begin
SetLocals(nil);
FLocalsNotification.OnChange := nil; FLocalsNotification.OnChange := nil;
FLocalsNotification.ReleaseReference; FLocalsNotification.ReleaseReference;
inherited Destroy; inherited Destroy;

1
debugger/registersdlg.pp
View File

@ -77,6 +77,7 @@ end;
destructor TRegistersDlg.Destroy; destructor TRegistersDlg.Destroy;
begin begin
SetRegisters(nil);
FRegistersNotification.OnChange := nil; FRegistersNotification.OnChange := nil;
FRegistersNotification.ReleaseReference; FRegistersNotification.ReleaseReference;
inherited Destroy; inherited Destroy;

2
ide/debugmanager.pas
View File

@ -1526,7 +1526,6 @@ begin
FDebugger := nil; FDebugger := nil;
FBreakPoints := TManagedBreakPoints.Create(Self); FBreakPoints := TManagedBreakPoints.Create(Self);
FBreakPointGroups := TIDEBreakPointGroups.Create; FBreakPointGroups := TIDEBreakPointGroups.Create;
FWatches := TManagedWatches.Create(Self); FWatches := TManagedWatches.Create(Self);
FExceptions := TManagedExceptions.Create(Self); FExceptions := TManagedExceptions.Create(Self);
FSignals := TManagedSignals.Create(Self); FSignals := TManagedSignals.Create(Self);
@ -1557,6 +1556,7 @@ begin
FreeAndNil(FExceptions); FreeAndNil(FExceptions);
FreeAndNil(FSignals); FreeAndNil(FSignals);
FreeAndNil(FLocals); FreeAndNil(FLocals);
FreeAndNil(FRegisters);
FreeAndNil(FUserSourceFiles); FreeAndNil(FUserSourceFiles);
FreeAndNil(FHiddenDebugOutputLog); FreeAndNil(FHiddenDebugOutputLog);