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

* fixed previous commit

Browse Source 
git-svn-id: trunk@1097 -
This commit is contained in:
florian 2005-09-17 17:54:26 +00:00
parent 8c6316ce2a
commit d56e29b9dd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/ra386int.pas
View File

@ -711,7 +711,10 @@ Unit Ra386int;
begin
Consume(AS_DOT);
if actasmtoken in [AS_BYTE,AS_ID,AS_WORD,AS_DWORD,AS_QWORD] then
s:=s+'.'+actasmpattern
begin
s:=s+'.'+actasmpattern;
consume(actasmtoken);
end
else
begin
Consume(AS_ID);
@ -1485,10 +1488,11 @@ Unit Ra386int;
expr : string;
tempreg : tregister;
typesize,
l : aint;
l,k : aint;
hl : tasmlabel;
toffset,
tsize : aint;
tempstr : string;
begin
expr:='';
repeat