paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20: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);
begin
if is_calljmp(actopcode) then
if (oper.opr.typ=OPR_NONE) and
is_calljmp(actopcode) then
begin
oper.opr.typ:=OPR_SYMBOL;
oper.opr.symbol:=hl;
@ -1557,8 +1558,6 @@ Unit Ra386int;
CreateLocalLabel(actasmpattern,hl,false);
Consume(AS_ID);
AddLabelOperand(hl);
if not (actasmtoken in [AS_END,AS_SEPARATOR,AS_COMMA]) then
Message(asmr_e_syntax_error);
end;
end
else
@ -1593,8 +1592,6 @@ Unit Ra386int;
begin
Consume(AS_ID);
AddLabelOperand(hl);
if not (actasmtoken in [AS_END,AS_SEPARATOR,AS_COMMA]) then
Message(asmr_e_syntax_error);
end
else
{ is it a normal variable ? }
@ -2038,7 +2035,10 @@ begin
end.
{
$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()
* fix typecasting a constant like dword(4)