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

DBG: Keep dsStop until sopping has finished

Browse Source 
git-svn-id: trunk@32798 -
This commit is contained in:
martin 2011-10-10 12:29:18 +00:00
parent 819d744b06
commit 12e58e3bc1
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/gdbmidebugger.pp
View File

@ -6254,6 +6254,13 @@ begin
// Do not add code with callbacks outside "FInExecuteCount" // Do not add code with callbacks outside "FInExecuteCount"
// Otherwhise "LockCommandProcessing" will fail to continue the queue // Otherwhise "LockCommandProcessing" will fail to continue the queue
// TODO: if the debugger can accept them into a separate queue, the set stae here
// TODO: For now do not allow new session, before old session is finished
// There may already be commands for the next run queued,
// which will then set a new state.
//if FNeedStateToIdle and (FInExecuteCount = 0)
//then ResetStateToIdle;
if State in [dsError, dsDestroying] if State in [dsError, dsDestroying]
then begin then begin
//DebugLn('[WARNING] TGDBMIDebugger: ExecuteCommand "',Cmd,'" failed.'); //DebugLn('[WARNING] TGDBMIDebugger: ExecuteCommand "',Cmd,'" failed.');
@ -7090,10 +7097,10 @@ end;
procedure TGDBMIDebugger.ResetStateToIdle; procedure TGDBMIDebugger.ResetStateToIdle;
begin begin
{$IFDEF DBGMI_QUEUE_DEBUG}
debugln(['Defer dsIdle: Recurse-Count=', FInExecuteCount]);
{$ENDIF}
if FInExecuteCount > 0 then begin if FInExecuteCount > 0 then begin
{$IFDEF DBGMI_QUEUE_DEBUG}
debugln(['Defer dsIdle: Recurse-Count=', FInExecuteCount]);
{$ENDIF}
FNeedStateToIdle := True; FNeedStateToIdle := True;
exit; exit;
end; end;