* simplify RegisterTinyHeapBlock by calling InternalTinyFreeMem directly,

  instead of FreeMem. We already do the alignments correctly, so going through
  FreeMem is no longer necessary.

git-svn-id: trunk@28428 -

rtl/inc/tinyheap.inc

@@ -271,8 +271,7 @@
         Inc(AAddress,alignment_inc);
         Dec(ASize,alignment_inc);
         Dec(ASize,ASize mod TinyHeapAllocGranularity);
-        PTinyHeapMemBlockSize(AAddress)^ := ASize - SizeOf(TTinyHeapMemBlockSize);
-        FreeMem(Pointer(PTinyHeapMemBlockSize(AAddress) + 1), ASize - SizeOf(TTinyHeapMemBlockSize));
+        InternalTinyFreeMem(AAddress, ASize);
       end;
 
     const