paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed memory leak of tlabelnode.labsym.

Browse Source 
git-svn-id: trunk@35538 -
This commit is contained in:
yury 2017-03-07 10:14:59 +00:00
parent 60e21e4222
commit 54f1890fea
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/nflw.pas
View File

@ -2033,10 +2033,18 @@ implementation
destructor tlabelnode.destroy;
begin
{ Remove reference in labelsym, this is to prevent
goto's to this label }
if assigned(labsym) and (labsym.code=pointer(self)) then
labsym.code:=nil;
if assigned(labsym) then
begin
if not assigned(labsym.Owner) then
labsym.Free // Free labelsym if it has no owner
else
if labsym.code=pointer(self) then
begin
{ Remove reference in labelsym, this is to prevent
goto's to this label }
labsym.code:=nil;
end;
end;
inherited destroy;
end;