paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 10:40:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small microoptimization

Browse Source
This commit is contained in:
daniel 2003-12-15 21:39:16 +00:00
parent 03d03d7ce4
commit d9b98b35be
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/inc/heap.inc
View File

@ -620,7 +620,7 @@ var
proc : heaperrorproc;
pcurr : pfreerecord;
again : boolean;
s,s1,i,
s,s1,maxs1,
sizeleft : longint;
{$ifdef BESTMATCH}
pbest : pfreerecord;
@ -686,18 +686,20 @@ begin
{$ifdef REUSEBIGGER}
{ try a bigger block }
s1:=s+s;
i:=0;
while (s1<=maxblock) and (i<maxreusebigger) do
begin
pcurr:=freelists[s1];
if assigned(pcurr) then
begin
s:=s1;
break;
end;
inc(s1);
inc(i);
end;
maxs1:=s1+maxreusebigger;
if maxblock<maxs1 then
maxs1:=maxblock;
while s1<=maxs1 do
begin
if freelists[s1]<>nil then
begin
s:=s1;
pcurr:=freelists[s1];
break;
end;
inc(s1);
end;
pcurr:=nil;
{$endif}
end
else
@ -1289,7 +1291,10 @@ end;
{
$Log$
Revision 1.24 2003-10-02 14:03:24 marco
Revision 1.25 2003-12-15 21:39:16 daniel
* Small microoptimization
Revision 1.24 2003/10/02 14:03:24 marco
* *memORY overloads
Revision 1.23 2003/09/28 12:43:48 peter