Kaynağa Gözat

* fixed size of bitpacked arrays

git-svn-id: trunk@4488 -
Jonas Maebe 19 yıl önce
ebeveyn
işleme
37a9ce25d5
1 değiştirilmiş dosya ile 1 ekleme ve 1 silme
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

@@ -2605,7 +2605,7 @@ implementation
           end;
 
         if (ado_IsBitPacked in arrayoptions) then
-          size:=align(cachedelesize * cachedelecount,alignment) div 8
+          size:=align(cachedelesize * cachedelecount,alignment*8) div 8
         else
           result:=cachedelesize*cachedelecount;
       end;