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

* lastdirective should be always AS_END

Browse Source 
* changed some helper variables into aints

git-svn-id: trunk@22793 -
This commit is contained in:
florian 2012-10-21 10:03:04 +00:00
parent 04543b179f
commit 6fb90850e9
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/raatt.pas
View File

@ -52,8 +52,8 @@ unit raatt;
AS_DB,AS_DW,AS_DD,AS_DQ,AS_GLOBAL,
AS_ALIGN,AS_BALIGN,AS_P2ALIGN,AS_ASCII,
AS_ASCIIZ,AS_LCOMM,AS_COMM,AS_SINGLE,AS_DOUBLE,AS_EXTENDED,AS_CEXTENDED,
AS_DATA,AS_TEXT,AS_INIT,AS_FINI,AS_RVA,AS_END,
AS_SET,AS_WEAK,AS_SECTION,
AS_DATA,AS_TEXT,AS_INIT,AS_FINI,AS_RVA,
AS_SET,AS_WEAK,AS_SECTION,AS_END,
{------------------ Assembler Operators --------------------}
AS_TYPE,AS_SIZEOF,AS_VMTOFFSET,AS_MOD,AS_SHL,AS_SHR,AS_NOT,AS_AND,AS_OR,AS_XOR,AS_NOR,AS_AT,
AS_LO,AS_HI,
@ -67,7 +67,7 @@ unit raatt;
{ These tokens should be modified accordingly to the modifications }
{ in the different enumerations. }
firstdirective = AS_DB;
lastdirective = AS_SECTION;
lastdirective = AS_END;
token2str : array[tasmtoken] of tasmkeyword=(
'','Label','LLabel','string','integer',
@ -78,8 +78,8 @@ unit raatt;
'.byte','.word','.long','.quad','.globl',
'.align','.balign','.p2align','.ascii',
'.asciz','.lcomm','.comm','.single','.double','.tfloat','.tcfloat',
'.data','.text','.init','.fini','.rva','END',
'.set','.weak','.section',
'.data','.text','.init','.fini','.rva',
'.set','.weak','.section','END',
'TYPE','SIZEOF','VMTOFFSET','%','<<','>>','!','&','|','^','~','@','lo','hi',
'directive');
@ -978,7 +978,8 @@ unit raatt;
symname,
symval : string;
lasTSec : TAsmSectiontype;
l1,l2 : longint;
l1,
l2,
symofs : aint;
symtyp : TAsmsymtype;
Begin