Преглед на файлове

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

git-svn-id: trunk@3339 -
florian преди 19 години
родител
ревизия
f073b1288d
променени са 1 файла, в които са добавени 3 реда и са изтрити 1 реда
  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