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

LazDebuggerFp: slightly faster watch eval.

Browse Source 
git-svn-id: trunk@61517 -
This commit is contained in:
martin 2019-07-03 18:26:26 +00:00
parent 96ba76e670
commit 3ed45630a0
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -1518,8 +1518,13 @@ var
WatchValue: TWatchValue; WatchValue: TWatchValue;
AVal: String; AVal: String;
AType: TDBGType; AType: TDBGType;
t: QWord;
i: Integer;
begin begin
FWatchAsyncQueued := False; FWatchAsyncQueued := False;
t := GetTickCount64;
i := 0;
repeat
if FWatchEvalList.Count = 0 then if FWatchEvalList.Count = 0 then
exit; exit;
WatchValue := TWatchValue(FWatchEvalList[0]); WatchValue := TWatchValue(FWatchEvalList[0]);
@ -1527,6 +1532,10 @@ begin
WatchValue.RemoveFreeNotification(@DoWatchFreed); WatchValue.RemoveFreeNotification(@DoWatchFreed);
EvaluateExpression(WatchValue, WatchValue.Expression, AVal, AType); EvaluateExpression(WatchValue, WatchValue.Expression, AVal, AType);
inc(i);
{$PUSH}{$Q-}
until (GetTickCount64 - t > 60) or (i > 30);
{$POP}
if (not FWatchAsyncQueued) and (FWatchEvalList.Count > 0) then if (not FWatchAsyncQueued) and (FWatchEvalList.Count > 0) then
begin begin