* rtl/heap: optimization, while looking for a big enough block, also use blocks that are exactly large enough

git-svn-id: trunk@14420 -

rtl/inc/heap.inc

@@ -951,7 +951,7 @@ begin
   iter := high(iter);
   while assigned(pcurr) and (iter>0) do
   begin
-    if (pcurr^.size>size) then
+    if (pcurr^.size>=size) then
     begin
       if not assigned(pbest) or (pcurr^.size<pbest^.size) then
       begin