paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:49:19 +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 begin
FProcess := AProcess; FProcess := AProcess;
FAddressSize := 2; FAddressSize := 2;
FLastFrameBaseIncreased := True;
FCodeReadErrCnt := 0; FCodeReadErrCnt := 0;
end; end;
@ -1479,6 +1478,7 @@ var
i: Integer; i: Integer;
R: TDbgRegisterValue; R: TDbgRegisterValue;
begin begin
FLastFrameBaseIncreased := True;
CodePointer := Thread.GetInstructionPointerRegisterValue; CodePointer := Thread.GetInstructionPointerRegisterValue;
StackPointer := Thread.GetStackPointerRegisterValue; StackPointer := Thread.GetStackPointerRegisterValue;
FrameBasePointer := Thread.GetStackBasePointerRegisterValue; FrameBasePointer := Thread.GetStackBasePointerRegisterValue;