paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 06:59:23 +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); FreeMem(OldMethodTable);
end; end;
// set vmtParent
{$IFNDEF HasVMTParent}
FreeMem(OldVMT^.vParentRef);
{$ENDIF}
// free classname // free classname
ClassNamePShortString:=Pointer((OldVMT+vmtClassName)^); ClassNamePShortString:=Pointer((OldVMT+vmtClassName)^);
FreeMem(ClassNamePShortString); FreeMem(ClassNamePShortString);
@ -1619,7 +1624,7 @@ begin
// free typeinfo // free typeinfo
OldTypeInfo:=PTypeInfo((OldVMT+vmtTypeInfo)^); OldTypeInfo:=PTypeInfo((OldVMT+vmtTypeInfo)^);
{$IF FPC_FULLVERSION>=30100} {$IFNDEF HasVMTParent}
// free ParentInfoRef // free ParentInfoRef
OldTypeData:=GetTypeData(OldTypeInfo); OldTypeData:=GetTypeData(OldTypeInfo);
FreeMem(OldTypeData^.ParentInfoRef); FreeMem(OldTypeData^.ParentInfoRef);