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

* strd/ldrd are not supported by thumb

Browse Source 
git-svn-id: trunk@25406 -
This commit is contained in:
florian 2013-09-03 21:09:13 +00:00
parent 0e7a7c68b0
commit cb1f38b0af
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/arm/aoptcpu.pas
View File

@ -640,7 +640,8 @@ Implementation
into into
strd reg1,ref strd reg1,ref
} }
else if (CPUARM_HAS_EDSP in cpu_capabilities[current_settings.cputype]) and else if (GenerateARMCode or GenerateThumb2Code) and
(CPUARM_HAS_EDSP in cpu_capabilities[current_settings.cputype]) and
(taicpu(p).oppostfix=PF_None) and (taicpu(p).oppostfix=PF_None) and
(taicpu(p).oper[1]^.ref^.addressmode=AM_OFFSET) and (taicpu(p).oper[1]^.ref^.addressmode=AM_OFFSET) and
GetNextInstruction(p,hp1) and GetNextInstruction(p,hp1) and
@ -704,7 +705,8 @@ Implementation
... ...
ldrd reg1,ref ldrd reg1,ref
} }
else if (CPUARM_HAS_EDSP in cpu_capabilities[current_settings.cputype]) and else if (GenerateARMCode or GenerateThumb2Code) and
(CPUARM_HAS_EDSP in cpu_capabilities[current_settings.cputype]) and
{ ldrd does not allow any postfixes ... } { ldrd does not allow any postfixes ... }
(taicpu(p).oppostfix=PF_None) and (taicpu(p).oppostfix=PF_None) and
not(odd(getsupreg(taicpu(p).oper[0]^.reg))) and not(odd(getsupreg(taicpu(p).oper[0]^.reg))) and