fix a preprocessor for .S

    A test program (tcc -E test.S):
      # .. or else we have a high. This is a test.S

1 files changed, 6 insertions, 2 deletions

diff --git a/tccpp.c b/tccpp.c
index 4d12be1..1d41d6b 100644
--- a/tccpp.c
+++ b/tccpp.c
@@ -2393,8 +2393,12 @@ maybe_newline:
             goto parse_num;
         } else if (c == '.') {
             PEEKC(c, p);
-            if (c != '.')
-                expect("'.'");
+            if (c != '.') {
+        	if ((parse_flags & PARSE_FLAG_ASM_COMMENTS) == 0)
+            	    expect("'.'");
+        	tok = '.';
+        	break;
+            }
             PEEKC(c, p);
             tok = TOK_DOTS;
         } else {