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

* spaces in register names

Browse Source
This commit is contained in:
peter 2005-01-25 18:48:34 +00:00
parent 0991cb288d
commit 6ee925dec8
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/i386/ra386int.pas
View File

@ -361,11 +361,17 @@ Unit Ra386int;
Begin
actasmpattern:=actasmpattern+c;
c:=current_scanner.asmgetchar;
{ allow spaces }
while (c in [' ',#9]) do
c:=current_scanner.asmgetchar;
if c in ['0'..'7'] then
actasmpattern:=actasmpattern + c
else
Message(asmr_e_invalid_fpu_register);
c:=current_scanner.asmgetchar;
{ allow spaces }
while (c in [' ',#9]) do
c:=current_scanner.asmgetchar;
if c <> ')' then
Message(asmr_e_invalid_fpu_register)
else
@ -380,6 +386,9 @@ Unit Ra386int;
exit;
if is_asmoperator(actasmpattern) then
exit;
{ allow spaces }
while (c in [' ',#9]) do
c:=current_scanner.asmgetchar;
{ if next is a '.' and this is a unitsym then we also need to
parse the identifier }
if (c='.') then
@ -2036,7 +2045,10 @@ begin
end.
{
$Log$
Revision 1.86 2005-01-20 17:05:53 peter
Revision 1.87 2005-01-25 18:48:34 peter
* spaces in register names
Revision 1.86 2005/01/20 17:05:53 peter
* use val() for decoding integers
Revision 1.85 2005/01/19 22:19:41 peter