paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 21:43:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@25938 -
This commit is contained in:
Károly Balogh 2013-11-05 18:10:54 +00:00
parent b67e4fb8b3
commit 628149d923
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/raarmgas.pas
View File

@ -556,6 +556,11 @@ Unit raarmgas;
oper.InitRef; oper.InitRef;
oper.opr.ref.symbol:=hl; oper.opr.ref.symbol:=hl;
oper.opr.ref.base:=NR_PC; 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;
end; end;