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

SynEdit: don't access dangling pointer to FFoldedLinesView. See commit fb279cada4 and ca21254ef0

Browse Source
This commit is contained in:
Martin 2024-01-28 20:08:44 +01:00
parent f0652397b9
commit 3477bc102d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -2732,6 +2732,7 @@ begin
FreeAndNil(FBlockSelection); FreeAndNil(FBlockSelection);
FreeAndNil(FStrings); FreeAndNil(FStrings);
FreeAndNil(FTextViewsManager); FreeAndNil(FTextViewsManager);
FFoldedLinesView := nil; // destroyed by FTextViewsManager
TSynEditStringList(FLines).DetachSynEdit(Self); TSynEditStringList(FLines).DetachSynEdit(Self);
if TSynEditStringList(FLines).AttachedSynEditCount = 0 then if TSynEditStringList(FLines).AttachedSynEditCount = 0 then
FreeAndNil(fLines); FreeAndNil(fLines);