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

* don't emit padding bytes if there was an error parsing a typed constant

Browse Source 
record

git-svn-id: branches/hlcgllvm@28758 -
This commit is contained in:
Jonas Maebe 2014-10-06 20:53:33 +00:00
parent 0def3629cc
commit bdfb6d81e5
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/ngtcon.pas
View File

@ -1621,16 +1621,19 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
) then
Message1(parser_w_skipped_fields_after,sorg);
if not(is_packed) then
fillbytes:=def.size-recoffset
else
if not error then
begin
flush_packed_value(bp);
recoffset:=align(recoffset,8);
fillbytes:=def.size-(recoffset div 8);
if not(is_packed) then
fillbytes:=def.size-recoffset
else
begin
flush_packed_value(bp);
recoffset:=align(recoffset,8);
fillbytes:=def.size-(recoffset div 8);
end;
for i:=1 to fillbytes do
ftcb.emit_tai(Tai_const.Create_8bit(0),u8inttype);
end;
for i:=1 to fillbytes do
ftcb.emit_tai(Tai_const.Create_8bit(0),u8inttype);
ftcb.maybe_end_aggregate(def);
consume(_RKLAMMER);