From 815bfe0dcf6a859d2a2471f5d797eb7144ad926d Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 15 Aug 2014 15:22:51 +0000
Subject: [PATCH] + tiny heap alloc granularity moved to a constant
TinyHeapAllocGranularity
git-svn-id: trunk@28417 -
---
rtl/inc/tinyheap.inc | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/rtl/inc/tinyheap.inc b/rtl/inc/tinyheap.inc
index f95c0ab26b..2f868efa32 100644
--- a/rtl/inc/tinyheap.inc
+++ b/rtl/inc/tinyheap.inc
@@ -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);