paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 15:59:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* allow byte, word, dword, qword as size qualifier

Browse Source 
git-svn-id: trunk@1096 -
This commit is contained in:
florian 2005-09-17 17:12:27 +00:00
parent 444667ebc8
commit 8c6316ce2a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/ra386int.pas
View File

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