paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 12:41:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed copy-paste error in r15600

Browse Source 
* fixed spilling error after r15600 the same register appears twice in an
    instruction (it was spilled once in that case)

git-svn-id: trunk@15601 -
This commit is contained in:
Jonas Maebe 2010-07-18 21:24:52 +00:00
parent a75016e67b
commit 99a75c56fc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/rgx86.pas
View File

@ -124,7 +124,7 @@ implementation
1 : 1 :
begin begin
if (oper[0]^.typ=top_reg) and if (oper[0]^.typ=top_reg) and
(getregtype(oper[n+0]^.reg)=regtype) then (getregtype(oper[0]^.reg)=regtype) then
begin begin
if get_alias(getsupreg(oper[0]^.reg))<>orgreg then if get_alias(getsupreg(oper[0]^.reg))<>orgreg then
internalerror(200410101); internalerror(200410101);
@ -143,7 +143,10 @@ implementation
if ops=3 then if ops=3 then
n:=1; n:=1;
if (oper[n+0]^.typ=top_reg) and if (oper[n+0]^.typ=top_reg) and
(oper[n+1]^.typ=top_reg) then (oper[n+1]^.typ=top_reg) and
((getregtype(oper[n+0]^.reg)<>regtype) or
(getregtype(oper[n+1]^.reg)<>regtype) or
(get_alias(getsupreg(oper[n+0]^.reg))<>get_alias(getsupreg(oper[n+1]^.reg)))) then
begin begin
if (getregtype(oper[n+0]^.reg)=regtype) and if (getregtype(oper[n+0]^.reg)=regtype) and
(get_alias(getsupreg(oper[n+0]^.reg))=orgreg) then (get_alias(getsupreg(oper[n+0]^.reg))=orgreg) then