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

Fix TAvrMemManager.ReadMemory to read multi-byte values from registers by assuming the bytes are stored in consecutive registers.

Browse Source
This commit is contained in:
ccrause 2024-02-25 20:06:14 +02:00 committed by Martin
parent 6915cc97fe
commit f808839e56
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

@ -205,6 +205,7 @@ function TAvrMemManager.ReadMemory(AReadDataType: TFpDbgMemReadDataType; const
var
loc: TFpDbgMemLocation;
tmp: QWord;
b, shift: Byte;
begin
loc := ASourceLocation;
// Update address to include possible address class modifications
@ -213,6 +214,28 @@ begin
Result := inherited ReadMemory(AReadDataType, loc, ASourceSize,
ADest, ADestSize, AContext, AFlags);
// ReadMemory only reads single registers, read extra registers if ASourceSize > 1
if (ASourceLocation.MType = mlfTargetRegister) and (ASourceSize.Size > 1) then
begin
shift := 1;
while (shift < byte(ASourceSize.Size)) and Result do
begin
inc(loc.Address);
// Parameters are allocated below r26
if loc.Address < 26 then
begin
Result := inherited ReadMemory(AReadDataType, loc, ASourceSize,
@b, ADestSize, AContext, AFlags);
if Result then
PQWord(ADest)^ := PQWord(ADest)^ + (b shl 8*shift);
end
else
Result := False;
inc(shift);
end;
end;
{ Assume an address is located in data memory.
This can be updated when more information is known, e.g.
in TFpSymbolDwarfTypeSubroutine.GetDataAddress }