From 8c6316ce2ac752af23c0e0d06c1b4ef389ef8c1c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 17 Sep 2005 17:12:27 +0000
Subject: [PATCH] * allow byte, word, dword, qword as size qualifier

git-svn-id: trunk@1096 -
---
 compiler/i386/ra386int.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/compiler/i386/ra386int.pas b/compiler/i386/ra386int.pas
index ba415084fd..bd11aa5da4 100644
--- a/compiler/i386/ra386int.pas
+++ b/compiler/i386/ra386int.pas
@@ -710,16 +710,17 @@ Unit Ra386int;
         while (actasmtoken=AS_DOT) do
          begin
            Consume(AS_DOT);
-           if actasmtoken=AS_ID then
-             s:=s+'.'+actasmpattern;
-           if not Consume(AS_ID) then
+           if actasmtoken in [AS_BYTE,AS_ID,AS_WORD,AS_DWORD,AS_QWORD] then
+             s:=s+'.'+actasmpattern
+           else
             begin
+              Consume(AS_ID);
               RecoverConsume(true);
               break;
             end;
          end;
         if not GetRecordOffsetSize(s,offset,size) then
-         Message(asmr_e_building_record_offset);
+          Message(asmr_e_building_record_offset);
       end;