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

Debugger: verbosity

Browse Source 
git-svn-id: trunk@28203 -
This commit is contained in:
martin 2010-11-13 18:03:47 +00:00
parent 66053e7da5
commit 66cb4ebd4f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/cmdlinedebugger.pp
View File

@ -371,6 +371,9 @@ begin
then FOutputBuf := ''; then FOutputBuf := '';
FFlushAfterRead := False; FFlushAfterRead := False;
//writeln('TCmdLineDebugger.ReadLine returns ', result); //writeln('TCmdLineDebugger.ReadLine returns ', result);
{$IFDEF DBG_VERBOSE}
debugln('<< TCmdLineDebugger.ReadLn "',Result,'"');
{$ENDIF}
end; end;
procedure TCmdLineDebugger.SendCmdLn(const ACommand: String); overload; procedure TCmdLineDebugger.SendCmdLn(const ACommand: String); overload;
@ -378,6 +381,9 @@ var
LE: string[2]; LE: string[2];
begin begin
//writeln('TCmdLineDebugger.SendCmdLn "',ACommand,'"'); //writeln('TCmdLineDebugger.SendCmdLn "',ACommand,'"');
{$IFDEF DBG_VERBOSE}
debugln('>> TCmdLineDebugger.SendCmdLn "',ACommand,'"');
{$ENDIF}
if DebugProcessRunning if DebugProcessRunning
then begin then begin
DoDbgOutput('<' + ACommand + '>'); DoDbgOutput('<' + ACommand + '>');