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

ProcessDebugger: Fixed crash, due to debugger destroying inside SetState

Browse Source 
git-svn-id: trunk@61544 -
This commit is contained in:
martin 2019-07-08 19:11:16 +00:00
parent 787897eba2
commit c40bffbdee
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/processdebugger.pp
View File

@ -91,8 +91,14 @@ end;
procedure TProcessDebugger.ProcessDestroyed(Sender: TObject); procedure TProcessDebugger.ProcessDestroyed(Sender: TObject);
begin begin
FProcess := nil; FProcess := nil;
if State <> dsIdle then
SetState(dsStop); LockRelease;
try
if State <> dsIdle then
SetState(dsStop);
finally
UnlockRelease;
end;
end; end;
function TProcessDebugger.ProcessEnvironment(const AVariable: String; const ASet: Boolean): Boolean; function TProcessDebugger.ProcessEnvironment(const AVariable: String; const ASet: Boolean): Boolean;