From e6e119e440be13317e77d1c765e9931f7775a05c Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 23 Feb 2013 04:16:09 +0000
Subject: [PATCH] DBG: Increase the amount of chars gdb fetches from a string
 (made configurable). Issue: #0023932

git-svn-id: trunk@40369 -
---
 debugger/gdbmidebugger.pp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 1557197bb6..c6de5e0609 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -134,6 +134,7 @@ type
     FMaxDisplayLengthForString: Integer;
     FTimeoutForEval: Integer;
     FWarnOnTimeOut: Boolean;
+    procedure SetMaxDisplayLengthForString(AValue: Integer);
     procedure SetTimeoutForEval(const AValue: Integer);
     procedure SetWarnOnTimeOut(const AValue: Boolean);
   public
@@ -144,7 +145,7 @@ type
     {$IFDEF UNIX}
     property ConsoleTty: String read FConsoleTty write FConsoleTty;
     {$ENDIF}
-    property MaxDisplayLengthForString: Integer read FMaxDisplayLengthForString write FMaxDisplayLengthForString;
+    property MaxDisplayLengthForString: Integer read FMaxDisplayLengthForString write SetMaxDisplayLengthForString;
     property TimeoutForEval: Integer read FTimeoutForEval write SetTimeoutForEval;
     property WarnOnTimeOut: Boolean  read FWarnOnTimeOut write SetWarnOnTimeOut;
     property EncodeCurrentDirPath: TGDBMIDebuggerFilenameEncoding
@@ -6428,6 +6429,14 @@ begin
   then FTimeoutForEval := -1;
 end;
 
+procedure TGDBMIDebuggerProperties.SetMaxDisplayLengthForString(AValue: Integer);
+begin
+  if FMaxDisplayLengthForString = AValue then Exit;
+  if AValue < 0 then
+    AValue := 0;
+  FMaxDisplayLengthForString := AValue;
+end;
+
 procedure TGDBMIDebuggerProperties.SetWarnOnTimeOut(const AValue: Boolean);
 begin
   if FWarnOnTimeOut = AValue then exit;