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

Debugger: fix crash introduced in "LazDebuggerFp: improve error handling"

Browse Source
This commit is contained in:
Martin 2022-08-31 15:33:48 +02:00
parent f15e2bded5
commit 7347d41a12
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -1053,8 +1053,8 @@ var
w: TWatchValueIntf; w: TWatchValueIntf;
begin begin
if FWatchValue <> nil then begin if FWatchValue <> nil then begin
FWatchValue := nil;
w := FWatchValue; w := FWatchValue;
FWatchValue := nil;
w.RemoveNotification(weeCancel, @DoWachCanceled); w.RemoveNotification(weeCancel, @DoWachCanceled);
if w.Validity = ddsRequested then if w.Validity = ddsRequested then
w.Validity := ddsInvalid; w.Validity := ddsInvalid;