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

* arm: Fixed crash while loading double constants with PIC enabled. This is the regression after r41129. The crash has occurred due to usage of a rare code path. It will be fixed in the next commit.

Browse Source 
git-svn-id: trunk@41404 -
This commit is contained in:
yury 2019-02-20 20:00:06 +00:00
parent ad6642edc0
commit 3e8c7f66b7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/cgcpu.pas
View File

@ -2656,7 +2656,7 @@ unit cgcpu;
if we can keep the original reference while copying }
function SimpleRef(const ref : treference) : boolean;
begin
result:=((ref.base=NR_PC) and (ref.addressmode=AM_OFFSET) and (ref.refaddr=addr_full)) or
result:=((ref.base=NR_PC) and (ref.addressmode=AM_OFFSET) and (ref.refaddr in [addr_full,addr_no])) or
((ref.symbol=nil) and
(ref.addressmode=AM_OFFSET) and
(((ref.offset>=0) and (ref.offset+len<=31)) or