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

Debugger, GDBMI: leave idle, if dbg is stopped, errored or destroyed. Issue #0028335

Browse Source 
git-svn-id: trunk@49476 -
This commit is contained in:
martin 2015-06-30 15:40:22 +00:00
parent adc179b9ed
commit 520107ef3d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -7854,7 +7854,8 @@ begin
'" Addr=', dbgs(ExceptAddr), ' Dbg.State=', dbgs(State)]);
end;
if (FCommandQueue.Count = 0) and assigned(OnIdle) and (FInExecuteCount=0) and (not FInIdle)
if (FCommandQueue.Count = 0) and assigned(OnIdle) and (FInExecuteCount=0) and
(not FInIdle) and not(State in [dsError, dsDestroying])
then begin
repeat
DebugLnEnter(DBGMI_QUEUE_DEBUG, ['>> Run OnIdle']);
@ -7869,7 +7870,7 @@ begin
FInIdle := False;
end;
DebugLnExit(DBGMI_QUEUE_DEBUG, ['<< Run OnIdle']);
until not R;
until (not R) or (not assigned(OnIdle)) or (State in [dsError, dsDestroying]);
DebugLn(DBGMI_QUEUE_DEBUG, ['OnIdle: Finished ']);
end;