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

LazDebuggerFpLLDB: Fix potential dangling pointer in Locals eval.

Browse Source 
git-svn-id: trunk@59802 -
This commit is contained in:
martin 2018-12-12 13:46:01 +00:00
parent 5c4bd12dd3
commit 9de85d233b
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
View File

@ -189,6 +189,7 @@ type
private
FOwner: TFPLldbLocals;
FLocals: TLocals;
procedure DoLocalsFreed(Sender: TObject);
protected
procedure DoExecute; override;
public
@ -260,9 +261,17 @@ type
{ TFpLldbDebuggerCommandLocals }
procedure TFpLldbDebuggerCommandLocals.DoLocalsFreed(Sender: TObject);
begin
FLocals := nil;
end;
procedure TFpLldbDebuggerCommandLocals.DoExecute;
begin
if FLocals <> nil then begin
FOwner.ProcessLocals(FLocals);
FLocals.RemoveFreeNotification(@DoLocalsFreed);
end;
Finished;
end;
@ -271,6 +280,7 @@ begin
inherited Create(AOwner.FpDebugger);
FOwner := AOwner;
FLocals := ALocals;
FLocals.AddFreeNotification(@DoLocalsFreed);
////// Priority := 1; // before watches
end;