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

FpDebug: Keep register-names in stacktrace

Browse Source
This commit is contained in:
Joost van der Sluis 2022-07-03 18:41:56 +02:00
parent fd64dddf42
commit a7d0a6e0b2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdbgdwarfcfi.pas
View File

@ -647,6 +647,7 @@ var
i: Integer; i: Integer;
ReturnAddress, Value: TDbgPtr; ReturnAddress, Value: TDbgPtr;
FrameBase: TDBGPtr; FrameBase: TDBGPtr;
RegName: String;
begin begin
Result := False; Result := False;
NewCallStackEntry := nil; NewCallStackEntry := nil;
@ -706,7 +707,14 @@ begin
for i := 0 to High(Row.RegisterArray) do for i := 0 to High(Row.RegisterArray) do
begin begin
if ProcessCFIColumn(Row, i, FrameBase, Size, CurrentCallStackEntry, Value) then if ProcessCFIColumn(Row, i, FrameBase, Size, CurrentCallStackEntry, Value) then
NewCallStackEntry.RegisterValueList.DbgRegisterAutoCreate[IntToStr(i)].SetValue(Value, IntToStr(Value),Size, i); begin
Reg := CurrentCallStackEntry.RegisterValueList.FindRegisterByDwarfIndex(i);
if Assigned(Reg) then
RegName := Reg.Name
else
RegName := IntToStr(i);
NewCallStackEntry.RegisterValueList.DbgRegisterAutoCreate[RegName].SetValue(Value, IntToStr(Value),Size, i);
end;
end; end;
end; end;