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

Fix offset of return PC on stack. Trivial (no locals or parameters) stack trace now works.

Browse Source
This commit is contained in:
ccrause 2021-06-29 22:53:11 +02:00
parent 165c4dae9a
commit 762081ec6f
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/fpdbgavrclasses.pas
View File

@ -573,7 +573,7 @@ begin
if OutSideFrame then begin
// at start of prologue, before pushing starts, so return PC should be at current SP+1
// To read SRAM this needs to be masked by $800000
if not Process.ReadData(DataOffset or StackPtr + 1, Size, Address) or (Address = 0) then Break;
if not Process.ReadData(DataOffset or (StackPtr + Size, Size, Address) or (Address = 0) then Break;
// Convert return address from BE to LE, shl 1 to get byte address
Address := BEtoN(word(Address)) shl 1;
{$PUSH}{$R-}{$Q-}