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

Debugger: more verbos debugln

Browse Source 
git-svn-id: trunk@28161 -
This commit is contained in:
martin 2010-11-09 10:21:54 +00:00
parent 5569d788c7
commit f43c3d1df7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/gdbmidebugger.pp
View File

@ -1928,10 +1928,13 @@ begin
Cmd := TGDBMIDebuggerCommand(FCommandQueue[0]);
FCommandQueue.Delete(0);
{$IFDEF GDMI_QUEUE_DEBUG}
debugln(['Executing (Recurse-Count=', FInExecuteCount-1, ') queued= ', FCommandQueue.Count, ': "', Cmd.DebugText,'" State=',DBGStateNames[State],' PauseWaitState=',ord(FPauseWaitState) ]);
DebugLnEnter(['Executing (Recurse-Count=', FInExecuteCount-1, ') queued= ', FCommandQueue.Count, ': "', Cmd.DebugText,'" State=',DBGStateNames[State],' PauseWaitState=',ord(FPauseWaitState) ]);
{$ENDIF}
R := Cmd.Execute;
Cmd.DoFinished;
{$IFDEF GDMI_QUEUE_DEBUG}
DebugLnExit('Exec done');
{$ENDIF}
Dec(FInExecuteCount);