paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 17:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ensure always 16 byte aligned memory blocks

Browse Source 
git-svn-id: trunk@2511 -
This commit is contained in:
florian 2006-02-10 19:08:43 +00:00
parent 0b1b0047f4
commit a9198b7300
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/heap.inc
View File

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