paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 23:46:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check that not more than one relsymbol is used

Browse Source 
git-svn-id: trunk@9367 -
This commit is contained in:
Jonas Maebe 2007-12-01 14:26:06 +00:00
parent df2980f0c0
commit 3f57d681e1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/rax86att.pas
View File

@ -296,7 +296,10 @@ Implementation
Consume(AS_MINUS);
BuildConstSymbolExpression(true,true,false,l,relsym,asmsymtyp);
if (relsym<>'') then
oper.opr.ref.relsymbol:=current_asmdata.RefAsmSymbol(relsym)
if not assigned(oper.opr.ref.relsymbol) then
oper.opr.ref.relsymbol:=current_asmdata.RefAsmSymbol(relsym)
else
Message(asmr_e_invalid_reference_syntax)
else
dec(oper.opr.ref.offset,l);
end;