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

* post/pre inc/decrement references modify obviously the base register on avr, resolves #40153

Browse Source
This commit is contained in:
florian 2023-02-17 23:02:02 +01:00
parent ece59f2534
commit 22f1289b2a
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/avr/aoptcpub.pas
View File

@ -140,6 +140,20 @@ Implementation
exit;
end;
If (taicpu(p1).opcode=A_LD) and
(taicpu(p1).oper[1]^.ref^.addressmode in [AM_POSTINCREMENT,AM_PREDECREMENT]) and (taicpu(p1).oper[1]^.ref^.base=reg) then
begin
Result:=true;
exit;
end;
If (taicpu(p1).opcode=A_ST) and
(taicpu(p1).oper[0]^.ref^.addressmode in [AM_POSTINCREMENT,AM_PREDECREMENT]) and (taicpu(p1).oper[0]^.ref^.base=reg) then
begin
Result:=true;
exit;
end;
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
begin