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

LLDB Debugger: fix dangling event

Browse Source 
git-svn-id: trunk@58383 -
This commit is contained in:
martin 2018-06-22 20:26:59 +00:00
parent 00e814dac8
commit d7f9413b9a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
View File

@ -233,8 +233,9 @@ type
protected
procedure DoExecute; override;
public
property CurrentCallStack: TCallStackBase read FCurrentCallStack;
constructor Create(AOwner: TLldbDebugger; ACurrentCallStack: TCallStackBase);
destructor Destroy; override;
property CurrentCallStack: TCallStackBase read FCurrentCallStack;
end;
{ TLldbCallStack }
@ -502,6 +503,12 @@ begin
FCurrentCallStack.AddFreeNotification(@DoCallstackFreed);
end;
destructor TLldbDebuggerCommandCallStack.Destroy;
begin
FCurrentCallStack.RemoveFreeeNotification(@DoCallstackFreed);
inherited Destroy;
end;
{ TLldbCallStack }
procedure TLldbCallStack.ParentRequestEntries(ACallstack: TCallStackBase);