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

git-svn-id: trunk@28608 -
This commit is contained in:
nickysn 2014-09-06 18:52:43 +00:00
parent a4d71348dd
commit e4095588d6

View File

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