From f43c3d1df791bb96b07a41a6c2fbf529d2d9807d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 9 Nov 2010 10:21:54 +0000
Subject: [PATCH] Debugger: more verbos debugln

git-svn-id: trunk@28161 -
---
 debugger/gdbmidebugger.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index fa8a513104..1d7ddd4888 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -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);