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

* fixed alignment of dyn. arrays

Browse Source 
git-svn-id: trunk@6458 -
This commit is contained in:
florian 2007-02-12 18:41:21 +00:00
parent b5b86f6d73
commit 4575c9f424
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/symdef.pas
View File

@ -2307,8 +2307,11 @@ implementation
function tarraydef.alignment : shortint; function tarraydef.alignment : shortint;
begin begin
{ alignment of dyn. arrays doesn't depend on the element size }
if (ado_IsDynamicArray in arrayoptions) then
alignment:=size_2_align(sizeof(aint))
{ alignment is the size of the elements } { alignment is the size of the elements }
if (elementdef.typ in [arraydef,recorddef]) or else if (elementdef.typ in [arraydef,recorddef]) or
((elementdef.typ=objectdef) and ((elementdef.typ=objectdef) and
is_object(elementdef)) then is_object(elementdef)) then
alignment:=elementdef.alignment alignment:=elementdef.alignment