paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 07:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Fix dangling pointer, if debug-backend sets breakpoint too late.

Browse Source 
(cherry picked from commit ec98b15709)
This commit is contained in:
Martin 2024-01-19 15:41:24 +01:00
parent af2489f6ff
commit fbb65eaa20
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -2871,7 +2871,7 @@ end;
procedure TDbgProcess.AfterBreakpointAdded(ABreak: TFpDbgBreakpoint);
begin
if not assigned(FCurrentBreakpoint) then begin
if (FMainThread <> nil) and not assigned(FCurrentBreakpoint) then begin
if ABreak.HasLocation(FMainThread.GetInstructionPointerRegisterValue) then
FCurrentBreakpoint := TFpInternalBreakpoint(ABreak);
end;