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

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

Browse Source 
(cherry picked from commit 7534833eb6)
This commit is contained in:
Martin 2021-12-06 15:59:33 +01:00
parent 2ce918ee2e
commit 9979693585
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

@ -1691,7 +1691,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;