|
@@ -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;
|