paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 01:50:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Use asmsearchsym in assembler readers

Browse Source 
git-svn-id: trunk@16104 -
This commit is contained in:
pierre 2010-10-08 07:58:18 +00:00
parent f23695cf92
commit 7f200ab27e
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/m68k/ra68kmot.pas
View File

@ -683,7 +683,7 @@ const
hs:=hl.name
else
begin
searchsym(tempstr,sym,srsymtable);
asmsearchsym(tempstr,sym,srsymtable);
if assigned(sym) then
begin
case sym.typ of

12
compiler/x86/rax86int.pas
View File

@ -397,7 +397,7 @@ Unit Rax86int;
parse the identifier }
if (c='.') then
begin
searchsym(actasmpattern,srsym,srsymtable);
asmsearchsym(actasmpattern,srsym,srsymtable);
if assigned(srsym) and
(srsym.typ=unitsym) and
(srsym.owner.symtabletype in [staticsymtable,globalsymtable]) and
@ -895,7 +895,7 @@ Unit Rax86int;
end
else
begin
searchsym(tempstr,sym,srsymtable);
asmsearchsym(tempstr,sym,srsymtable);
if assigned(sym) then
begin
case sym.typ of
@ -978,7 +978,7 @@ Unit Rax86int;
end
else
begin
searchsym(tempstr,sym,srsymtable);
asmsearchsym(tempstr,sym,srsymtable);
if assigned(sym) then
begin
case sym.typ of
@ -1820,6 +1820,8 @@ Unit Rax86int;
internalerror(2010061101);
end;
Consume(actasmtoken);
if actasmtoken=AS_PTR then
Consume(AS_PTR);
if (actasmtoken=AS_LPAREN) then
begin
{ Support "xxx ptr [Reference]" }
@ -1830,7 +1832,9 @@ Unit Rax86int;
BuildOperand(oper,true);
Consume(AS_RPAREN);
oper.setsize(l,true);
end;
end
else if (actasmtoken = AS_REGISTER) then
Message(asmr_e_syn_operand);
end;
AS_SEPARATOR,