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

* fixes reference handling for arm thumb and ldrb, not perfect yet and other ldr/str types might need similiar fixes

Browse Source 
git-svn-id: trunk@28549 -
This commit is contained in:
florian 2014-08-31 11:37:17 +00:00
parent 97831bed8a
commit dffdde7d53
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/arm/cgcpu.pas
View File

@ -4063,10 +4063,17 @@ unit cgcpu;
reference_reset_base(href,tmpreg,0,ref.alignment);
end
else if (op=A_LDR) and
(oppostfix in [PF_None]) and
(ref.base<>NR_STACK_POINTER_REG) and
(abs(ref.offset)>124) then
else if ((op=A_LDR) and (oppostfix in [PF_None]) and
(ref.base<>NR_STACK_POINTER_REG) and
(abs(ref.offset)>124)) or
{ LDRB limitations }
(
(((op=A_LDR) and (oppostfix=PF_B)) or
((op=A_LDRB) and (oppostfix=PF_None))) and
((ref.base=NR_STACK_POINTER_REG) or
(ref.index=NR_STACK_POINTER_REG) or
(abs(ref.offset)>31))
) then
begin
tmpreg:=getintregister(list,OS_ADDR);
a_loadaddr_ref_reg(list,ref,tmpreg);