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

IDE: fixed mem leak in jitforms, bug #30487

Browse Source 
git-svn-id: trunk@52845 -
This commit is contained in:
mattias 2016-08-20 17:35:58 +00:00
parent 2b61a95171
commit 4f2a09c958
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/jitforms.pp
View File

@ -1608,6 +1608,11 @@ begin
FreeMem(OldMethodTable);
end;
// set vmtParent
{$IFNDEF HasVMTParent}
FreeMem(OldVMT^.vParentRef);
{$ENDIF}
// free classname
ClassNamePShortString:=Pointer((OldVMT+vmtClassName)^);
FreeMem(ClassNamePShortString);
@ -1619,7 +1624,7 @@ begin
// free typeinfo
OldTypeInfo:=PTypeInfo((OldVMT+vmtTypeInfo)^);
{$IF FPC_FULLVERSION>=30100}
{$IFNDEF HasVMTParent}
// free ParentInfoRef
OldTypeData:=GetTypeData(OldTypeInfo);
FreeMem(OldTypeData^.ParentInfoRef);