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

DBG: Prevent build up of no longer needed commands in queue

Browse Source 
git-svn-id: trunk@37921 -
This commit is contained in:
martin 2012-07-12 16:14:36 +00:00
parent c333eda9b8
commit 10334ca035
1 changed files with 2 additions and 0 deletions

2
debugger/gdbmidebugger.pp
View File

@ -5398,6 +5398,7 @@ begin
try
repeat
FTheDebugger.CancelBeforeRun; // TODO: see comment on top of TGDBMIDebugger.QueueCommand
FTheDebugger.QueueExecuteLock; // prevent other commands from executing
try
if (not ContinueStep) and
@ -6691,6 +6692,7 @@ begin
(* TODO: if an exec-command is queued, cancel watches-commands, etc (unless required for snapshot)
This may occur if multiply exe are queued.
Currently, they will be ForcedQueue, and end up, after the exec command => cancel by state change
Also see call to CancelBeforeRun in TGDBMIDebuggerCommandExecute.DoExecute
*)