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

FpDebug: Clean up TFpDbgLocationContext.ReadAddress - MemModel does fill in all fields

Browse Source
This commit is contained in:
Martin 2024-01-14 17:41:20 +01:00
parent dbd0141eac
commit a8c78c1862
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpdebug/fpdmemorytools.pas
View File

@ -618,7 +618,6 @@ begin
Result.Address := Result.Address - 1; // Going to ADD some bits back
// E.g. b=-1 means (b and 7) = 7 and that means adding 7 bits, instead of substracting 1
Result.BitOffset := ABitOffset and 7;
Result.AddressClass := AnAddr.AddressClass;
{$POP}
end;
@ -1021,12 +1020,8 @@ end;
function TFpDbgLocationContext.ReadAddress(const ALocation: TFpDbgMemLocation;
ASize: TFpDbgValueSize): TFpDbgMemLocation;
begin
Result := Default(TFpDbgMemLocation);
if MemManager.ReadMemory(rdtAddress, ALocation, ASize, @Result.Address, SizeOf(Result.Address), Self) then
begin
Result := MemModel.AddressToTargetLocation(Result.Address);
Result.MType := mlfTargetMem;
end
Result := MemModel.AddressToTargetLocation(Result.Address)
else
Result := InvalidLoc;
end;
@ -1041,13 +1036,9 @@ end;
function TFpDbgLocationContext.ReadAddress(const ALocation: TFpDbgMemLocation;
ASize: TFpDbgValueSize; out AnAddress: TFpDbgMemLocation): Boolean;
begin
AnAddress := Default(TFpDbgMemLocation);
Result := MemManager.ReadMemory(rdtAddress, ALocation, ASize, @AnAddress.Address, (SizeOf(AnAddress.Address)), Self);
if Result then
begin
AnAddress := MemModel.AddressToTargetLocation(AnAddress.Address);
AnAddress.MType := mlfTargetMem;
end
AnAddress := MemModel.AddressToTargetLocation(AnAddress.Address)
else
AnAddress := InvalidLoc;
end;