paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 21:49:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Improved reaction speed during debugging (now watches evaluation can be stopped, if user wants to continue stepping/running)

Browse Source 
git-svn-id: trunk@28763 -
This commit is contained in:
martin 2010-12-18 16:11:39 +00:00
parent 0ab22c4b2d
commit 3fe0875dfb
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
debugger/test/Gdbmi/testwatches.pas
View File

@ -262,18 +262,23 @@ const
{ TTestWatch }
procedure TTestWatch.DoChanged;
var
v: String;
begin
if FMaster = nil then exit;;
if FMaster.Valid = vsValid then begin
if FHasValue and (FValue <> FMaster.Value) then begin
FHasMultiValue := True;
FValue := FValue + LineEnding + FMaster.Value;
end
else
FValue := FMaster.Value;
FHasValue := True;
if (FMaster.Valid = vsValid) then begin
v := FMaster.Value;
if v <> '<evaluating>' then begin // TODO: need better check
if FHasValue and (FValue <> v) then begin
FHasMultiValue := True;
FValue := FValue + LineEnding + v;
end
else
FValue := v;
FHasValue := True;
FTypeInfo := Master.TypeInfo;
FTypeInfo := Master.TypeInfo;
end;
end;
end;