Explorar o código

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

git-svn-id: trunk@25938 -
Károly Balogh %!s(int64=11) %!d(string=hai) anos
pai
achega
628149d923
Modificáronse 1 ficheiros con 5 adicións e 0 borrados
  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;