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

Debugger: Add timeout on kill

Browse Source 
git-svn-id: trunk@43834 -
This commit is contained in:
martin 2014-01-29 12:45:29 +00:00
parent 00ae9f28bd
commit d5fa90b6d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbmidebugger.pp
View File

@ -2609,7 +2609,7 @@ begin
ExecuteCommand('kill', [cfNoThreadContext], 1500);
FTheDebugger.FCurrentStackFrameValid := False;
FTheDebugger.FCurrentThreadIdValid := False;
Result := ExecuteCommand('info program', [cfNoThreadContext], R);
Result := ExecuteCommand('info program', R, [cfNoThreadContext], 1500);
Result := Result and (Pos('not being run', R.Values) > 0);
if Result
then SetDebuggerState(dsStop);