paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 03:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: unrolling stack, using CFI - fixed address in stack-entry (do not subtract 1)

Browse Source
This commit is contained in:
Martin 2023-03-17 21:26:03 +01:00
parent f0a22e1596
commit 33556f939f
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgdwarfcfi.pas
View File

@ -718,10 +718,7 @@ begin
Exit;
end;
// We do not strace-back to the return address, we need the calling-address.
// This is difficult though. But we assume that ReturnAddress-1 is part of
// the instruction that made the call.
NewCallStackEntry := TDbgCallstackEntry.create(Thread, NextIdx, FrameBase, ReturnAddress-1);
NewCallStackEntry := TDbgCallstackEntry.create(Thread, NextIdx, FrameBase, ReturnAddress);
// Fill other registers
for i := 0 to High(Row.RegisterArray) do