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

* add padding byte fields all as unsigned, as that is also how we

Browse Source 
generate them in aasmcnst

git-svn-id: trunk@32717 -
This commit is contained in:
Jonas Maebe 2015-12-25 21:05:36 +00:00
parent abcf441c00
commit 00c777e51a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symtable.pas
View File

@ -1860,7 +1860,7 @@ implementation
{ curoffset: address right after the previous field }
while (fieldoffset>curroffset) do
begin
symdeflist.add(tllvmshadowsymtableentry.create(s8inttype,curroffset));
symdeflist.add(tllvmshadowsymtableentry.create(u8inttype,curroffset));
inc(curroffset);
end;
symdeflist.add(tllvmshadowsymtableentry.create(vardef,fieldoffset));
@ -1887,7 +1887,7 @@ implementation
{ add padding fields }
while (finalsize>curroffset) do
begin
symdeflist.add(tllvmshadowsymtableentry.create(s8inttype,curroffset));
symdeflist.add(tllvmshadowsymtableentry.create(u8inttype,curroffset));
inc(curroffset);
end;
end;