* fixed parsing of typed constant bitpacked arrays where the element's

packed bit size is divisible by 8, but its packed byte size is not a
    power of 2

git-svn-id: trunk@12843 -
This commit is contained in:
Jonas Maebe 2009-03-01 13:13:04 +00:00
parent afa7ade545
commit 273e1f54c9

View File

@ -854,7 +854,8 @@ implementation
end
{ packed array constant }
else if is_packed_array(def) and
(def.elepackedbitsize mod 8 <> 0) then
((def.elepackedbitsize mod 8 <> 0) or
not ispowerof2(def.elepackedbitsize div 8,i)) then
begin
parse_packed_array_def(list,def);
end