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

* take care of conditions when doing ldr/str optimizations

Browse Source 
git-svn-id: trunk@20428 -
This commit is contained in:
florian 2012-02-25 21:04:28 +00:00
parent b9c54fab0d
commit fdfb9a3fba
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/arm/aoptcpu.pas
View File

@ -135,6 +135,8 @@ Implementation
(hp1.typ = ait_instruction) and
(taicpu(hp1).opcode = A_LDR) and
RefsEqual(taicpu(p).oper[1]^.ref^,taicpu(hp1).oper[1]^.ref^) and
((taicpu(p).condition = taicpu(hp1).condition) or
(taicpu(p).condition = C_None)) and
(taicpu(hp1).oper[1]^.ref^.addressmode=AM_OFFSET) then
begin
if taicpu(hp1).oper[0]^.reg=taicpu(p).oper[0]^.reg then
@ -150,7 +152,7 @@ Implementation
end;
result := true;
end;
end;
end;
A_LDR:
begin
{ change
@ -165,6 +167,8 @@ Implementation
(hp1.typ = ait_instruction) and
(taicpu(hp1).opcode = A_LDR) and
RefsEqual(taicpu(p).oper[1]^.ref^,taicpu(hp1).oper[1]^.ref^) and
((taicpu(p).condition = taicpu(hp1).condition) or
(taicpu(p).condition = C_None)) and
(taicpu(p).oper[0]^.reg<>taicpu(hp1).oper[1]^.ref^.index) and
(taicpu(p).oper[0]^.reg<>taicpu(hp1).oper[1]^.ref^.base) and
(taicpu(hp1).oper[1]^.ref^.addressmode=AM_OFFSET) then
@ -181,8 +185,8 @@ Implementation
taicpu(hp1).loadreg(1,taicpu(p).oper[0]^.reg);
end;
result := true;
end;
end;
end;
end;
A_MOV:
begin
{ fold