paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ tiny heap alloc granularity moved to a constant TinyHeapAllocGranularity

Browse Source 
git-svn-id: trunk@28417 -
This commit is contained in:
nickysn 2014-08-15 15:22:51 +00:00
parent 14057ef438
commit 815bfe0dcf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/tinyheap.inc
View File

@ -46,6 +46,8 @@
const
TinyHeapMinBlock = sizeof(TTinyHeapBlock);
TinyHeapAllocGranularity = sizeof(Pointer);
var
TinyHeapBlocks: PTinyHeapBlock = nil;
@ -64,7 +66,7 @@
{$ifdef DEBUG_TINY_HEAP}
Write('SysTinyGetMem(', Size, ')=');
{$endif DEBUG_TINY_HEAP}
AllocSize := align(size+sizeof(TTinyHeapMemBlockSize), sizeof(pointer));
AllocSize := align(size+sizeof(TTinyHeapMemBlockSize), TinyHeapAllocGranularity);
p := TinyHeapBlocks;
prev := nil;
@ -206,7 +208,7 @@
result:=0;
exit;
end;
sz := Align(FindSize(addr)+SizeOf(TTinyHeapMemBlockSize), sizeof(pointer));
sz := Align(FindSize(addr)+SizeOf(TTinyHeapMemBlockSize), TinyHeapAllocGranularity);
InternalTinyFreeMem(@PTinyHeapMemBlockSize(addr)[-1], sz);