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

* ensure that necessary padding bytes in a non-anonymous aggregate are added

Browse Source 
before any nested aggregate

git-svn-id: trunk@32521 -
This commit is contained in:
Jonas Maebe 2015-11-24 20:10:38 +00:00
parent ef3bafd67c
commit 1d460eebc1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/llvm/nllvmtcon.pas
View File

@ -375,12 +375,14 @@ implementation
{ either add to the current typed const aggregate (if nested), or
emit to the asmlist (if top level) }
curagg:=tllvmaggregateinformation(curagginfo);
{ create aggregate information for this new aggregate }
inherited;
{ only add the new aggregate to the previous aggregate now, because
the inherited call may have had to add padding bytes first }
if assigned(curagg) then
curagg.aggai.addvalue(agg)
else
fasmlist.concat(agg);
{ create aggregate information for this new aggregate }
inherited;
{ set new current typed const aggregate }
tllvmaggregateinformation(curagginfo).aggai:=agg
end