paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 11:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'update-avr' into 'main'

Browse Source 
Implement SetStackPointerRegisterValue and SetInstructionPointerRegisterValue for AVR.

See merge request freepascal.org/lazarus/lazarus!271
This commit is contained in:
Martin 2024-02-08 09:37:25 +00:00
commit 077368e6e3
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgavrclasses.pas
View File

@ -91,6 +91,7 @@ end;
procedure LoadRegisterValues; override;
procedure SetRegisterValue(AName: string; AValue: QWord); override;
function GetInstructionPointerRegisterValue: TDbgPtr; override;
procedure SetInstructionPointerRegisterValue(AValue: TDbgPtr); override;
function GetStackBasePointerRegisterValue: TDbgPtr; override;
procedure SetStackPointerRegisterValue(AValue: TDbgPtr); override;
function GetStackPointerRegisterValue: TDbgPtr; override;
@ -418,6 +419,8 @@ end;
procedure TDbgAvrThread.SetStackPointerRegisterValue(AValue: TDbgPtr);
begin
FRegs.regs[SPindex] := AValue;
FRegsChanged := true;
end;
function TDbgAvrThread.GetStackPointerRegisterValue: TDbgPtr;
@ -436,6 +439,12 @@ begin
ReadDebugReg(SPindex, result);
end;
procedure TDbgAvrThread.SetInstructionPointerRegisterValue(AValue: TDbgPtr);
begin
FRegs.regs[PCindex] := AValue;
FRegsChanged := true;
end;
{ TDbgAvrProcess }
function TDbgAvrProcess.CreateThread(AthreadIdentifier: THandle; out IsMainThread: boolean): TDbgThread;