paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 15:31: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@40368 -
This commit is contained in:
martin 2013-02-23 04:01:17 +00:00
parent 80ef0f8763
commit 93470b95dc
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
debugger/gdbmidebugger.pp
View File

@ -131,6 +131,7 @@ type
{$ENDIF}
FGDBOptions: String;
FInternalStartBreak: TGDBMIDebuggerStartBreak;
FMaxDisplayLengthForString: Integer;
FTimeoutForEval: Integer;
FWarnOnTimeOut: Boolean;
procedure SetTimeoutForEval(const AValue: Integer);
@ -143,6 +144,7 @@ type
{$IFDEF UNIX}
property ConsoleTty: String read FConsoleTty write FConsoleTty;
{$ENDIF}
property MaxDisplayLengthForString: Integer read FMaxDisplayLengthForString write FMaxDisplayLengthForString;
property TimeoutForEval: Integer read FTimeoutForEval write SetTimeoutForEval;
property WarnOnTimeOut: Boolean read FWarnOnTimeOut write SetWarnOnTimeOut;
property EncodeCurrentDirPath: TGDBMIDebuggerFilenameEncoding
@ -377,6 +379,7 @@ type
procedure RetrieveRegcall;
procedure CheckAvailableTypes;
procedure DetectForceableBreaks;
procedure CommonInit;
end;
{ TGDBMIDebuggerCommandStartDebugging }
@ -1852,6 +1855,13 @@ begin
end;
end;
procedure TGDBMIDebuggerCommandStartBase.CommonInit;
begin
ExecuteCommand('set print elements %d',
[TGDBMIDebuggerProperties(FTheDebugger.GetProperties).MaxDisplayLengthForString],
[]);
end;
{ TGDBMIDebuggerCommandExecuteBase }
function TGDBMIDebuggerCommandExecuteBase.ProcessRunning(var AStoppedParams: String; out
@ -4552,6 +4562,7 @@ begin
ExecuteCommand('-gdb-set language pascal', [cfCheckError]);
CheckAvailableTypes;
CommonInit;
TargetInfo^.TargetCPU := '';
TargetInfo^.TargetOS := FTheDebugger.FGDBOS; // try to detect ??
@ -4785,6 +4796,7 @@ begin
// then the rtl is compiled with regcalls
RetrieveRegCall;
CheckAvailableTypes;
CommonInit;
DetectForceableBreaks;
FileType := '';
@ -6427,6 +6439,7 @@ begin
{$IFDEF UNIX}
FConsoleTty := '';
{$ENDIF}
FMaxDisplayLengthForString := 2500;
{$IFDEF darwin}
FTimeoutForEval := 250;
{$ELSE darwin}
@ -6446,6 +6459,7 @@ begin
{$IFDEF UNIX}
FConsoleTty := TGDBMIDebuggerProperties(Source).FConsoleTty;
{$ENDIF}
FMaxDisplayLengthForString := TGDBMIDebuggerProperties(Source).FMaxDisplayLengthForString;
FTimeoutForEval := TGDBMIDebuggerProperties(Source).FTimeoutForEval;
FWarnOnTimeOut := TGDBMIDebuggerProperties(Source).FWarnOnTimeOut;
FEncodeCurrentDirPath := TGDBMIDebuggerProperties(Source).FEncodeCurrentDirPath;