paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 20:40:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove additional memleak

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-01 12:06:06 +01:00
parent 9fe350bd91
commit bc2d1cf51c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -5954,7 +5954,11 @@ begin
SetLength(FFields,Len);
FFieldsResolved:=True;
if Len=0 then
begin
if Assigned(Tbl) then
FreeMem(Tbl);
exit;
end;
Ctx:=TRttiContext.Create;
try
Ctx.UsePublishedOnly:=False;