Przeglądaj źródła

* fix size calculation for packed arrays: it is not required to take alignment into account. Fixes tparray5 on 64 bit cpus

git-svn-id: trunk@5050 -
tom_at_work 19 lat temu
rodzic
commit
bfa4fc30cd
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

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