paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 15:57:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

GdbmiDebugger, Windows: Improved commit 61117 #a08b1f9560 ("Improved speed..."): Only skip sleep, if there was a recent write to gdb. (Response expected)

Browse Source 
git-svn-id: trunk@61132 -
This commit is contained in:
martin 2019-05-03 21:24:57 +00:00
parent e484e770ee
commit ef247de448
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazdebuggergdbmi/cmdlinedebugger.pp
View File

@ -57,6 +57,7 @@ type
private
{$IFdef MSWindows}
FAggressiveWaitTime: Cardinal;
FLastWrite: QWord;
{$EndIf}
FDbgProcess: TProcessUTF8; // The process used to call the debugger
FLineEnds: TStringDynArray; // List of strings considered as lineends
@ -264,11 +265,10 @@ begin
exit;
t2 := GetTickCount64;
if t2 < t
then t3 := t2 + (High(t) - t)
else t3 := t2 - t;
if (FullTimeOut > 0) then begin
if t2 < t
then t3 := t2 + (High(t) - t)
else t3 := t2 - t;
if (t3 >= FullTimeOut)
then begin
ATimeOut := 0;
@ -280,6 +280,9 @@ begin
end;
{$IFdef MSWindows}
if t2 < FLastWrite
then t3 := t2 + (High(FLastWrite) - FLastWrite)
else t3 := t2 - FLastWrite;
if (t3 > FAggressiveWaitTime) or (FAggressiveWaitTime = 0) then begin
{$EndIf}
ProcessWhileWaitForHandles;
@ -614,6 +617,9 @@ begin
// for windows and *nix (1 or 2 character line ending)
LE := LineEnding;
FDbgProcess.Input.Write(LE[1], Length(LE));
{$IFdef MSWindows}
FLastWrite := GetTickCount64;
{$EndIf}
end
else begin
DebugLn('[TCmdLineDebugger.SendCmdLn] Unable to send <', ACommand, '>. No process running.');