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

FpDebug: Fixed passing dangling pointer. (Currently not used by LazDebuggerFp when doing deExitProcess)

Browse Source
This commit is contained in:
Martin 2021-12-06 15:59:33 +01:00
parent 4f94496f20
commit 7534833eb6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgcontroller.pas
View File

@ -1713,7 +1713,9 @@ begin
if FPDEvent=deExitProcess then begin
FreeAndNil(FCommand);
if assigned(FOnThreadProcessLoopCycleEvent) then begin
CurCmd := nil;
FOnThreadProcessLoopCycleEvent(AExit, FPDEvent, CurCmd, IsFinished);
FreeAndNil(CurCmd);
FPDEvent := deExitProcess;
end;
break;