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

Merge branch 'local_changes' into 'main'

Browse Source 
IDEIntf: properly free FListExt

See merge request freepascal.org/lazarus/lazarus!337
This commit is contained in:
Maxim Ganetsky 2024-09-15 20:35:57 +00:00
commit 2f2884244b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/propedits.pp
View File

@ -2615,6 +2615,9 @@ end;
destructor TPropInfoList.Destroy; destructor TPropInfoList.Destroy;
begin begin
if FList<>nil then FreeMem(FList); if FList<>nil then FreeMem(FList);
{$IFDEF HasExtRtti}
if FListExt<>nil then FreeMem(FListExt);
{$ENDIF HasExtRtti}
end; end;
function TPropInfoList.Contains(P:PPropInfo):Boolean; function TPropInfoList.Contains(P:PPropInfo):Boolean;