paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-14 18:39:36 +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 } { curoffset: address right after the previous field }
while (fieldoffset>curroffset) do while (fieldoffset>curroffset) do
begin begin
symdeflist.add(tllvmshadowsymtableentry.create(s8inttype,curroffset)); symdeflist.add(tllvmshadowsymtableentry.create(u8inttype,curroffset));
inc(curroffset); inc(curroffset);
end; end;
symdeflist.add(tllvmshadowsymtableentry.create(vardef,fieldoffset)); symdeflist.add(tllvmshadowsymtableentry.create(vardef,fieldoffset));
@ -1887,7 +1887,7 @@ implementation
{ add padding fields } { add padding fields }
while (finalsize>curroffset) do while (finalsize>curroffset) do
begin begin
symdeflist.add(tllvmshadowsymtableentry.create(s8inttype,curroffset)); symdeflist.add(tllvmshadowsymtableentry.create(u8inttype,curroffset));
inc(curroffset); inc(curroffset);
end; end;
end; end;