paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@14420 -
This commit is contained in:
micha 2009-12-12 09:37:36 +00:00
parent a6e6e9d453
commit 347d71db10
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/heap.inc
View File

@ -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