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

* compilation fixed

Browse Source 
git-svn-id: trunk@41139 -
This commit is contained in:
florian 2019-01-29 22:06:32 +00:00
parent e52cf555ab
commit 2b6076a719
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/cgcpu.pas
View File

@ -2694,9 +2694,9 @@ unit cgcpu;
((ref.symbol=nil) and
(ref.addressmode=AM_OFFSET) and
(((ref.offset>=0) and (ref.offset+len<=31)) or
(not(GenerateThumbCode) and (ref.offset>=-255) and (ref.offset+len<=255))
(not(GenerateThumbCode) and (ref.offset>=-255) and (ref.offset+len<=255)) or
{ ldrh has a limited offset range }
(not(GenerateThumbCode) and ((len mod 4) in [0,1]) and (ref.offset>=-4095) and (ref.offset+len<=4095))}
(not(GenerateThumbCode) and ((len mod 4) in [0,1]) and (ref.offset>=-4095) and (ref.offset+len<=4095))
)
);
end;