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

Debugger: Watches, display "<disabled>" instead of last known value, if watch is disabled.

Browse Source
This commit is contained in:
Martin 2022-04-07 02:24:48 +02:00
parent 3651027d61
commit 1c70c5f1f8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/watchesdlg.pp
View File

@ -1015,7 +1015,7 @@ begin
FCurrentWatchInUpDateItem := AWatch; FCurrentWatchInUpDateItem := AWatch;
try try
tvWatches.NodeText[VNode, COL_WATCH_EXPR-1]:= AWatch.Expression; tvWatches.NodeText[VNode, COL_WATCH_EXPR-1]:= AWatch.Expression;
if AWatch.HasAllValidParents(GetThreadId, GetStackframe) then begin if AWatch.Enabled and AWatch.HasAllValidParents(GetThreadId, GetStackframe) then begin
WatchValue := AWatch.Values[GetThreadId, GetStackframe]; WatchValue := AWatch.Values[GetThreadId, GetStackframe];
if (WatchValue <> nil) and if (WatchValue <> nil) and
( (GetSelectedSnapshot = nil) or not(WatchValue.Validity in [ddsUnknown, ddsEvaluating, ddsRequested]) ) ( (GetSelectedSnapshot = nil) or not(WatchValue.Validity in [ddsUnknown, ddsEvaluating, ddsRequested]) )
@ -1058,6 +1058,9 @@ begin
end; end;
end end
else else
if not AWatch.Enabled then
tvWatches.NodeText[VNode, COL_WATCH_VALUE-1]:= '<disabled>'
else
if (GetSelectedSnapshot = nil) and if (GetSelectedSnapshot = nil) and
(DebugBoss <> nil) and (DebugBoss.State in [dsPause, dsInternalPause]) (DebugBoss <> nil) and (DebugBoss.State in [dsPause, dsInternalPause])
then then