Explorar o código

* Aarch64 asm reader: explicitely set the refaddr for local labels

git-svn-id: trunk@42989 -
svenbarth %!s(int64=6) %!d(string=hai) anos
pai
achega
61642ffaa4
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      compiler/aarch64/racpugas.pas

+ 2 - 0
compiler/aarch64/racpugas.pas

@@ -732,6 +732,8 @@ Unit racpugas;
                  CreateLocalLabel(actasmpattern,hl,false);
                  Consume(AS_ID);
                  AddLabelOperand(hl);
+                 if oper.opr.ref.refaddr=addr_pic then
+                   oper.opr.ref.refaddr:=addr_page;
                end
               else
                { Check for label }