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

* fix memory leak when freeing a temp delete node: also call the inherited destructor so that e.g. tnode.optinfo is freed.

Browse Source 
git-svn-id: trunk@39558 -
This commit is contained in:
svenbarth 2018-08-03 20:24:05 +00:00
parent ddbad9d5c7
commit 0ba14c7ad8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/nbas.pas
View File

@ -1342,6 +1342,7 @@ implementation
tempinfo^.withnode.free; tempinfo^.withnode.free;
tempinfo^.tempinitcode.free; tempinfo^.tempinitcode.free;
dispose(tempinfo); dispose(tempinfo);
inherited destroy;
end; end;
procedure ttempdeletenode.printnodedata(var t:text); procedure ttempdeletenode.printnodedata(var t:text);