paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +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 
(cherry picked from commit aeffa71e22)
This commit is contained in:
Martin 2024-03-14 15:14:19 +01:00
parent f273c758fb
commit 09f989b452
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

@ -4961,7 +4961,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;