From db375daf4f2e4d9c5c5ef18a73711d867b8ae3e9 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 20 Nov 2010 21:24:44 +0000
Subject: [PATCH] DBG: Reduce the amount of data dumped in DBG_VERBOSE mode

git-svn-id: trunk@28375 -
---
 debugger/cmdlinedebugger.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/debugger/cmdlinedebugger.pp b/debugger/cmdlinedebugger.pp
index e9c3df2ddb..b113fbe393 100644
--- a/debugger/cmdlinedebugger.pp
+++ b/debugger/cmdlinedebugger.pp
@@ -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;