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

LazDebugger(Fp)Lldb: fix correct stackframe/thread for registers

Browse Source 
git-svn-id: trunk@60004 -
This commit is contained in:
martin 2019-01-05 15:25:30 +00:00
parent 0f75fd5454
commit c5cd6d5335
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1237,11 +1237,16 @@ end;
procedure TLldbDebuggerCommandLocals.DoExecute;
begin
if FLocals = nil then begin
Finished;
exit;
end;
if FLocalsInstr <> nil then begin
FLocalsInstr.OnFinish := nil;
ReleaseRefAndNil(FLocalsInstr);
end;
FLocalsInstr := TLldbInstructionLocals.Create();
FLocalsInstr := TLldbInstructionLocals.Create(FLocals.ThreadId, FLocals.StackFrame);
FLocalsInstr.OnFinish := @LocalsInstructionFinished;
QueueInstruction(FLocalsInstr);
end;

6
components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
View File

@ -276,7 +276,7 @@ type
function ProcessInputFromDbg(const AData: String): Boolean; override;
procedure SendCommandDataToDbg(); override;
public
constructor Create;
constructor Create(AThread, AFrame: Integer);
destructor Destroy; override;
property Res: TStringList read FRes;
end;
@ -1025,9 +1025,9 @@ begin
Queue.SendDataToDBG(Self, 'version'); // end marker // do not sent before new prompt
end;
constructor TLldbInstructionLocals.Create;
constructor TLldbInstructionLocals.Create(AThread, AFrame: Integer);
begin
inherited Create('frame variable -P 1 -D 5'); // TODO: make -D 5 configurable
inherited Create('frame variable -P 1 -D 5', AThread, AFrame); // TODO: make -D 5 configurable
FRes := TStringList.Create;
end;