Browse Source

* ensure always 16 byte aligned memory blocks

git-svn-id: trunk@2511 -
florian 19 years ago
parent
commit
a9198b7300
1 changed files with 6 additions and 0 deletions
  1. 6 0
      rtl/inc/heap.inc

+ 6 - 0
rtl/inc/heap.inc

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