paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

CmdLine Debugger, thread/async process: Fix unqueuing events, if thread is destroyed

Browse Source 
git-svn-id: trunk@58378 -
This commit is contained in:
martin 2018-06-22 17:12:27 +00:00
parent 44053b1a5c
commit 3a01243c22
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggers/cmdlinedebuggerbase/debugprocess.pas
View File

@ -259,6 +259,8 @@ begin
if FReadThread <> nil then begin
FReadThread.Terminate;
FinishedReadingOutput;
RemoveQueuedEvents(FReadThread, FOnDataAvail);
RemoveQueuedEvents(FReadThread, FOnPipeError);
end;
{$ENDIF}
end;
@ -272,6 +274,8 @@ begin
if FReadThread <> nil then begin
FReadThread.Terminate;
FinishedReadingOutput;
RemoveQueuedEvents(FReadThread, FOnDataAvail);
RemoveQueuedEvents(FReadThread, FOnPipeError);
end;
{$ENDIF}
end;
@ -303,6 +307,9 @@ begin
if FReadThread <> nil then begin
FReadThread.Terminate;
FinishedReadingOutput; // make sure destroy will not wait forever
RemoveQueuedEvents(FReadThread, FOnDataAvail);
RemoveQueuedEvents(FReadThread, FOnPipeError);
FReadThread.WaitFor;
debugln(['DESTROY thread destroying']);
FreeAndNil(FReadThread);
debugln(['DESTROY thread destroyed']);
@ -320,6 +327,9 @@ begin
if FReadThread <> nil then begin
FReadThread.Terminate;
FinishedReadingOutput;
RemoveQueuedEvents(FReadThread, FOnDataAvail);
RemoveQueuedEvents(FReadThread, FOnPipeError);
FReadThread.WaitFor;
debugln(['DESTROY thread destroying']);
FreeAndNil(FReadThread);
debugln(['DESTROY thread destroyed']);