paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* after a LdiMov/Cp2Ldi/Cpi optimization, the compiler should not continue to optimize this instruction because then reg. alloc info is wrong

Browse Source 
git-svn-id: trunk@37604 -
This commit is contained in:
florian 2017-11-19 18:05:14 +00:00
parent 81b15d213d
commit ad01f059e8
1 changed files with 6 additions and 8 deletions

14
compiler/avr/aoptcpu.pas
View File

@ -200,22 +200,22 @@ Implementation
if p.opcode in [A_MOV,A_LD,A_LDD,A_LDS,A_LPM,A_LDI,A_MOVW] then
i:=1;
while(i<p.ops) do
while i<p.ops do
begin
case p.oper[I]^.typ of
case p.oper[i]^.typ of
top_reg:
Result := (p.oper[I]^.reg = reg) or
Result := (p.oper[i]^.reg = reg) or
{ MOVW }
((i=1) and (p.opcode=A_MOVW) and (getsupreg(p.oper[0]^.reg)+1=getsupreg(reg)));
top_ref:
Result :=
(p.oper[I]^.ref^.base = reg) or
(p.oper[I]^.ref^.index = reg);
(p.oper[i]^.ref^.base = reg) or
(p.oper[i]^.ref^.index = reg);
end;
{ Bailout if we found something }
if Result then
exit;
Inc(I);
Inc(i);
end;
end;
@ -344,8 +344,6 @@ Implementation
asml.Remove(p);
p.Free;
p:=hp1;
result:=true;
end;
ReleaseUsedRegs(TmpUsedRegs);
end;