paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed memory leak, introduced accidentally in r48998

Browse Source 
git-svn-id: trunk@49084 -
This commit is contained in:
nickysn 2021-03-30 11:05:00 +00:00
parent 803402b225
commit 8ec71bc810
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pdecvar.pas
View File

@ -861,9 +861,18 @@ implementation
if assigned(current_module) and current_module.in_interface then if assigned(current_module) and current_module.in_interface then
begin begin
if readprocdef.proctypeoption=potype_propgetter then if readprocdef.proctypeoption=potype_propgetter then
readprocdef.register_def; readprocdef.register_def
else
readprocdef.free;
if writeprocdef.proctypeoption=potype_propsetter then if writeprocdef.proctypeoption=potype_propsetter then
writeprocdef.register_def; writeprocdef.register_def
else
writeprocdef.free;
end
else
begin
readprocdef.free;
writeprocdef.free;
end; end;
result:=p; result:=p;