paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: properly free FListExt

Browse Source
This commit is contained in:
alligator 2024-09-15 20:35:57 +00:00 committed by Maxim Ganetsky
parent 99058f8954
commit 46eeba9b15
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;
begin
if FList<>nil then FreeMem(FList);
{$IFDEF HasExtRtti}
if FListExt<>nil then FreeMem(FListExt);
{$ENDIF HasExtRtti}
end;
function TPropInfoList.Contains(P:PPropInfo):Boolean;