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

* use the size of the generated anonymous record instead of the manual tracked size so that any padding is picked up as well

Browse Source 
git-svn-id: trunk@42521 -
This commit is contained in:
svenbarth 2019-07-28 19:50:30 +00:00
parent 8fc5c9edb2
commit 0b3418e978
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgrtti.pas
View File

@ -1814,7 +1814,6 @@ implementation
arglab : tasmlabel;
argdef : tdef;
i : sizeint;
arglen : word;
begin
if length(attr.paras)=0 then
begin
@ -1830,7 +1829,6 @@ implementation
argtcb.begin_anonymous_record('',defaultpacking,min(reqalign,SizeOf(PInt)),
targetinfos[target_info.system]^.alignment.recordalignmin);
arglen:=0;
for i:=0 to High(attr.paras) do
begin
case attr.paras[i].nodetype of
@ -1840,9 +1838,9 @@ implementation
stringconstn,
pointerconstn,
guidconstn:
inc(arglen,tconstnode(attr.paras[i]).emit_data(argtcb));
tconstnode(attr.paras[i]).emit_data(argtcb);
setconstn:
inc(arglen,tsetconstnode(attr.paras[i]).emit_data(argtcb));
tsetconstnode(attr.paras[i]).emit_data(argtcb);
else
internalerror(2019070803);
end;
@ -1857,7 +1855,7 @@ implementation
argtcb.free;
{ write argument size and the reference to the argument entry }
tbltcb.emit_ord_const(arglen,u16inttype);
tbltcb.emit_ord_const(argdef.size,u16inttype);
tbltcb.emit_tai(Tai_const.Create_sym(arglab),voidpointertype);
end;
end;