Explorar el Código

* do not re-used gottpoff symbols as they are PC-relative

git-svn-id: trunk@40321 -
florian hace 6 años
padre
commit
095bd6da7d
Se han modificado 1 ficheros con 3 adiciones y 2 borrados
  1. 3 2
      compiler/arm/aasmcpu.pas

+ 3 - 2
compiler/arm/aasmcpu.pas

@@ -1150,8 +1150,9 @@ implementation
                                           while assigned(hp2) do
                                             begin
                                               if (hp2.typ=ait_const) and (tai_const(hp2).sym=tai_const(hp).sym)
-                                                and (tai_const(hp2).value=tai_const(hp).value) and (tai(hp2.previous).typ=ait_label)
-                                              then
+                                                and (tai_const(hp2).value=tai_const(hp).value) and (tai(hp2.previous).typ=ait_label) and
+                                                { gottpoff symbols are PC relative, so we cannot reuse them }
+                                                (tai_const(hp2).consttype<>aitconst_gottpoff) then
                                                 begin
                                                   with taicpu(curtai).oper[curop]^.ref^ do
                                                     begin