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

Merge branch 'avr-fix-stackunwinding' into 'main'

Browse Source 
AVR - FLastFrameBaseIncreased should be initialized in GetTopFrame.

See merge request freepascal.org/lazarus/lazarus!273
This commit is contained in:
Martin 2024-03-03 10:40:46 +00:00
commit ec15e8ae73
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/fpdbgdisasavr.pp
View File

@ -1442,7 +1442,6 @@ constructor TDbgStackUnwinderAVR.Create(AProcess: TDbgProcess);
begin
FProcess := AProcess;
FAddressSize := 2;
FLastFrameBaseIncreased := True;
FCodeReadErrCnt := 0;
end;
@ -1479,6 +1478,7 @@ var
i: Integer;
R: TDbgRegisterValue;
begin
FLastFrameBaseIncreased := True;
CodePointer := Thread.GetInstructionPointerRegisterValue;
StackPointer := Thread.GetStackPointerRegisterValue;
FrameBasePointer := Thread.GetStackBasePointerRegisterValue;