浏览代码

* ensure always 16 byte aligned memory blocks

git-svn-id: trunk@2511 -
florian 19 年之前
父节点
当前提交
a9198b7300
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. 6 0
      rtl/inc/heap.inc

+ 6 - 0
rtl/inc/heap.inc

@@ -78,12 +78,18 @@ const
 
 type
   poschunk = ^toschunk;
+  { keep size of this record dividable by 16 }
   toschunk = record
     size,
     used,
     chunkindex : ptrint;
     next,
     prev  : poschunk;
+{$ifdef CPU64}
+    pad1 : array[0..0] of pointer;
+{$else CPU64}
+    pad1 : array[0..2] of pointer;
+{$endif CPU64}
   end;
 
   pmemchunk_fixed  = ^tmemchunk_fixed;