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

IdeDebugger: fix detecting if current watch was freed.

Browse Source 
(cherry picked from commit 5192cd95d9)
This commit is contained in:
Martin 2024-09-22 17:05:46 +02:00
parent 7df430ba84
commit d20c0908d8
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/packages/idedebugger/debugger.pp
View File

@ -557,6 +557,7 @@ type
const AThreadId: Integer; const AThreadId: Integer;
const AStackFrame: Integer const AStackFrame: Integer
); );
destructor Destroy; override;
procedure Assign(AnOther: TWatchValue); override; procedure Assign(AnOther: TWatchValue); override;
property Watch: TIdeWatch read GetWatch; property Watch: TIdeWatch read GetWatch;
@ -4596,6 +4597,13 @@ begin
FStackFrame := AStackFrame; FStackFrame := AStackFrame;
end; end;
destructor TIdeWatchValue.Destroy;
begin
inc(DbgStateChangeCounter);
if DbgStateChangeCounter = high(DbgStateChangeCounter) then DbgStateChangeCounter := 0;
inherited Destroy;
end;
procedure TIdeWatchValue.Assign(AnOther: TWatchValue); procedure TIdeWatchValue.Assign(AnOther: TWatchValue);
begin begin
inherited Assign(AnOther); inherited Assign(AnOther);