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

* completed post/pre inc/decrement addressing mode instructions in TAoptBaseCpu.RegModifiedByInstruction

Browse Source
This commit is contained in:
florian 2023-02-18 11:14:34 +01:00
parent e4ad313f8b
commit a221f2af79
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/avr/aoptcpub.pas
View File

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