* TinyHeapMinBlock defined as sizeof(TTinyHeapBlock), as that's the smallest

  free block actually supported

git-svn-id: trunk@28401 -

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;