paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 21:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fpdebug: Display status register flags for AVR

Browse Source
This commit is contained in:
ccrause 2023-12-28 20:40:40 +02:00
parent 5e4596e57a
commit fd3565584c
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpdebug/fpdbgavrclasses.pas
View File

@ -42,6 +42,7 @@ type
private
const
lastCPURegIndex = 31; // After this are SREG, SP and PC
nSREGF = 'SRegFlags';
// Byte level register indexes
SPLindex = 33;
@ -53,6 +54,7 @@ type
RegArrayByteLength = 39;
protected
procedure RefreshRegisterCache; override;
function FormatStatusFlags(sreg: byte): string;
function GetStackUnwinder: TDbgStackUnwinder; override;
public
procedure LoadRegisterValues; override;
@ -129,6 +131,26 @@ begin
end;
end;
function TDbgAvrThread.FormatStatusFlags(sreg: byte): string;
const
SREG_FLAGS = 'ITHSVNZC';
var
i: integer;
flag: char;
begin
Result := ' ';
for i := 0 to 7 do
begin
if sreg and $80 = $80 then
flag := SREG_FLAGS[i+1]
else
flag := '.';
Result[2*i+1] := flag;
sreg := byte(sreg shl 1);
end;
end;
function TDbgAvrThread.GetStackUnwinder: TDbgStackUnwinder;
begin
if FUnwinder = nil then
@ -157,6 +179,7 @@ begin
FRegisterValueList.DbgRegisterAutoCreate['r'+IntToStr(i)].SetValue(FRegs.regs[i], IntToStr(FRegs.regs[i]),1, i); // confirm dwarf index
FRegisterValueList.DbgRegisterAutoCreate[nSREG].SetValue(FRegs.regs[SREGindex], IntToStr(FRegs.regs[SREGindex]),1,SREGindex);
FRegisterValueList.DbgRegisterAutoCreate[nSREGF].SetValue(FRegs.regs[SREGindex], FormatStatusFlags(FRegs.regs[SREGindex]),1,0);
FRegisterValueList.DbgRegisterAutoCreate[nSP].SetValue(FRegs.regs[SPindex], IntToStr(FRegs.regs[SPindex]),2,SPindex);
FRegisterValueList.DbgRegisterAutoCreate[nPC].SetValue(FRegs.regs[PCindex], IntToStr(FRegs.regs[PCindex]),4,PCindex);
FRegisterValueListValid := true;