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

LazDebugger: Fix, ensure DefaultContext is available. Broken in e618b09804

Browse Source 
(cherry picked from commit c33019c14b)
This commit is contained in:
Martin 2021-12-10 00:19:43 +01:00
parent 87bbace028
commit cbd0330c2c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2537,14 +2537,15 @@ begin
end;
end;
if (CurrentThread <> nil) then
FDebugger.FDbgController.DefaultContext; // Make sure it is avail and cached / so it can be called outside the thread
// Needs to be correct thread, do not interfer with other threads
if (CurrentThread = nil) or
(CurrentCommand = nil) or (CurrentCommand.Thread <> CurrentThread)
then
exit;
FDebugger.FDbgController.DefaultContext; // Make sure it is avail and cached / so it can be called outside the thread
PC := CurrentThread.GetInstructionPointerRegisterValue;
if Assigned(FBreakPoints[bplSehW64Unwound]) and FBreakPoints[bplSehW64Unwound].HasLocation(PC)
then begin