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

DBG: Fixed adding watches while debugger is running. Issue #0019354

Browse Source 
git-svn-id: trunk@30725 -
This commit is contained in:
martin 2011-05-13 22:17:34 +00:00
parent f1171ce62f
commit f4d0e31e1a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/debugger.pp
View File

@ -5591,8 +5591,10 @@ end;
function TWatches.Add(const AExpression: String): TWatch; function TWatches.Add(const AExpression: String): TWatch;
begin begin
BeginUpdate;
Result := TWatch(inherited Add); Result := TWatch(inherited Add);
Result.Expression := AExpression; Result.Expression := AExpression;
EndUpdate;
end; end;
constructor TWatches.Create(const AWatchClass: TBaseWatchClass); constructor TWatches.Create(const AWatchClass: TBaseWatchClass);