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

* fixed temp reuse

Browse Source
This commit is contained in:
peter 1999-04-06 11:19:49 +00:00
parent b149cc5681
commit 55809784b4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/temp_gen.pas
View File

@ -166,8 +166,6 @@ unit temp_gen;
if hp^.size>=size then if hp^.size>=size then
begin begin
ofs:=hp^.pos; ofs:=hp^.pos;
if hp^.pos-size < maxtemp then
maxtemp := hp^.size-size;
{ the whole block is needed ? } { the whole block is needed ? }
if hp^.size>size then if hp^.size>size then
begin begin
@ -508,7 +506,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.9 1999-02-22 02:15:56 peter Revision 1.10 1999-04-06 11:19:49 peter
* fixed temp reuse
Revision 1.9 1999/02/22 02:15:56 peter
* updates for ag386bin * updates for ag386bin
Revision 1.8 1999/02/11 09:35:19 pierre Revision 1.8 1999/02/11 09:35:19 pierre