paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:39:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: correctly clear old watchdata

Browse Source
This commit is contained in:
Martin 2024-08-16 12:56:51 +02:00
parent 32e1ae20d4
commit 0e7a968c42
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/packages/idedebugger/idedebuggerbase.pas
View File

@ -537,7 +537,10 @@ end;
procedure TWatchValue.SetResultData(AResultData: TWatchResultData); procedure TWatchValue.SetResultData(AResultData: TWatchResultData);
begin begin
ResultData.Free; if FResultData = AResultData then
exit;
ClearDisplayData;
FResultData.Free;
FResultData := AResultData; FResultData := AResultData;
end; end;