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

LazDebugger(Fp)Lldb: improve cancel watch eval (cancel current watch, in mem-reader), on receiving run/step request

Browse Source 
git-svn-id: trunk@60652 -
This commit is contained in:
martin 2019-03-11 13:45:22 +00:00
parent 767e4c056c
commit 19b18e1f67
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,10 +45,12 @@ type
//FThreadId: Integer;
//FStackFrame: Integer;
FDebugger: TFpLldbDebugger;
FEnabled: Boolean;
//FCmd: TLldbDebuggerCommandMemReader;
protected
// TODO: needs to be handled by memory manager
//FThreadId, FStackFrame: Integer;
property Enabled: Boolean read FEnabled write FEnabled;
public
constructor Create(ADebugger: TFpLldbDebugger);
destructor Destroy; override;
@ -152,6 +154,7 @@ type
property TargetPID;
{$EndIf}
property DebugInstructionQueue;
property MemReader: TFpLldbDbgMemReader read FMemReader;
protected
procedure DoWatchFreed(Sender: TObject);
function EvaluateExpression(AWatchValue: TWatchValue;
@ -368,6 +371,8 @@ begin
FOwner.ProcessLocals(FLocals);
FLocals.RemoveFreeNotification(@DoLocalsFreed);
end;
if TFpLldbDebugger(Debugger).MemReader <> nil then
TFpLldbDebugger(Debugger).MemReader.Enabled := True;
Finished;
end;
@ -375,6 +380,8 @@ procedure TFpLldbDebuggerCommandLocals.DoCancel;
begin
inherited DoCancel;
FOwner.FLocalsEvalCancel := True;
if TFpLldbDebugger(Debugger).MemReader <> nil then
TFpLldbDebugger(Debugger).MemReader.Enabled := False;
end;
constructor TFpLldbDebuggerCommandLocals.Create(AOwner: TFPLldbLocals; ALocals: TLocals);
@ -478,6 +485,8 @@ begin
FOwner.FEvaluationCmdObj := nil;
FOwner.ProcessEvalList;
Finished;
if TFpLldbDebugger(Debugger).FMemReader <> nil then
TFpLldbDebugger(Debugger).FMemReader.Enabled := True;
end;
procedure TFpLldbDebuggerCommandEvaluate.DoFree;
@ -490,6 +499,8 @@ procedure TFpLldbDebuggerCommandEvaluate.DoCancel;
begin
inherited DoCancel;
FOwner.FWatchEvalCancel := True;
if TFpLldbDebugger(Debugger).FMemReader <> nil then
TFpLldbDebugger(Debugger).FMemReader.Enabled := False;
end;
//procedure TFpLldbDebuggerCommandEvaluate.DoCancel;
@ -557,6 +568,7 @@ end;
constructor TFpLldbDbgMemReader.Create(ADebugger: TFpLldbDebugger);
begin
FDebugger := ADebugger;
FEnabled := True;
//FCmd := TLldbDebuggerCommandMemReader.Create(ADebugger);
end;
@ -573,6 +585,8 @@ var
InStr: TLldbInstructionMemory;
begin
Result := False;
if not Enabled then
Exit;
InStr := TLldbInstructionMemory.Create(AnAddress, ASize);
try
FDebugger.DebugInstructionQueue.QueueInstruction(InStr);
@ -614,6 +628,8 @@ var
QItem: TLldbDebuggerCommand;
begin
Result := False;
if not Enabled then
Exit;
// WINDOWS gdb dwarf names
@ -1090,6 +1106,8 @@ procedure TFpLldbDebugger.DoState(const OldState: TDBGState);
var
i: Integer;
begin
if FMemReader <> nil then
FMemReader.Enabled := True;
inherited DoState(OldState);
if State in [dsStop, dsError, dsNone] then
UnLoadDwarf;

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

@ -2187,10 +2187,12 @@ begin
FIsRunning := True;
d := Debugger;
try
AddReference;
d.LockRelease;
DoExecute; // may call Finished and Destroy Self
finally
d.UnlockRelease;
ReleaseReference;
end;
end;