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

* do not remove "allocation,deallocation" pairs, as those are important

Browse Source 
for the optimizer
This commit is contained in:
Jonas Maebe 2004-04-26 19:57:50 +00:00
parent 81b37ba988
commit b20d72aa36
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/rgobj.pas
View File

@ -1601,8 +1601,10 @@ implementation
if assigned(previous) and
(Tai(previous).typ=ait_regalloc) and
(Tai_regalloc(previous).reg=reg) and
{ allocation,deallocation or deallocation,allocation }
(Tai_regalloc(previous).allocation xor allocation) then
{ deallocation,allocation }
{ note: do not remove allocation,deallocation, those }
{ do have a real meaning }
(not(Tai_regalloc(previous).allocation) and allocation) then
begin
q:=Tai(next);
hp:=tai(previous);
@ -2021,7 +2023,11 @@ implementation
end.
{
$Log$
Revision 1.124 2004-03-14 22:50:04 peter
Revision 1.125 2004-04-26 19:57:50 jonas
* do not remove "allocation,deallocation" pairs, as those are important
for the optimizer
Revision 1.124 2004/03/14 22:50:04 peter
* rewrote add_to_movelist, it now uses a field to store the number
of allocated entries. Also made it using less hardcoded values