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

DBG: Reset Watches if debugger stops. Issue #16095

Browse Source 
git-svn-id: trunk@28490 -
This commit is contained in:
martin 2010-11-26 00:32:45 +00:00
parent 02b1933463
commit 32c1d8856a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/gdbmidebugger.pp
View File

@ -6519,8 +6519,9 @@ begin
then begin
ClearOwned;
CancelEvaluation;
if (Debugger.State = dsPause) or (AOldState in [dsRun, dsPause])
then Changed;
end;
if Debugger.State = dsPause then Changed;
end;
procedure TGDBMIWatch.Invalidate;
@ -6593,7 +6594,7 @@ end;
function TGDBMIWatch.GetValue: String;
begin
if (Debugger <> nil)
and (Debugger.State in [dsStop, dsPause])
and (Debugger.State in [dsPause])
and Enabled
then begin
EvaluationNeeded;
@ -6609,7 +6610,7 @@ end;
function TGDBMIWatch.GetTypeInfo: TDBGType;
begin
if (Debugger <> nil)
and (Debugger.State in [dsStop, dsPause])
and (Debugger.State in [dsPause])
and Enabled
then begin
EvaluationNeeded;