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

FpDebug: [fix] defer reading register-list for non-threads (only showing in thread window)

Browse Source
This commit is contained in:
Martin 2024-07-12 15:08:24 +02:00
parent 5109ab17f3
commit 2d8a7be0db
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/fpdebug/fpdbgclasses.pp
View File

@ -67,10 +67,12 @@ type
function GetDbgRegister(AName: string): TDbgRegisterValue;
function GetDbgRegisterAutoCreate(const AName: string): TDbgRegisterValue;
function GetDbgRegisterCreate(AName: string): TDbgRegisterValue;
function GetIsModified(AReg: TDbgRegisterValue): boolean;
public
procedure Assign(ASource: TDbgRegisterValueList);
property DbgRegisterAutoCreate[AName: string]: TDbgRegisterValue read GetDbgRegisterAutoCreate;
property DbgRegisterCreate[AName: string]: TDbgRegisterValue read GetDbgRegisterCreate;
function FindRegisterByDwarfIndex(AnIdx: cardinal): TDbgRegisterValue;
function FindRegisterByName(AnName: String): TDbgRegisterValue;
property IsModified[AReg: TDbgRegisterValue]: boolean read GetIsModified;
@ -87,12 +89,12 @@ type
TDbgCallstackEntry = class
private
FAnAddress: TDBGPtr;
FAutoFillRegisters: boolean;
FFrameAdress: TDBGPtr;
FThread: TDbgThread;
FIsSymbolResolved: boolean;
FSymbol: TFpSymbol;
FRegisterValueList: TDbgRegisterValueList;
FRegisterValueListDone: Boolean;
FIndex: integer;
function GetFunctionName: string;
function GetProcSymbol: TFpSymbol;
@ -112,6 +114,7 @@ type
property RegisterValueList: TDbgRegisterValueList read GetRegisterValueList;
property ProcSymbol: TFpSymbol read GetProcSymbol;
property Index: integer read FIndex;
property AutoFillRegisters: boolean read FAutoFillRegisters write FAutoFillRegisters;
end;
{ TDbgCallstackEntryList }
@ -1857,12 +1860,9 @@ var
L: TDbgRegisterValueList;
R: TDbgRegisterValue;
begin
if (not FRegisterValueListDone) and (FRegisterValueList.Count = 0) then begin
L := FThread.RegisterValueList;
for i := 0 to L.Count - 1 do begin
R := L[i];
FRegisterValueList.DbgRegisterAutoCreate[R.Name].SetValue(R.NumValue, R.StrValue, R.Size, R.DwarfIdx);
end;
if (FAutoFillRegisters) and (FRegisterValueList.Count = 0) then begin
FRegisterValueList.Assign(FThread.RegisterValueList);
FAutoFillRegisters := False;
end;
Result := FRegisterValueList;
end;
@ -2103,6 +2103,12 @@ begin
end;
end;
function TDbgRegisterValueList.GetDbgRegisterCreate(AName: string): TDbgRegisterValue;
begin
result := TDbgRegisterValue.Create(AName);
add(result);
end;
function TDbgRegisterValueList.GetIsModified(AReg: TDbgRegisterValue): boolean;
begin
Result := FPreviousRegisterValueList <> nil;
@ -3562,6 +3568,7 @@ begin
StackPointer := Thread.GetStackPointerRegisterValue;
FrameBasePointer := Thread.GetStackBasePointerRegisterValue;
ANewFrame := TDbgCallstackEntry.create(Thread, 0, FrameBasePointer, CodePointer);
ANewFrame.AutoFillRegisters := True;
end;
{ TDbgThread }