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

* TinyHeapAllocGranularity changed to SizeOf(TTinyHeapBlock). This fixes a bug

Browse Source 
where the free blocks may become fragmented, even though all the memory has
  been freed, following certain allocation patterns.

git-svn-id: trunk@28419 -
This commit is contained in:
nickysn 2014-08-15 22:13:23 +00:00
parent 902c25fafa
commit 2e0c40d33b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/tinyheap.inc
View File

@ -46,7 +46,7 @@
const const
TinyHeapMinBlock = sizeof(TTinyHeapBlock); TinyHeapMinBlock = sizeof(TTinyHeapBlock);
TinyHeapAllocGranularity = sizeof(Pointer); TinyHeapAllocGranularity = sizeof(TTinyHeapBlock);
var var
TinyHeapBlocks: PTinyHeapBlock = nil; TinyHeapBlocks: PTinyHeapBlock = nil;