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

DBG: Increase the amount of chars gdb fetches from a string (made configurable). Issue: #0023932

Browse Source 
git-svn-id: trunk@40369 -
This commit is contained in:
martin 2013-02-23 04:16:09 +00:00
parent 93470b95dc
commit e6e119e440
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
debugger/gdbmidebugger.pp
View File

@ -134,6 +134,7 @@ type
FMaxDisplayLengthForString: Integer; FMaxDisplayLengthForString: Integer;
FTimeoutForEval: Integer; FTimeoutForEval: Integer;
FWarnOnTimeOut: Boolean; FWarnOnTimeOut: Boolean;
procedure SetMaxDisplayLengthForString(AValue: Integer);
procedure SetTimeoutForEval(const AValue: Integer); procedure SetTimeoutForEval(const AValue: Integer);
procedure SetWarnOnTimeOut(const AValue: Boolean); procedure SetWarnOnTimeOut(const AValue: Boolean);
public public
@ -144,7 +145,7 @@ type
{$IFDEF UNIX} {$IFDEF UNIX}
property ConsoleTty: String read FConsoleTty write FConsoleTty; property ConsoleTty: String read FConsoleTty write FConsoleTty;
{$ENDIF} {$ENDIF}
property MaxDisplayLengthForString: Integer read FMaxDisplayLengthForString write FMaxDisplayLengthForString; property MaxDisplayLengthForString: Integer read FMaxDisplayLengthForString write SetMaxDisplayLengthForString;
property TimeoutForEval: Integer read FTimeoutForEval write SetTimeoutForEval; property TimeoutForEval: Integer read FTimeoutForEval write SetTimeoutForEval;
property WarnOnTimeOut: Boolean read FWarnOnTimeOut write SetWarnOnTimeOut; property WarnOnTimeOut: Boolean read FWarnOnTimeOut write SetWarnOnTimeOut;
property EncodeCurrentDirPath: TGDBMIDebuggerFilenameEncoding property EncodeCurrentDirPath: TGDBMIDebuggerFilenameEncoding
@ -6428,6 +6429,14 @@ begin
then FTimeoutForEval := -1; then FTimeoutForEval := -1;
end; 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); procedure TGDBMIDebuggerProperties.SetWarnOnTimeOut(const AValue: Boolean);
begin begin
if FWarnOnTimeOut = AValue then exit; if FWarnOnTimeOut = AValue then exit;