From 2ad2e252a34bc03cac878005068b7c189727ec37 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 21 Nov 2004 21:36:13 +0000
Subject: [PATCH]   * allow spaces before : of a label

---
 compiler/i386/ra386int.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/i386/ra386int.pas b/compiler/i386/ra386int.pas
index a9bf86c8e5..27b13a9d0c 100644
--- a/compiler/i386/ra386int.pas
+++ b/compiler/i386/ra386int.pas
@@ -285,6 +285,9 @@ Unit Ra386int;
             end;
            actasmpattern[0]:=chr(len);
            uppervar(actasmpattern);
+           { allow spaces }
+           while (c in [' ',#9]) do
+             c:=current_scanner.asmgetchar;
            { label ? }
            if c = ':' then
             begin
@@ -2019,7 +2022,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.80  2004-11-09 22:32:59  peter
+  Revision 1.81  2004-11-21 21:36:13  peter
+    * allow spaces before : of a label
+
+  Revision 1.80  2004/11/09 22:32:59  peter
     * small m68k updates to bring it up2date
     * give better error for external local variable