paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bestsize bug fixed

Browse Source
This commit is contained in:
pierre 1999-05-21 11:46:28 +00:00
parent d3198c3ff8
commit 2ba655e786
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/temp_gen.pas
View File

@ -209,7 +209,7 @@ unit temp_gen;
begin begin
bestprev:=hprev; bestprev:=hprev;
bestslot:=hp; bestslot:=hp;
bestsize:=size; bestsize:=hp^.size;
end; end;
end; end;
end; end;
@ -220,10 +220,10 @@ unit temp_gen;
{ Reuse an old temp ? } { Reuse an old temp ? }
if assigned(bestslot) then if assigned(bestslot) then
begin begin
ofs:=bestslot^.pos;
if bestsize=size then if bestsize=size then
begin begin
bestslot^.temptype:=tt_normal; bestslot^.temptype:=tt_normal;
ofs:=bestslot^.pos;
tl:=bestslot; tl:=bestslot;
{ Remove from the tempfreelist } { Remove from the tempfreelist }
if assigned(bestprev) then if assigned(bestprev) then
@ -239,6 +239,7 @@ unit temp_gen;
new(tl); new(tl);
tl^.temptype:=tt_normal; tl^.temptype:=tt_normal;
tl^.pos:=bestslot^.pos+bestslot^.size; tl^.pos:=bestslot^.pos+bestslot^.size;
ofs:=tl^.pos;
tl^.size:=size; tl^.size:=size;
tl^.nextfree:=nil; tl^.nextfree:=nil;
{ link the new block } { link the new block }
@ -529,7 +530,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.26 1999-05-19 11:51:00 pierre Revision 1.27 1999-05-21 11:46:28 pierre
* bestsize bug fixed
Revision 1.26 1999/05/19 11:51:00 pierre
* posinfo was not set for ansitemps ! * posinfo was not set for ansitemps !
Revision 1.25 1999/05/17 23:51:47 peter Revision 1.25 1999/05/17 23:51:47 peter