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

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

git-svn-id: trunk@28419 -

rtl/inc/tinyheap.inc

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