paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 22:06:08 +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
bestprev:=hprev;
bestslot:=hp;
bestsize:=size;
bestsize:=hp^.size;
end;
end;
end;
@ -220,10 +220,10 @@ unit temp_gen;
{ Reuse an old temp ? }
if assigned(bestslot) then
begin
ofs:=bestslot^.pos;
if bestsize=size then
begin
bestslot^.temptype:=tt_normal;
ofs:=bestslot^.pos;
tl:=bestslot;
{ Remove from the tempfreelist }
if assigned(bestprev) then
@ -239,6 +239,7 @@ unit temp_gen;
new(tl);
tl^.temptype:=tt_normal;
tl^.pos:=bestslot^.pos+bestslot^.size;
ofs:=tl^.pos;
tl^.size:=size;
tl^.nextfree:=nil;
{ link the new block }
@ -529,7 +530,10 @@ begin
end.
{
$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 !
Revision 1.25 1999/05/17 23:51:47 peter