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

FpDebug: fix callstack eval, after CFI ended.

Browse Source
This commit is contained in:
Martin 2022-09-06 13:59:01 +02:00
parent f4e3f0e7e7
commit ae209a52a4
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbgclasses.pp
View File

@ -3002,7 +3002,7 @@ var
Address, FrameBase, LastFrameBase, Dummy: QWord;
Size, CountNeeded, IP, BP, CodeReadErrCnt, SP, i: integer;
AnEntry, NewEntry: TDbgCallstackEntry;
R: TDbgRegisterValue;
R, StackReg, FrameReg: TDbgRegisterValue;
nIP, nBP, nSP: String;
NextIdx: LongInt;
OutSideFrame: Boolean;
@ -3090,6 +3090,13 @@ begin
Break;
FCallStackEntryList.Add(NewEntry);
Address := NewEntry.AnAddress;
StackReg := NewEntry.RegisterValueList.FindRegisterByDwarfIndex(SP);
FrameReg := NewEntry.RegisterValueList.FindRegisterByDwarfIndex(BP);
StackPtr := 0;
if (StackReg <> nil) and (FrameReg <> nil) then begin
StackPtr := StackReg.FNumValue;
FrameBase := FrameReg.FNumValue;
end;
AnEntry := NewEntry;
Dec(CountNeeded);
inc(NextIdx);
@ -3098,6 +3105,8 @@ begin
end
else if (FrameBase <> 0) and (FrameBase > LastFrameBase) then
begin
if StackPtr = 0 then
break;
// CFI not available or contains unsupported structures. Fallback to
// old fashioned stack-tracing.
OutSideFrame := False;