Переглянути джерело

* 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 -

Jonas Maebe 16 роки тому
батько
коміт
273e1f54c9
1 змінених файлів з 2 додано та 1 видалено
  1. 2 1
      compiler/ptconst.pas

+ 2 - 1
compiler/ptconst.pas

@@ -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