Ver Fonte

support label offsets for ARM like GAS, allows things like ADR r4, .label + 256

git-svn-id: trunk@25938 -
Károly Balogh há 12 anos atrás
pai
commit
628149d923
1 ficheiros alterados com 5 adições e 0 exclusões
  1. 5 0
      compiler/arm/raarmgas.pas

+ 5 - 0
compiler/arm/raarmgas.pas

@@ -556,6 +556,11 @@ Unit raarmgas;
                oper.InitRef;
                oper.opr.ref.symbol:=hl;
                oper.opr.ref.base:=NR_PC;
+               if (actasmtoken in [AS_PLUS, AS_MINUS]) then
+                 begin
+                   l:=BuildConstExpression(true,false);
+                   oper.opr.ref.offset:=l;
+                 end;
              end;
           end;