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

* when updating registers in RegUsedAfterInstruction, new reg. allocs should be ignored

Browse Source 
git-svn-id: trunk@27711 -
This commit is contained in:
florian 2014-05-01 19:20:32 +00:00
parent 8c86d64866
commit 8060d4a3f7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aoptobj.pas
View File

@ -1119,7 +1119,7 @@ Unit AoptObj;
function TAOptObj.RegUsedAfterInstruction(reg: Tregister; p: tai; function TAOptObj.RegUsedAfterInstruction(reg: Tregister; p: tai;
var AllUsedRegs: TAllUsedRegs): Boolean; var AllUsedRegs: TAllUsedRegs): Boolean;
begin begin
AllUsedRegs[getregtype(reg)].Update(tai(p.Next)); AllUsedRegs[getregtype(reg)].Update(tai(p.Next),true);
RegUsedAfterInstruction := RegUsedAfterInstruction :=
(AllUsedRegs[getregtype(reg)].IsUsed(reg)); { optimization and (AllUsedRegs[getregtype(reg)].IsUsed(reg)); { optimization and
(not(getNextInstruction(p,p)) or (not(getNextInstruction(p,p)) or