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

Debugger: fix race condition, stopping the debugger could lead to debugger error

Browse Source 
git-svn-id: trunk@42990 -
This commit is contained in:
martin 2013-09-27 15:43:31 +00:00
parent 55c4d9ac7e
commit 189a3c9fa2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -2506,17 +2506,21 @@ begin
Result := False;
if not FCanKillNow then exit;
// only here, if we are in ProcessRunning
FDidKillNow := True;
FDidKillNow := True; // interrupt current ProcessRunning
FCanKillNow := False; // Do not allow to re-enter
FTheDebugger.GDBPause(True);
FTheDebugger.CancelAllQueued; // before ProcessStopped
FDidKillNow := False; // allow ProcessRunning
Result := ProcessRunning(StoppedParams, R);
if ProcessResultTimedOut then begin
// the uter Processrunning should stop, due to process no longer running
FDidKillNow := True;
FTheDebugger.DebugProcess.Terminate(0);
Result := True;
exit;
end;
FDidKillNow := True;
if StoppedParams <> ''
then ProcessStopped(StoppedParams, FTheDebugger.PauseWaitState = pwsInternal);