paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 18:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the AS_END directive

Browse Source 
git-svn-id: branches/z80@44784 -
This commit is contained in:
nickysn 2020-04-18 14:34:36 +00:00
parent 6e0bdaf128
commit 4e5e42f839
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/z80/raz80asm.pas
View File

@ -39,7 +39,7 @@ Unit raz80asm;
AS_HASH,AS_LSBRACKET,AS_RSBRACKET,AS_LBRACKET,AS_RBRACKET,
AS_EQUAL,
{------------------ Assembler directives --------------------}
AS_DEFB,AS_DEFW
AS_DEFB,AS_DEFW,AS_END
);
tasmkeyword = string[10];
@ -47,7 +47,7 @@ Unit raz80asm;
{ These tokens should be modified accordingly to the modifications }
{ in the different enumerations. }
firstdirective = AS_DEFB;
lastdirective = AS_DEFW;
lastdirective = AS_END;
token2str : array[tasmtoken] of tasmkeyword=(
'','Label','LLabel','string','integer',
',','(',
@ -55,7 +55,7 @@ Unit raz80asm;
';','identifier','register','opcode','/','$',
'#','{','}','[',']',
'=',
'defb','defw');
'defb','defw','END');
type