From 21246e973a63f773e4f6d983398ef368c7a59f53 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 13 Aug 2014 08:44:53 +0000
Subject: [PATCH] * TinyHeapMinBlock defined as sizeof(TTinyHeapBlock), as
 that's the smallest   free block actually supported

git-svn-id: trunk@28401 -
---
 rtl/inc/tinyheap.inc | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/rtl/inc/tinyheap.inc b/rtl/inc/tinyheap.inc
index 77317ac819..b2ae6dc450 100644
--- a/rtl/inc/tinyheap.inc
+++ b/rtl/inc/tinyheap.inc
@@ -37,10 +37,6 @@
 
       TTinyHeapPointerArithmeticType = ^Byte; {$ifdef FPC_HEAP_HUGE}huge;{$endif}
 
-    const
-      TinyHeapMinBlock = 4*sizeof(pointer);
-
-    type
       PTinyHeapBlock = ^TTinyHeapBlock;
       TTinyHeapBlock = record
         Next: PTinyHeapBlock;
@@ -48,6 +44,9 @@
         EndAddr: pointer;
       end;
 
+    const
+      TinyHeapMinBlock = sizeof(TTinyHeapBlock);
+
     var
       TinyHeapBlocks: PTinyHeapBlock = nil;