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

Debugger: Avoid error state, if GDB is killed.

Browse Source 
git-svn-id: trunk@43838 -
This commit is contained in:
martin 2014-01-29 14:27:46 +00:00
parent 07f72b88d4
commit 2f5726fd2f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/gdbmidebugger.pp
View File

@ -2613,8 +2613,9 @@ begin
// the outer Processrunning should stop, due to process no longer running // the outer Processrunning should stop, due to process no longer running
FDidKillNow := True; FDidKillNow := True;
FTheDebugger.TerminateGDB; FTheDebugger.TerminateGDB;
FTheDebugger.FNeedReset:= True;
SetDebuggerState(dsStop); SetDebuggerState(dsStop);
FTheDebugger.CancelAllQueued; // stop queued new cmd //FTheDebugger.CancelAllQueued; // stop queued new cmd
Result := True; Result := True;
exit; exit;
end; end;