paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug fixed calculation of addresses, got broken in commit 5ff2a7d17c

Browse Source
This commit is contained in:
Joost van der Sluis 2021-12-11 13:38:30 +01:00
parent c96a14fd0d
commit 2a51f03e2b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -4949,7 +4949,7 @@ end;
function TDwarfCompilationUnit.CalculateRelocatedAddress(AValue: QWord): QWord;
begin
Result := Result + FOwner.ImageBase;
Result := AValue + FOwner.ImageBase;
end;
function TDwarfCompilationUnit.GetProcStartEnd(const AAddress: TDBGPtr; out