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

FpDebug: Linux, improve "Stop all" loop

Browse Source 
git-svn-id: trunk@61833 -
This commit is contained in:
martin 2019-09-08 18:52:41 +00:00
parent 595f8b9f3e
commit e6e7bf4355
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -1302,19 +1302,20 @@ begin
{$ENDIF}
// Signal all other threads to pause
for TDbgThread(ThreadToPause) in FThreadMap do begin
if (ThreadToPause <> AThread) and (not ThreadToPause.FIsPaused) then begin
if (ThreadToPause <> AThread) then begin
while (not ThreadToPause.FIsPaused) do begin
// Check if any thread is already interrupted
while ExistsPendingSignal(Pid, WaitStatus, ThreadSignaled, True) do begin
if (ThreadSignaled = nil) or
(ThreadSignaled.CheckSignalForPostponing(WaitStatus))
then
FPostponedSignals.AddSignal(PID, WaitStatus);
end;
// Check if any thread is already interrupted
while ExistsPendingSignal(Pid, WaitStatus, ThreadSignaled, True) do begin
if (ThreadSignaled = nil) or
(ThreadSignaled.CheckSignalForPostponing(WaitStatus))
then
FPostponedSignals.AddSignal(PID, WaitStatus);
end;
while not ThreadToPause.FIsPaused do begin
DebugLn(DBG_VERBOSE and (ThreadToPause.FInternalPauseRequested), ['Re-Request Internal pause for ', ThreadToPause.ID]);
ThreadToPause.FInternalPauseRequested:=false;
if not ThreadToPause.RequestInternalPause then
if not ThreadToPause.RequestInternalPause then // will fail, if already paused
break;
if ExistsPendingSignal(Pid, WaitStatus, ThreadSignaled, False) then begin
@ -1324,9 +1325,7 @@ begin
FPostponedSignals.AddSignal(PID, WaitStatus);
end;
DebugLn(DBG_VERBOSE and (not ThreadToPause.FIsPaused), ['Re-Request Internal pause for ', ThreadToPause.ID]);
end;
end;
end;
{$IFDEF DebuglnLinuxDebugEvents}