paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 20:49:23 +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,8 +964,8 @@ begin
pbest := pcurr;
if pcurr^.size = size then
break;
iter := matcheffort;
end;
iter := matcheffort;
end;
pcurr := pcurr^.next_var;
dec(iter);