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

* Fix register allocation bug that happens when a coalesced

Browse Source 
move is spilled in its entirely.

git-svn-id: trunk@6408 -
This commit is contained in:
daniel 2007-02-10 22:47:13 +00:00
parent 3201f984fe
commit 9256c180de
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/x86/rgx86.pas
View File

@ -135,7 +135,7 @@ implementation
that doesn't need spilling }
if (oper[0]^.typ=top_reg) and
(oper[1]^.typ=top_reg) and
(getsupreg(oper[0]^.reg)<>getsupreg(oper[1]^.reg)) then
(get_alias(getsupreg(oper[0]^.reg))<>get_alias(getsupreg(oper[1]^.reg))) then
begin
{ One of the arguments shall be able to be replaced }
if (getregtype(oper[0]^.reg)=regtype) and