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

FpDebug: Linux, remove threads when they exit

Browse Source 
git-svn-id: trunk@60153 -
This commit is contained in:
martin 2019-01-23 01:17:38 +00:00
parent 2bf19a2135
commit 861615d32d
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -1011,7 +1011,7 @@ begin
else
begin
// Thread stopped, just continue
// ToDo: Remove thread from administration
RemoveThread(AThread.Id);
result := deInternalContinue;
end;
end
@ -1117,6 +1117,7 @@ begin
ThreadToPause.FIsInInternalPause := False;
// Check if thread is already interrupted
PID:=FpWaitPid(ThreadToPause.ID, ThreadToPause.FExceptionSignal, __WALL or WNOHANG); // Minimize chances of overlap
if PID <> 0 then begin
if PID <> ThreadToPause.ID then begin
debugln(['Unexpected response from FpWaitPid']);
@ -1141,22 +1142,22 @@ begin
if (ThreadToPause = nil) then begin
debugln(['Error: Event for unknown thread ',PID]);
end
else begin
ThreadToPause.FIsPaused := True;
end
else begin
ThreadToPause.FIsPaused := True;
if ThreadToPause.FInternalPauseRequested then begin
dec(PauseWaitCount);
if (wstopsig(WaitStatus) = SIGTRAP) then begin
// TODO: if breakpoint, mark that the internalpause request may still be received
ThreadToPause.CheckAndResetInstructionPointerAfterBreakpoint;
// TODO: if breakpoint, mark that the internalpause request may still be received
ThreadToPause.CheckAndResetInstructionPointerAfterBreakpoint;
ThreadToPause.FInternalPauseRequested := False;
ThreadToPause.FIsInInternalPause := True;
ThreadToPause.FExceptionSignal := 0;
end
else begin
ThreadToPause.FInternalPauseRequested := False;
ThreadToPause.FIsInInternalPause := True;
ThreadToPause.FExceptionSignal := 0;
end
else begin
ThreadToPause.FExceptionSignal := WaitStatus;
// leave FInternalPauseRequested, so we will continue if it is reached
// leave FInternalPauseRequested, so we will continue if it is reached
DebugLn(['Unexpected event ', WaitStatus, ' for ', PID]);
end;
end