paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 13:49:40 +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 if (expr='') or (expr[length(expr)]='+') then
begin begin
delete(expr,length(expr),1); 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); Message(asmr_e_only_add_relocatable_symbol);
end end
else else
@ -1112,6 +1112,11 @@ Begin
GotStar:=false; GotStar:=false;
end; end;
AS_OFFSET :
begin
Consume(AS_OFFSET);
end;
AS_TYPE, AS_TYPE,
AS_NOT, AS_NOT,
AS_INTNUM, AS_INTNUM,
@ -1735,7 +1740,10 @@ begin
end. end.
{ {
$Log$ $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 * TYPE support
Revision 1.43 1999/08/13 21:28:36 peter Revision 1.43 1999/08/13 21:28:36 peter