* keep the tiny heap free blocks ordered by start address, instead of size.

  Rationale: 1) TP7 compatibility, 2) easier debugging of heap corruption
  problems

git-svn-id: trunk@28518 -

rtl/inc/tinyheap.inc

@@ -178,7 +178,7 @@
                   p := TinyHeapBlocks;
                   prev := nil;
 
-                  while assigned(p) and (p^.Size < size) do
+                  while assigned(p) and (TTinyHeapPointerArithmeticType(p) < TTinyHeapPointerArithmeticType(b)) do
                     begin
                       prev := p;
                       p := p^.Next;