浏览代码

* 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
             end
           { packed array constant }
           { packed array constant }
           else if is_packed_array(def) and
           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
             begin
               parse_packed_array_def(list,def);
               parse_packed_array_def(list,def);
             end
             end