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

* fixed the number of bytes added for packed record ordinal fields in the

Browse Source 
llvm shadow table

git-svn-id: trunk@32564 -
This commit is contained in:
Jonas Maebe 2015-12-01 21:52:20 +00:00
parent d973c1c0c9
commit bbbceb08d9
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symtable.pas
View File

@ -1839,12 +1839,15 @@ implementation
(vardef.packedbitsize mod 8 <> 0) then
begin
tmpsize:=vardef.packedbitsize;
sizectr:=tmpsize+7;
repeat
symdeflist.add(tllvmshadowsymtableentry.create(u8inttype,fieldoffset+(tmpsize+7)-sizectr));
dec(sizectr,8);
until (sizectr<=0);
sizectr:=((curroffset+tmpsize+7) shr 3)-((curroffset+7) shr 3);
inc(curroffset,tmpsize);
curroffset:=0;
while sizectr<>0 do
begin
symdeflist.add(tllvmshadowsymtableentry.create(u8inttype,fieldoffset+curroffset*8));
dec(sizectr);
inc(curroffset);
end;
end
else
begin