Преглед на файлове

* 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