paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:39:15 +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; LockRelease;
inherited; inherited;
ClearCommandQueue; ClearCommandQueue;
RemoveRunQueueASync; //RemoveRunQueueASync;
FreeAndNil(FCommandQueue); FreeAndNil(FCommandQueue);
ClearSourceInfo; ClearSourceInfo;
FreeAndNil(FSourceNames); FreeAndNil(FSourceNames);
@ -6259,7 +6259,9 @@ begin
// if FCommandQueueExecLock, then queu will be run, by however has that lock // if FCommandQueueExecLock, then queu will be run, by however has that lock
if (FCommandQueueExecLock = 0) and (FCommandQueue.Count > 0) if (FCommandQueueExecLock = 0) and (FCommandQueue.Count > 0)
then begin then begin
RunQueueASync; DebugLnEnter(DBGMI_QUEUE_DEBUG, ['TGDBMIDebugger.UnLockCommandProcessing: Execute RunQueue ']);
RunQueue; // ASync
DebugLnExit(DBGMI_QUEUE_DEBUG, ['TGDBMIDebugger.UnLockCommandProcessing: Finished RunQueue']);
end end
end; end;
end; end;
@ -6517,7 +6519,7 @@ var
Cmd, NestedCurrentCmd, NestedCurrentCmdTmp: TGDBMIDebuggerCommand; Cmd, NestedCurrentCmd, NestedCurrentCmdTmp: TGDBMIDebuggerCommand;
SavedInExecuteCount: LongInt; SavedInExecuteCount: LongInt;
begin begin
RemoveRunQueueASync; //RemoveRunQueueASync;
if FCommandQueue.Count = 0 if FCommandQueue.Count = 0
then exit; then exit;