Browse Source

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

git-svn-id: trunk@18232 -
florian 14 years ago
parent
commit
1e1c45c665
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/aasmtai.pas

+ 5 - 1
compiler/aasmtai.pas

@@ -2015,7 +2015,11 @@ implementation
             if (cs_create_pic in current_settings.moduleswitches) and
               assigned(r.symbol) 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);
             typ:=top_ref;
             if assigned(add_reg_instruction_hook) then