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

* fix releasing of shortstring temps. in arrayconstructor nodes

Browse Source 
git-svn-id: trunk@21753 -
This commit is contained in:
florian 2012-07-01 18:46:54 +00:00
parent c62a2c8bb5
commit 7df1403849
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/ncgcal.pas
View File

@ -529,7 +529,9 @@ implementation
passing a shortstring }
if (hp2.nodetype=typeconvn) and
(tunarynode(hp2).left.nodetype=addrn) then
hp2:=tunarynode(tunarynode(hp2).left).left;
hp2:=tunarynode(tunarynode(hp2).left).left
else if tunarynode(hp2).nodetype=addrn then
hp2:=tunarynode(hp2).left;
location_freetemp(current_asmdata.CurrAsmList,hp2.location);
hp:=tarrayconstructornode(hp).right;
end;