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

* correctly handle LDRD in TAoptBaseCpu.RegModifiedByInstruction

Browse Source 
git-svn-id: trunk@41130 -
This commit is contained in:
florian 2019-01-29 20:40:40 +00:00
parent acbf7d15c4
commit afd4599d26
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/arm/aoptcpub.pas
View File

@ -119,6 +119,15 @@ Implementation
i : Longint; i : Longint;
begin begin
result:=false; result:=false;
case taicpu(p1).opcode of
A_LDR:
{ special handling for LDRD }
if (taicpu(p1).oppostfix=PF_D) and (getsupreg(taicpu(p1).oper[0]^.reg)+1=getsupreg(Reg)) then
begin
result:=true;
exit;
end;
end;
for i:=0 to taicpu(p1).ops-1 do for i:=0 to taicpu(p1).ops-1 do
case taicpu(p1).oper[i]^.typ of case taicpu(p1).oper[i]^.typ of
top_reg: top_reg: