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

DBG: Reduce the amount of data dumped in DBG_VERBOSE mode

Browse Source 
git-svn-id: trunk@28375 -
This commit is contained in:
martin 2010-11-20 21:24:44 +00:00
parent 25abe82bd4
commit db375daf4f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/cmdlinedebugger.pp
View File

@ -372,7 +372,12 @@ begin
FFlushAfterRead := False;
//writeln('TCmdLineDebugger.ReadLine returns ', result);
{$IFDEF DBG_VERBOSE}
debugln('<< TCmdLineDebugger.ReadLn "',Result,'"');
{$IFnDEF DBG_VERBOSE_FULL_DATA} if length(Result) < 150 then {$ENDIF}
debugln('<< TCmdLineDebugger.ReadLn "',Result,'"')
{$IFnDEF DBG_VERBOSE_FULL_DATA}
else debugln('<< TCmdLineDebugger.ReadLn "',copy(Result, 1, 100), '" ... "',copy(Result, length(Result)-50, 50),'"')
{$ENDIF}
;
{$ENDIF}
end;