paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 05:13:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly propagate PIC-related suffixes from the x86 assembler reader in

Browse Source 
case the operand was parsed as a symbol

git-svn-id: trunk@24638 -
This commit is contained in:
Jonas Maebe 2013-05-30 12:20:48 +00:00
parent 0bb8d24e24
commit d6180b1e70
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/x86/rax86att.pas
View File

@ -334,6 +334,7 @@ Implementation
relsym: string;
asmsymtyp: tasmsymtype;
l: aint;
sym: tasmsymbol;
begin
case actasmtoken of
AS_AT:
@ -356,6 +357,23 @@ Implementation
if actasmpattern='GOT' then
{$endif i8086}
begin
case oper.opr.typ of
OPR_SYMBOL:
begin
sym:=oper.opr.symbol;
if oper.opr.symofs<>0 then
Message(asmr_e_invalid_reference_syntax);
oper.opr.typ:=OPR_REFERENCE;
fillchar(oper.opr.ref,sizeof(oper.opr.ref),0);
oper.opr.ref.symbol:=sym;
end;
OPR_REFERENCE:
begin
{ ok }
end;
else
Message(asmr_e_invalid_reference_syntax)
end;
oper.opr.ref.refaddr:=addr_pic;
consume(AS_ID);
end