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

FpDebug: Fix freeing SOLibEventBreakpoint (when process is stopped, do not access thread state)

Browse Source
This commit is contained in:
Martin 2023-05-25 21:39:27 +02:00
parent 26263f5f4e
commit 7689b1865f
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/fpdbglinuxclasses.pas
View File

@ -1146,7 +1146,6 @@ destructor TDbgLinuxProcess.Destroy;
begin begin
FProcProcess.Free; FProcProcess.Free;
FPostponedSignals.Free; FPostponedSignals.Free;
FreeAndNil(FSOLibEventBreakpoint);
inherited Destroy; inherited Destroy;
end; end;
@ -1498,6 +1497,7 @@ begin
// one or more libraries have been loaded. This breakpoint is used to // one or more libraries have been loaded. This breakpoint is used to
// detect the (un)loading of libraries. // detect the (un)loading of libraries.
FSOLibEventBreakpoint := AddBreak('_dl_debug_state', False, ALib); FSOLibEventBreakpoint := AddBreak('_dl_debug_state', False, ALib);
TFpDbgBreakpoint(FSOLibEventBreakpoint).FreeByDbgProcess := True;
end end
end; end;
end; end;