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

* fixed bug in r4674

Browse Source 
git-svn-id: trunk@4678 -
This commit is contained in:
Jonas Maebe 2006-09-21 20:34:18 +00:00
parent e1373d9d5f
commit 6be389e954
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgmem.pas
View File

@ -369,7 +369,6 @@ implementation
inc(location.reference.offset,vs.fieldoffset); inc(location.reference.offset,vs.fieldoffset);
{$ifdef SUPPORT_UNALIGNED} {$ifdef SUPPORT_UNALIGNED}
{ packed? } { packed? }
{$warning unalignment check does not work since usefieldalignment is not stored in ppu}
if (vs.owner.defowner.deftype in [recorddef,objectdef]) and if (vs.owner.defowner.deftype in [recorddef,objectdef]) and
(tabstractrecordsymtable(vs.owner).usefieldalignment=1) then (tabstractrecordsymtable(vs.owner).usefieldalignment=1) then
location.reference.alignment:=1; location.reference.alignment:=1;
@ -772,7 +771,9 @@ implementation
begin begin
inc(location.reference.offset, inc(location.reference.offset,
bytemulsize*tordconstnode(right).value); bytemulsize*tordconstnode(right).value);
newsize:=int_cgsize(bytemulsize); { don't do this for floats etc. }
if (tcgsize2size[newsize] <> bytemulsize) then
newsize:=int_cgsize(bytemulsize);
end end
else else
begin begin