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

Debugger: fixed crash in disassembler (dangling pointer, due to wrong object in free notify)

Browse Source
This commit is contained in:
Martin 2024-03-14 15:14:19 +01:00
parent 4fd8e89e60
commit aeffa71e22
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/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -4971,7 +4971,7 @@ begin
OldId := MergeRng.RangeStartAddr;
MergeRng.Merge(ARange);
if assigned(FOnMerge)
then FOnMerge(ARange, MergeRng);
then FOnMerge(MergeRng, ARange);
FFreeItemLock := True; // prevent destruction of MergeRng
Delete(OldId);
FFreeItemLock := False;