* set alignment for 0-byte sized entities to 1 instead of to 0

git-svn-id: trunk@12931 -
This commit is contained in:
Jonas Maebe 2009-03-20 16:26:06 +00:00
parent fe773871d6
commit c04e9e36f7

View File

@ -1069,6 +1069,11 @@ implementation
begin
{ natural alignment by default }
alignment:=size_2_align(savesize);
{ can happen if savesize = 0, e.g. for voiddef or
an empty record
}
if (alignment=0) then
alignment:=1;
end;