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

* references containing a symbol must be virtually always pc relative on arm

Browse Source 
git-svn-id: trunk@18232 -
This commit is contained in:
florian 2011-08-16 22:28:30 +00:00
parent 0cc53cc5df
commit 1e1c45c665
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmtai.pas
View File

@ -2015,7 +2015,11 @@ implementation
if (cs_create_pic in current_settings.moduleswitches) and if (cs_create_pic in current_settings.moduleswitches) and
assigned(r.symbol) and assigned(r.symbol) and
not assigned(r.relsymbol) and not assigned(r.relsymbol) and
(r.refaddr=addr_no) then (r.refaddr=addr_no)
{$ifdef ARM}
and not(r.base=NR_R15)
{$endif ARM}
then
internalerror(200502052); internalerror(200502052);
typ:=top_ref; typ:=top_ref;
if assigned(add_reg_instruction_hook) then if assigned(add_reg_instruction_hook) then