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

qemu doesnt support the "p" command to read an individual register. Change logic to update all registers with the "g" command when a single register is invalid.

Browse Source
This commit is contained in:
ccrause 2021-07-19 21:56:25 +02:00
parent 68d50adedf
commit a239cd8952
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
components/fpdebug/fpdbgavrclasses.pas
View File

@ -65,6 +65,7 @@ type
// if not, request registers from target
procedure FUpdateStatusFromEvent(event: TStatusEvent);
procedure InvalidateRegisters;
procedure refreshRegisterCache;
protected
function ReadThreadState: boolean;
@ -236,24 +237,17 @@ end;
function TDbgAvrThread.ReadDebugReg(ind: byte; out AVal: TDbgPtr): boolean;
begin
Result := false;
if TDbgAvrProcess(Process).FIsTerminating or (TDbgAvrProcess(Process).FStatus = SIGHUP) then
begin
DebugLn(DBG_WARNINGS, 'TDbgRspThread.GetDebugReg called while FIsTerminating is set.');
Result := false;
end
DebugLn(DBG_WARNINGS, 'TDbgRspThread.GetDebugReg called while FIsTerminating is set.')
else
begin
DebugLn(DBG_VERBOSE, ['TDbgRspThread.GetDebugReg requesting register: ',ind]);
if FRegs[ind].Initialized then
refreshRegisterCache;
if ind < length(FRegs) then
begin
AVal := FRegs[ind].Value;
result := true;
end
else
begin
result := TDbgAvrProcess(Process).FConnection.ReadDebugReg(ind, AVal);
FRegs[ind].Value := AVal;
FRegs[ind].Initialized := true;
Result := true;
end;
end;
end;
@ -285,10 +279,27 @@ procedure TDbgAvrThread.InvalidateRegisters;
var
i: integer;
begin
FRegsUpdated := false;
for i := 0 to high(FRegs) do
FRegs[i].Initialized := false;
end;
procedure TDbgAvrThread.refreshRegisterCache;
var
regs: TBytes;
begin
if not FRegsUpdated then
begin
SetLength(regs, RegArrayByteLength);
FRegsUpdated := TDbgAvrProcess(Process).FConnection.ReadRegisters(regs[0], length(regs));
// repack according to target endianness
FRegs[SPindex].Value := regs[SPLindex] + (regs[SPHindex] shl 8);
FRegs[SPHindex].Initialized := true;
FRegs[PCindex].Value := regs[PC0] + (regs[PC1] shl 8) + (regs[PC2] shl 16) + (regs[PC3] shl 24);
FRegs[PCindex].Initialized := true;
end;
end;
function TDbgAvrThread.ReadThreadState: boolean;
begin
// assert(FIsPaused, 'TDbgRspThread.ReadThreadState: FIsPaused');
@ -410,7 +421,6 @@ end;
procedure TDbgAvrThread.LoadRegisterValues;
var
i: integer;
regs: TBytes;
begin
if TDbgAvrProcess(Process).FIsTerminating or (TDbgAvrProcess(Process).FStatus = SIGHUP) then
begin
@ -421,16 +431,7 @@ begin
if not ReadThreadState then
exit;
if not FRegsUpdated then
begin
SetLength(regs, RegArrayByteLength);
FRegsUpdated := TDbgAvrProcess(Process).FConnection.ReadRegisters(regs[0], length(regs));
// repack according to target endianness
FRegs[SPindex].Value := regs[SPLindex] + (regs[SPHindex] shl 8);
FRegs[SPHindex].Initialized := true;
FRegs[PCindex].Value := regs[PC0] + (regs[PC1] shl 8) + (regs[PC2] shl 16) + (regs[PC3] shl 24);
FRegs[PCindex].Initialized := true;
end;
refreshRegisterCache;
if FRegsUpdated then
begin