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

* use voidpointertype.size instead of sizeof(pint) in tarraydef in order to

Browse Source 
determine the size of dynarrays correctly in the i8086 far data memory models

git-svn-id: trunk@27243 -
This commit is contained in:
nickysn 2014-03-23 18:33:14 +00:00
parent 149db35910
commit 5d9a193887
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symdef.pas
View File

@ -3459,7 +3459,7 @@ implementation
begin
if ado_IsDynamicArray in arrayoptions then
begin
size:=sizeof(pint);
size:=voidpointertype.size;
exit;
end;
@ -3520,7 +3520,7 @@ implementation
begin
{ alignment of dyn. arrays doesn't depend on the element size }
if (ado_IsDynamicArray in arrayoptions) then
alignment:=size_2_align(sizeof(pint))
alignment:=size_2_align(voidpointertype.size)
{ alignment is the target alignment for the used load size }
else if (ado_IsBitPacked in arrayoptions) and
(elementdef.typ in [enumdef,orddef]) then