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

* fix heap var size chunk search to be as intended (search constant number of blocks from best, not from any bigger)

Browse Source 
git-svn-id: trunk@7807 -
This commit is contained in:
micha 2007-06-24 21:50:05 +00:00
parent b4363e046b
commit cd1a283a18
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

@ -964,9 +964,9 @@ begin
pbest := pcurr;
if pcurr^.size = size then
break;
end;
iter := matcheffort;
end;
end;
pcurr := pcurr^.next_var;
dec(iter);
end;