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

* AVR: fix TAoptBaseCpu.RegModifiedByInstruction, resolves #39623

Browse Source
This commit is contained in:
florian 2022-04-24 22:41:10 +02:00
parent e87c52d7dc
commit 49edb0b606
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/avr/aoptcpub.pas
View File

@ -117,13 +117,22 @@ Implementation
i : Longint; i : Longint;
begin begin
result:=false; result:=false;
If (p1.typ = ait_instruction) and (taicpu(p1).opcode in [A_MUL,A_MULS,A_FMUL,A_FMULS,A_FMULSU]) and if p1.typ <> ait_instruction then
exit;
If (taicpu(p1).opcode in [A_MUL,A_MULS,A_FMUL,A_FMULS,A_FMULSU]) and
((getsupreg(reg)=RS_R0) or (getsupreg(reg)=RS_R1)) then ((getsupreg(reg)=RS_R0) or (getsupreg(reg)=RS_R1)) then
begin begin
Result:=true; Result:=true;
exit; exit;
end; end;
If (taicpu(p1).opcode=A_MOVW) and
(TRegister(ord(taicpu(p1).oper[0]^.reg)+1)=reg) then
begin
Result:=true;
exit;
end;
for i:=0 to taicpu(p1).ops-1 do for i:=0 to taicpu(p1).ops-1 do
if (taicpu(p1).oper[i]^.typ=top_reg) and (taicpu(p1).oper[i]^.reg=Reg) and (taicpu(p1).spilling_get_operation_type(i) in [operand_write,operand_readwrite]) then if (taicpu(p1).oper[i]^.typ=top_reg) and (taicpu(p1).oper[i]^.reg=Reg) and (taicpu(p1).spilling_get_operation_type(i) in [operand_write,operand_readwrite]) then
begin begin