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

Debugger, GDBMI Server: Added remote timeout option.

Browse Source 
git-svn-id: trunk@61533 -
This commit is contained in:
martin 2019-07-05 11:41:35 +00:00
parent f5bd459bb7
commit d33a0e6ae9
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazdebuggergdbmi/gdbmiserverdebugger.pas
View File

@ -61,6 +61,7 @@ type
FDebugger_Remote_Hostname: string; FDebugger_Remote_Hostname: string;
FDebugger_Remote_Port: string; FDebugger_Remote_Port: string;
FDebugger_Remote_DownloadExe: boolean; FDebugger_Remote_DownloadExe: boolean;
FRemoteTimeout: integer;
public public
constructor Create; override; constructor Create; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
@ -68,6 +69,7 @@ type
property Debugger_Remote_Hostname: String read FDebugger_Remote_Hostname write FDebugger_Remote_Hostname; property Debugger_Remote_Hostname: String read FDebugger_Remote_Hostname write FDebugger_Remote_Hostname;
property Debugger_Remote_Port: String read FDebugger_Remote_Port write FDebugger_Remote_Port; property Debugger_Remote_Port: String read FDebugger_Remote_Port write FDebugger_Remote_Port;
property Debugger_Remote_DownloadExe: boolean read FDebugger_Remote_DownloadExe write FDebugger_Remote_DownloadExe; property Debugger_Remote_DownloadExe: boolean read FDebugger_Remote_DownloadExe write FDebugger_Remote_DownloadExe;
property RemoteTimeout: integer read FRemoteTimeout write FRemoteTimeout default -1;
published published
property Debugger_Startup_Options; property Debugger_Startup_Options;
{$IFDEF UNIX} {$IFDEF UNIX}
@ -147,6 +149,7 @@ end;
function TGDBMIServerDebuggerCommandInitDebugger.DoExecute: Boolean; function TGDBMIServerDebuggerCommandInitDebugger.DoExecute: Boolean;
var var
R: TGDBMIExecResult; R: TGDBMIExecResult;
t: Integer;
begin begin
Result := inherited DoExecute; Result := inherited DoExecute;
if (not FSuccess) then exit; if (not FSuccess) then exit;
@ -163,6 +166,10 @@ begin
TGDBMIServerDebuggerProperties(DebuggerProperties).Debugger_Remote_Port ]), TGDBMIServerDebuggerProperties(DebuggerProperties).Debugger_Remote_Port ]),
R); R);
FSuccess := FSuccess and (r.State <> dsError); FSuccess := FSuccess and (r.State <> dsError);
t := TGDBMIServerDebuggerProperties(DebuggerProperties).RemoteTimeout;
if t >= 0 then
ExecuteCommand(Format('set remotetimeout %d', [t]), R);
end; end;
@ -174,6 +181,7 @@ begin
FDebugger_Remote_Hostname:= ''; FDebugger_Remote_Hostname:= '';
FDebugger_Remote_Port:= '2345'; FDebugger_Remote_Port:= '2345';
FDebugger_Remote_DownloadExe := False; FDebugger_Remote_DownloadExe := False;
FRemoteTimeout := -1;
UseAsyncCommandMode := True; UseAsyncCommandMode := True;
end; end;
@ -184,6 +192,7 @@ begin
FDebugger_Remote_Hostname := TGDBMIServerDebuggerProperties(Source).FDebugger_Remote_Hostname; FDebugger_Remote_Hostname := TGDBMIServerDebuggerProperties(Source).FDebugger_Remote_Hostname;
FDebugger_Remote_Port := TGDBMIServerDebuggerProperties(Source).FDebugger_Remote_Port; FDebugger_Remote_Port := TGDBMIServerDebuggerProperties(Source).FDebugger_Remote_Port;
FDebugger_Remote_DownloadExe := TGDBMIServerDebuggerProperties(Source).FDebugger_Remote_DownloadExe; FDebugger_Remote_DownloadExe := TGDBMIServerDebuggerProperties(Source).FDebugger_Remote_DownloadExe;
FRemoteTimeout := TGDBMIServerDebuggerProperties(Source).FRemoteTimeout;
UseAsyncCommandMode := True; UseAsyncCommandMode := True;
end; end;
end; end;