paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 05:37:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: Run Thread.RegisterValueList in debug-thread

Browse Source
This commit is contained in:
Martin 2021-10-13 21:28:13 +02:00
parent 24c378f797
commit e4499b3ba0
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -484,6 +484,10 @@ type
{ TFPRegisters }
TFPRegisters = class(TRegisterSupplier)
private
FThr: TDbgThread;
FRegisterList: TDbgRegisterValueList;
procedure GetRegisterValueList();
public
procedure RequestData(ARegisters: TRegisters); override;
end;
@ -1980,6 +1984,11 @@ end;
{ TFPRegisters }
procedure TFPRegisters.GetRegisterValueList();
begin
FRegisterList := FThr.RegisterValueList;
end;
procedure TFPRegisters.RequestData(ARegisters: TRegisters);
var
ARegisterList: TDbgRegisterValueList;
@ -2000,7 +2009,9 @@ begin
ARegisterList := nil;
if ARegisters.StackFrame = 0 then begin
ARegisterList := thr.RegisterValueList;
FThr := thr;
TFpDebugDebugger(Debugger).ExecuteInDebugThread(@GetRegisterValueList);
ARegisterList := FRegisterList;
end
else begin
frm := thr.CallStackEntryList[ARegisters.StackFrame];