Pārlūkot izejas kodu

* lastdirective should be always AS_END
* changed some helper variables into aints

git-svn-id: trunk@22793 -

florian 12 gadi atpakaļ
vecāks
revīzija
6fb90850e9
1 mainītis faili ar 7 papildinājumiem un 6 dzēšanām
  1. 7 6
      compiler/raatt.pas

+ 7 - 6
compiler/raatt.pas

@@ -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