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

FpDebug: Fix mem leak, if breakpoint is set to "auto destroy"

Browse Source
This commit is contained in:
Martin 2024-01-19 15:43:26 +01:00
parent fd792b5d6f
commit 5d6489a45a
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/fpdebug/fpdbgclasses.pp
View File

@ -478,6 +478,7 @@ type
FEnabled: boolean;
FOn_Thread_StateChange: TFpDbgBreakpointStateChangeEvent;
protected
procedure SetFreeByDbgProcess(AValue: Boolean); virtual;
procedure SetEnabled(AValue: boolean);
function GetState: TFpDbgBreakpointState; virtual;
public
@ -493,7 +494,8 @@ type
procedure ResetBreak; virtual; abstract;
// FreeByDbgProcess: The breakpoint will be freed by TDbgProcess.Destroy
property FreeByDbgProcess: Boolean read FFreeByDbgProcess write FFreeByDbgProcess;
// If the breakpoint does not have a process, it will be destroyed immediately
property FreeByDbgProcess: Boolean read FFreeByDbgProcess write SetFreeByDbgProcess;
property Enabled: boolean read FEnabled write SetEnabled;
property State: TFpDbgBreakpointState read GetState;
// Event runs in dbg-thread
@ -506,6 +508,7 @@ type
private
FProcess: TDbgProcess;
protected
procedure SetFreeByDbgProcess(AValue: Boolean); override;
procedure UpdateForLibraryLoaded(ALib: TDbgLibrary); virtual;
procedure UpdateForLibrareUnloaded(ALib: TDbgLibrary); virtual;
property Process: TDbgProcess read FProcess;
@ -1014,6 +1017,11 @@ begin
Result := bksUnknown;
end;
procedure TFpDbgBreakpoint.SetFreeByDbgProcess(AValue: Boolean);
begin
FFreeByDbgProcess := AValue;
end;
procedure TFpDbgBreakpoint.SetEnabled(AValue: boolean);
begin
if AValue then
@ -3687,6 +3695,13 @@ end;
{ TFpInternalBreakBase }
procedure TFpInternalBreakBase.SetFreeByDbgProcess(AValue: Boolean);
begin
inherited SetFreeByDbgProcess(AValue);
if AValue and (FProcess = nil) then
Destroy;
end;
procedure TFpInternalBreakBase.UpdateForLibraryLoaded(ALib: TDbgLibrary);
begin
//