2
0
Эх сурвалжийг харах

* spaces in register names

peter 20 жил өмнө
parent
commit
6ee925dec8

+ 13 - 1
compiler/i386/ra386int.pas

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