mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-29 12:20:28 +02:00
* 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:
parent
afa7ade545
commit
273e1f54c9
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user