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

LazDebugger, lldb: added asm step support / Issue #34227 Patch by David Jenkins

Browse Source 
git-svn-id: trunk@58897 -
This commit is contained in:
martin 2018-09-06 21:52:19 +00:00
parent d8030ed0be
commit 561246b1f9
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2354,9 +2354,9 @@ end;
function TLldbDebugger.GetSupportedCommands: TDBGCommands;
begin
Result := [dcRun, dcStop, dcStepOver, dcStepInto, dcStepOut, dcEvaluate,
dcEnvironment];
// Result := [dcPause, dcStepOverInstr, dcStepIntoInstr, dcRunTo, dcAttach, dcDetach, dcJumpto,
// dcBreak, dcWatch, dcLocal, dcEvaluate, dcModify, dcEnvironment,
dcStepOverInstr, dcStepIntoInstr, dcEnvironment];
// Result := [dcPause, dcRunTo, dcAttach, dcDetach, dcJumpto,
// dcBreak, dcWatch, dcLocal, dcEvaluate, dcModify,
// dcSetStackFrame, dcDisassemble
// ];
end;
@ -2375,6 +2375,8 @@ begin
dcStepOver: Result := LldbStep(saOver);
dcStepInto: Result := LldbStep(saInto);
dcStepOut: Result := LldbStep(saOut);
dcStepOverInstr: Result := LldbStep(saInsOver);
dcStepIntoInstr: Result := LldbStep(saInsIn);
dcEvaluate: begin
EvalFlags := [];
if high(AParams) >= 1 then
@ -2392,8 +2394,6 @@ begin
// String(AParams[3].VPointer^), String(AParams[4].VPointer^),
// String(AParams[5].VPointer^), Integer(AParams[6].VPointer^))
// {%H-};
// dcStepOverInstr: Result := GDBStepOverInstr;
// dcStepIntoInstr: Result := GDBStepIntoInstr;
end;
finally
UnlockRelease;

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

@ -114,7 +114,7 @@ type
{ TLldbInstructionProcessStep }
TLldbInstructionProcessStepAction = (saContinue, saOver, saInto, saOut);
TLldbInstructionProcessStepAction = (saContinue, saOver, saInto, saOut, saInsIn, saInsOver);
TLldbInstructionProcessStep = class(TLldbInstruction)
protected
@ -696,6 +696,8 @@ begin
saOver: inherited Create('thread step-over');
saInto: inherited Create('thread step-in');
saOut: inherited Create('thread step-out');
saInsIn: inherited Create ('thread step-inst');
saInsOver: inherited Create('thread step-inst-over');
end;
end;