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

LazDebuggerFp: check correct thread (only top frame) when getting register values

Browse Source 
git-svn-id: trunk@61836 -
This commit is contained in:
martin 2019-09-08 19:03:05 +00:00
parent 5b2858fe15
commit 3254177a33
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1089,11 +1089,16 @@ var
ARegisterList: TDbgRegisterValueList; ARegisterList: TDbgRegisterValueList;
i: Integer; i: Integer;
ARegisterValue: TRegisterValue; ARegisterValue: TRegisterValue;
thr: TDbgThread;
begin begin
if (Debugger = nil) or not(Debugger.State in [dsPause, dsInternalPause, dsStop]) then if (Debugger = nil) or not(Debugger.State in [dsPause, dsInternalPause, dsStop]) then
exit; exit;
ARegisterList := TFpDebugDebugger(Debugger).FDbgController.CurrentThread.RegisterValueList; if not TFpDebugDebugger(Debugger).FDbgController.MainProcess.GetThread(ARegisters.ThreadId, thr) then begin
ARegisters.DataValidity:=ddsError;
exit;
end;
ARegisterList := thr.RegisterValueList;
for i := 0 to ARegisterList.Count-1 do for i := 0 to ARegisterList.Count-1 do
begin begin
ARegisterValue := ARegisters.EntriesByName[ARegisterList[i].Name]; ARegisterValue := ARegisters.EntriesByName[ARegisterList[i].Name];