tccpp: treat gas comments in .S files as raw text, not tokens

2 files changed, 6 insertions, 0 deletions

diff --git a/tccpp.c b/tccpp.c
index 464d60b..88e6c79 100644
--- a/tccpp.c
+++ b/tccpp.c
@@ -1625,6 +1625,11 @@ include_done:
         } else {
             if (!(saved_parse_flags & PARSE_FLAG_ASM_COMMENTS))
                 warning("Ignoring unknown preprocessing directive #%s", get_tok_str(tok, &tokc));
+            else {
+                /* this is a gas line comment in an 'S' file. */
+                file->buf_ptr = parse_line_comment(file->buf_ptr);
+                goto the_end;
+            }
         }
         break;
     }
diff --git a/tests/asmtest.S b/tests/asmtest.S
index 7f204cf..d4d83ad 100644
--- a/tests/asmtest.S
+++ b/tests/asmtest.S
@@ -1,3 +1,4 @@
+# gas comment with ``gnu'' style quotes
 
 /* some directive tests */