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

DBG: undo r37486 #4d0137d86b

Browse Source 
git-svn-id: trunk@37501 -
This commit is contained in:
martin 2012-06-03 14:35:34 +00:00
parent 35d55d134a
commit 43c0c47821
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/gdbmidebugger.pp
View File

@ -6199,7 +6199,7 @@ begin
LockRelease;
inherited;
ClearCommandQueue;
RemoveRunQueueASync;
//RemoveRunQueueASync;
FreeAndNil(FCommandQueue);
ClearSourceInfo;
FreeAndNil(FSourceNames);
@ -6259,7 +6259,9 @@ begin
// if FCommandQueueExecLock, then queu will be run, by however has that lock
if (FCommandQueueExecLock = 0) and (FCommandQueue.Count > 0)
then begin
RunQueueASync;
DebugLnEnter(DBGMI_QUEUE_DEBUG, ['TGDBMIDebugger.UnLockCommandProcessing: Execute RunQueue ']);
RunQueue; // ASync
DebugLnExit(DBGMI_QUEUE_DEBUG, ['TGDBMIDebugger.UnLockCommandProcessing: Finished RunQueue']);
end
end;
end;
@ -6517,7 +6519,7 @@ var
Cmd, NestedCurrentCmd, NestedCurrentCmdTmp: TGDBMIDebuggerCommand;
SavedInExecuteCount: LongInt;
begin
RemoveRunQueueASync;
//RemoveRunQueueASync;
if FCommandQueue.Count = 0
then exit;