paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 10:49:11 +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

15
rtl/inc/heap.inc
View File

@ -38,9 +38,15 @@
{$endif SYSTEMDEBUG}
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 }
blockshr = 4; { shr value for blocksize=2^blockshr}
maxblocksize = 512+blocksize; { 1024+8 needed for heaprecord }
{$endif}
maxblock = maxblocksize div blocksize;
maxreusebigger = 8; { max reuse bigger tries }
@ -89,13 +95,13 @@ type
size : ptrint;
next,
prev : pfreerecord;
end; { 12 bytes }
end; { 12/24 bytes }
pheaprecord = ^theaprecord;
theaprecord = record
{ this should overlap with tfreerecord }
size : ptrint;
end; { 4 bytes }
end; { 4/8 bytes }
tfreelists = array[0..maxblock] of pfreerecord;
{$ifdef SYSTEMDEBUG}
@ -1334,7 +1340,10 @@ end;
{
$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
* longint replaced with ptrint in heapmanagers