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

* fixed more alignment issues

Browse Source
This commit is contained in:
florian 2004-01-30 14:33:06 +00:00
parent 35b8e93073
commit 4505b320b7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symtable.pas
View File

@ -1165,12 +1165,11 @@ implementation
{ update alignment of this record } { update alignment of this record }
varalign:=ps.vartype.def.alignment; varalign:=ps.vartype.def.alignment;
{
if varalign=0 then if varalign=0 then
varalign:=size_2_align(ps.getvaluesize); varalign:=size_2_align(ps.getvaluesize);
}
varalignrecord:=used_align(varalign,aktalignment.recordalignmin,aktalignment.recordalignmax); varalignrecord:=used_align(varalign,aktalignment.recordalignmin,aktalignment.recordalignmax);
recordalignment:=max(recordalignment,varalignrecord); recordalignment:=max(recordalignment,varalignrecord);
{ next } { next }
ps:=nps; ps:=nps;
end; end;
@ -2339,7 +2338,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.130 2004-01-30 13:42:03 florian Revision 1.131 2004-01-30 14:33:06 florian
* fixed more alignment issues
Revision 1.130 2004/01/30 13:42:03 florian
* fixed more alignment issues * fixed more alignment issues
Revision 1.129 2004/01/29 16:51:29 peter Revision 1.129 2004/01/29 16:51:29 peter