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

Debugger: Register Window, fix updating register values. Broken in some cases since r60049 #52e85d555e

Browse Source 
git-svn-id: trunk@60342 -
This commit is contained in:
martin 2019-02-05 23:14:03 +00:00
parent be5273831f
commit 554f0e1095
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
debugger/registersdlg.pp
View File

@ -395,21 +395,21 @@ begin
end;
FNeedUpdateAgain := False;
Reg := GetCurrentRegisters;
if (Reg = nil) or (reg.DataValidity<> ddsValid) then begin
if (DebugBoss = nil) or not (DebugBoss.State in [dsPause, dsInternalPause, dsRun]) then
lvRegisters.Items.Clear;
if (reg <> nil) then
reg.Count;
for n := 0 to lvRegisters.Items.Count - 1 do
lvRegisters.Items[n].SubItems[0] := '<Unavailable>';
exit;
end;
List := TStringList.Create;
BeginUpdate;
try
BeginUpdate;
Reg := GetCurrentRegisters;
if (Reg = nil) or (reg.DataValidity<> ddsValid) then begin
if (DebugBoss = nil) or not (DebugBoss.State in [dsPause, dsInternalPause, dsRun]) then
lvRegisters.Items.Clear;
if (reg <> nil) then
reg.Count;
for n := 0 to lvRegisters.Items.Count - 1 do
lvRegisters.Items[n].SubItems[0] := '<Unavailable>';
exit;
end;
List := TStringList.Create;
try
//Get existing items
for n := 0 to lvRegisters.Items.Count - 1 do
@ -450,10 +450,10 @@ begin
lvRegisters.Items.Delete(TListItem(List.Objects[n]).Index);
finally
EndUpdate;
List.Free;
end;
finally
List.Free;
EndUpdate;
end;
lvRegistersSelectItem(nil, nil, True);