paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TinyHeapMinBlock defined as sizeof(TTinyHeapBlock), as that's the smallest

Browse Source 
free block actually supported

git-svn-id: trunk@28401 -
This commit is contained in:
nickysn 2014-08-13 08:44:53 +00:00
parent e8c1a44068
commit 21246e973a
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/tinyheap.inc
View File

@ -37,10 +37,6 @@
TTinyHeapPointerArithmeticType = ^Byte; {$ifdef FPC_HEAP_HUGE}huge;{$endif} TTinyHeapPointerArithmeticType = ^Byte; {$ifdef FPC_HEAP_HUGE}huge;{$endif}
const
TinyHeapMinBlock = 4*sizeof(pointer);
type
PTinyHeapBlock = ^TTinyHeapBlock; PTinyHeapBlock = ^TTinyHeapBlock;
TTinyHeapBlock = record TTinyHeapBlock = record
Next: PTinyHeapBlock; Next: PTinyHeapBlock;
@ -48,6 +44,9 @@
EndAddr: pointer; EndAddr: pointer;
end; end;
const
TinyHeapMinBlock = sizeof(TTinyHeapBlock);
var var
TinyHeapBlocks: PTinyHeapBlock = nil; TinyHeapBlocks: PTinyHeapBlock = nil;