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

Debugger, GDBMI Server: Apply remote timeout before connecting.

Browse Source 
git-svn-id: trunk@61538 -
This commit is contained in:
martin 2019-07-05 22:43:04 +00:00
parent 93cfa99541
commit 9f610af58d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazdebuggergdbmi/gdbmiserverdebugger.pas
View File

@ -162,16 +162,16 @@ begin
exit;
end;
t := TGDBMIServerDebuggerProperties(DebuggerProperties).RemoteTimeout;
if t >= 0 then
ExecuteCommand(Format('set remotetimeout %d', [t]), R);
// TODO: Maybe should be done in CommandStart, But Filename, and Environment will be done before Start
FSuccess := ExecuteCommand(Format('target remote %s:%s',
[TGDBMIServerDebuggerProperties(DebuggerProperties).FDebugger_Remote_Hostname,
TGDBMIServerDebuggerProperties(DebuggerProperties).Debugger_Remote_Port ]),
R);
FSuccess := FSuccess and (r.State <> dsError);
t := TGDBMIServerDebuggerProperties(DebuggerProperties).RemoteTimeout;
if t >= 0 then
ExecuteCommand(Format('set remotetimeout %d', [t]), R);
end;