* the type of FreeList changed to an untyped pointer (TP7 compatibility)

git-svn-id: trunk@28608 -

rtl/inc/tinyheap.inc

@@ -56,7 +56,7 @@
       TinyHeapAllocGranularity = sizeof(TTinyHeapBlock);
 
     var
-      FreeList: PTinyHeapBlock = nil;
+      FreeList: Pointer = nil;
 
     function EncodeTinyHeapFreeBlockSize(Size: PtrUInt): TTinyHeapFreeBlockSize; inline;
       begin