瀏覽代碼

* spaces in register names

peter 20 年之前
父節點
當前提交
6ee925dec8
共有 1 個文件被更改,包括 13 次插入1 次删除
  1. 13 1
      compiler/i386/ra386int.pas

+ 13 - 1
compiler/i386/ra386int.pas

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