*** ra386int.pas.old    Fri Sep 12 22:17:18 2003
--- ra386int.pas.new    Fri Sep 12 22:18:11 2003
***************
*** 62,68 ****
      AS_RPAREN,AS_COLON,AS_DOT,AS_PLUS,AS_MINUS,AS_STAR,
      AS_SEPARATOR,AS_ID,AS_REGISTER,AS_OPCODE,AS_SLASH,
       {------------------ Assembler directives --------------------}
!     AS_DB,AS_DW,AS_DD,AS_END,
       {------------------ Assembler Operators  --------------------}
      AS_BYTE,AS_WORD,AS_DWORD,AS_QWORD,AS_TBYTE,AS_NEAR,AS_FAR,
      AS_HIGH,AS_LOW,AS_OFFSET,AS_SEG,AS_TYPE,AS_PTR,AS_MOD,AS_SHL,AS_SHR,AS_NOT,
--- 62,68 ----
      AS_RPAREN,AS_COLON,AS_DOT,AS_PLUS,AS_MINUS,AS_STAR,
      AS_SEPARATOR,AS_ID,AS_REGISTER,AS_OPCODE,AS_SLASH,
       {------------------ Assembler directives --------------------}
!     AS_DB,AS_DW,AS_DD,AS_ALIGN,AS_END,
       {------------------ Assembler Operators  --------------------}
      AS_BYTE,AS_WORD,AS_DWORD,AS_QWORD,AS_TBYTE,AS_NEAR,AS_FAR,
      AS_HIGH,AS_LOW,AS_OFFSET,AS_SEG,AS_TYPE,AS_PTR,AS_MOD,AS_SHL,AS_SHR,AS_NOT,
***************
*** 81,87 ****
     _count_asmoperators  = longint(lastoperator)-longint(firstoperator);
  
     _asmdirectives : array[0.._count_asmdirectives] of tasmkeyword =
!    ('DB','DW','DD','END');
  
     { problems with shl,shr,not,and,or and xor, they are }
     { context sensitive.                                 }
--- 81,87 ----
     _count_asmoperators  = longint(lastoperator)-longint(firstoperator);
  
     _asmdirectives : array[0.._count_asmdirectives] of tasmkeyword =
!    ('DB','DW','DD','ALIGN','END');
  
     { problems with shl,shr,not,and,or and xor, they are }
     { context sensitive.                                 }
***************
*** 95,101 ****
      ',','[',']','(',
      ')',':','.','+','-','*',
      ';','identifier','register','opcode','/',
!     '','','','END',
      '','','','','','','','',
      '','','','type','ptr','mod','shl','shr','not',
      'and','or','xor'
--- 95,101 ----
      ',','[',']','(',
      ')',':','.','+','-','*',
      ';','identifier','register','opcode','/',
!     'DB','DW','DD','ALIGN','END',
      '','','','','','','','',
      '','','','type','ptr','mod','shl','shr','not',
      'and','or','xor'
***************
*** 1863,1868 ****
--- 1863,1874 ----
            inexpression:=false;
          end;
  
+       AS_ALIGN:
+         Begin
+           Consume(AS_ALIGN);
+           ConcatAlign(curlist,BuildConstExpression);
+         end;
+ 
        AS_OPCODE :
          Begin
            instr:=T386IntelInstruction.Create;
