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

* arm thumb: let all registers used in a ldr/str operation interfere with the "hi" registers

Browse Source 
git-svn-id: trunk@24202 -
This commit is contained in:
florian 2013-04-07 21:39:30 +00:00
parent 36a32e153d
commit dee35abf41
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/arm/rgcpu.pas
View File

@ -541,15 +541,15 @@ unit rgcpu;
A_LDRSH,
A_LDRD,
A_STRD:
{ "hi" registers cannot be used as base or index }
if (taicpu(p).oper[1]^.typ=top_ref) then
begin
{ add_edge handles precoloured registers already }
for i:=RS_R8 to RS_R15 do
add_edge(getsupreg(taicpu(p).oper[1]^.ref^.base),i);
for i:=RS_R8 to RS_R15 do
add_edge(getsupreg(taicpu(p).oper[1]^.ref^.index),i);
end;
begin
{ add_edge handles precoloured registers already }
for i:=RS_R8 to RS_R15 do
begin
add_edge(getsupreg(taicpu(p).oper[1]^.ref^.base),i);
add_edge(getsupreg(taicpu(p).oper[1]^.ref^.index),i);
add_edge(getsupreg(taicpu(p).oper[0]^.reg),i);
end;
end;
end;
end;
end;