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

* don't change "mov const,ref; mov ref,reg" into "mov const,reg; mov reg,ref"

Browse Source 
if ref depends on reg

git-svn-id: trunk@3002 -
This commit is contained in:
Jonas Maebe 2006-03-21 15:25:16 +00:00
parent 061162d9da
commit 01cf70d354
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/i386/popt386.pas
View File

@ -1202,7 +1202,8 @@ begin
(taicpu(hp1).oper[0]^.typ = top_ref) and (taicpu(hp1).oper[0]^.typ = top_ref) and
(taicpu(hp1).oper[1]^.typ = top_reg) and (taicpu(hp1).oper[1]^.typ = top_reg) and
(taicpu(p).opsize = taicpu(hp1).opsize) and (taicpu(p).opsize = taicpu(hp1).opsize) and
RefsEqual(taicpu(hp1).oper[0]^.ref^,taicpu(p).oper[1]^.ref^) then RefsEqual(taicpu(hp1).oper[0]^.ref^,taicpu(p).oper[1]^.ref^) and
not(reginref(getsupreg(taicpu(hp1).oper[1]^.reg),taicpu(hp1).oper[0]^.ref^)) then
begin begin
allocregbetween(asml,taicpu(hp1).oper[1]^.reg,p,hp1,usedregs); allocregbetween(asml,taicpu(hp1).oper[1]^.reg,p,hp1,usedregs);
taicpu(hp1).loadReg(0,taicpu(hp1).oper[1]^.reg); taicpu(hp1).loadReg(0,taicpu(hp1).oper[1]^.reg);