Explorar el Código

* avoid crash when multiple references to one text symbol entry are used

git-svn-id: trunk@3339 -
florian hace 19 años
padre
commit
f073b1288d
Se han modificado 1 ficheros con 3 adiciones y 1 borrados
  1. 3 1
      compiler/arm/aasmcpu.pas

+ 3 - 1
compiler/arm/aasmcpu.pas

@@ -648,7 +648,9 @@ implementation
                       begin
                         { pc relative symbol? }
                         curdatatai:=tai(taicpu(curtai).oper[curop]^.ref^.symboldata);
-                        if assigned(curdatatai) then
+                        if assigned(curdatatai) and
+                          { move only if we're at the first reference of a label }
+                          (taicpu(curtai).oper[curop]^.ref^.offset=0) then
                           begin
                             { if yes, insert till next symbol }
                             repeat