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

* fixed error in register renaming in case the first changed instruction

Browse Source 
is an "addl %reg2,%reg1" (was changed into "leal (%reg2,%reg1),%reg2",
    now into "leal (%reg1,%reg1),%reg2")

git-svn-id: trunk@7832 -
This commit is contained in:
Jonas Maebe 2007-06-27 18:30:10 +00:00
parent 8caad93eaf
commit b6ccf54ae9
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/i386/rropt386.pas
View File

@ -166,7 +166,12 @@ begin
internalerror(200402263);
top_reg:
begin
{ "addl %reg2,%reg1" must become "leal (%reg1,%reg1),%reg2" }
{ since at this point reg1 holds the value that reg2 would }
{ otherwise contain }
tmpref.index := p.oper[0]^.reg;
if (getsupreg(tmpref.index)=reg2) then
setsupreg(tmpref.index,reg1);
tmpref.scalefactor := 1;
end;
else internalerror(200010031);