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

* better OFFSET support for reference reading

Browse Source
This commit is contained in:
peter 1999-09-07 13:03:10 +00:00
parent 4018f8cebc
commit 6f3c128959
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ra386int.pas
View File

@ -891,7 +891,7 @@ Begin
if (expr='') or (expr[length(expr)]='+') then
begin
delete(expr,length(expr),1);
if not(actasmtoken in [AS_MINUS,AS_PLUS,AS_COMMA,AS_SEPARATOR,AS_END]) then
if not(actasmtoken in [AS_MINUS,AS_PLUS,AS_COMMA,AS_SEPARATOR,AS_END,AS_RBRACKET]) then
Message(asmr_e_only_add_relocatable_symbol);
end
else
@ -1112,6 +1112,11 @@ Begin
GotStar:=false;
end;
AS_OFFSET :
begin
Consume(AS_OFFSET);
end;
AS_TYPE,
AS_NOT,
AS_INTNUM,
@ -1735,7 +1740,10 @@ begin
end.
{
$Log$
Revision 1.44 1999-09-07 07:45:41 peter
Revision 1.45 1999-09-07 13:03:10 peter
* better OFFSET support for reference reading
Revision 1.44 1999/09/07 07:45:41 peter
* TYPE support
Revision 1.43 1999/08/13 21:28:36 peter