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

* support labels in references

Browse Source
This commit is contained in:
peter 2005-01-19 20:21:51 +00:00
parent 4647e2e720
commit c9f22afb8d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/i386/ra386int.pas
View File

@ -1448,7 +1448,8 @@ Unit Ra386int;
procedure AddLabelOperand(hl:tasmlabel); procedure AddLabelOperand(hl:tasmlabel);
begin begin
if is_calljmp(actopcode) then if (oper.opr.typ=OPR_NONE) and
is_calljmp(actopcode) then
begin begin
oper.opr.typ:=OPR_SYMBOL; oper.opr.typ:=OPR_SYMBOL;
oper.opr.symbol:=hl; oper.opr.symbol:=hl;
@ -1557,8 +1558,6 @@ Unit Ra386int;
CreateLocalLabel(actasmpattern,hl,false); CreateLocalLabel(actasmpattern,hl,false);
Consume(AS_ID); Consume(AS_ID);
AddLabelOperand(hl); AddLabelOperand(hl);
if not (actasmtoken in [AS_END,AS_SEPARATOR,AS_COMMA]) then
Message(asmr_e_syntax_error);
end; end;
end end
else else
@ -1593,8 +1592,6 @@ Unit Ra386int;
begin begin
Consume(AS_ID); Consume(AS_ID);
AddLabelOperand(hl); AddLabelOperand(hl);
if not (actasmtoken in [AS_END,AS_SEPARATOR,AS_COMMA]) then
Message(asmr_e_syntax_error);
end end
else else
{ is it a normal variable ? } { is it a normal variable ? }
@ -2038,7 +2035,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.83 2004-12-22 17:09:55 peter Revision 1.84 2005-01-19 20:21:51 peter
* support labels in references
Revision 1.83 2004/12/22 17:09:55 peter
* support sizeof() * support sizeof()
* fix typecasting a constant like dword(4) * fix typecasting a constant like dword(4)