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

* ttypeconvnode.simplify, avoid a memory leak

Browse Source 
git-svn-id: trunk@5551 -
This commit is contained in:
pierre 2006-12-07 13:06:31 +00:00
parent b486f926ce
commit 9a90410081
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncnv.pas
View File

@ -1786,9 +1786,11 @@ implementation
end;
if (result.nodetype = realconstn) then
begin
result:=crealconstnode.create(trealconstnode(result).value_real,resultdef);
hp:=result;
result:=crealconstnode.create(trealconstnode(hp).value_real,resultdef);
if ([nf_explicit,nf_internal] * flags <> []) then
include(result.flags, nf_explicit);
hp.free;
end;
end;
niln :