paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 05:22:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 64bit fixes

Browse Source
This commit is contained in:
peter 2004-04-26 16:20:54 +00:00
parent b4474438d9
commit 482e1a2505
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/heap.inc
View File

@ -38,9 +38,15 @@
{$endif SYSTEMDEBUG} {$endif SYSTEMDEBUG}
const const
{$ifdef CPU64}
blocksize = 32; { at least size of freerecord }
blockshr = 5; { shr value for blocksize=2^blockshr}
maxblocksize = 512+blocksize; { 1024+8 needed for heaprecord }
{$else}
blocksize = 16; { at least size of freerecord } blocksize = 16; { at least size of freerecord }
blockshr = 4; { shr value for blocksize=2^blockshr} blockshr = 4; { shr value for blocksize=2^blockshr}
maxblocksize = 512+blocksize; { 1024+8 needed for heaprecord } maxblocksize = 512+blocksize; { 1024+8 needed for heaprecord }
{$endif}
maxblock = maxblocksize div blocksize; maxblock = maxblocksize div blocksize;
maxreusebigger = 8; { max reuse bigger tries } maxreusebigger = 8; { max reuse bigger tries }
@ -89,13 +95,13 @@ type
size : ptrint; size : ptrint;
next, next,
prev : pfreerecord; prev : pfreerecord;
end; { 12 bytes } end; { 12/24 bytes }
pheaprecord = ^theaprecord; pheaprecord = ^theaprecord;
theaprecord = record theaprecord = record
{ this should overlap with tfreerecord } { this should overlap with tfreerecord }
size : ptrint; size : ptrint;
end; { 4 bytes } end; { 4/8 bytes }
tfreelists = array[0..maxblock] of pfreerecord; tfreelists = array[0..maxblock] of pfreerecord;
{$ifdef SYSTEMDEBUG} {$ifdef SYSTEMDEBUG}
@ -1334,7 +1340,10 @@ end;
{ {
$Log$ $Log$
Revision 1.28 2004-03-15 21:48:26 peter Revision 1.29 2004-04-26 16:20:54 peter
* 64bit fixes
Revision 1.28 2004/03/15 21:48:26 peter
* cmem moved to rtl * cmem moved to rtl
* longint replaced with ptrint in heapmanagers * longint replaced with ptrint in heapmanagers