* fix size calculation for packed arrays: it is not required to take alignment into account. Fixes tparray5 on 64 bit cpus

git-svn-id: trunk@5050 -
This commit is contained in:
tom_at_work 2006-10-28 22:27:57 +00:00
parent 4626f2c489
commit bfa4fc30cd

View File

@ -2594,7 +2594,7 @@ implementation
end;
if (ado_IsBitPacked in arrayoptions) then
size:=align(cachedelesize * cachedelecount,alignment*8) div 8
size:=(cachedelesize * cachedelecount + 7) div 8
else
result:=cachedelesize*cachedelecount;
end;