Mostly revert "tccpp.c: minor fix I'd accidentally not committed"

This reverts commit 27ec4f67a33a354c8f377dd4a5b42491c2b43beb. Sorry about that, I included changes which are still being tested, by accident.

Philip committed 11 years ago

Commit 929d1711 parent 27ec4f61 file · +17 −40Browse files

Unified · Split

tccpp.c+17−40

                     else
                         break;
                 }
-                /*
+                if (tok != ',')
-                 * #define f(a) f(a)
+                    expect(",");
-                 * #define h f(r
-                 * h 5)
-                 */
-                if (tok != ',') {
-                    /* Argh! Not a macro invocation after all, at this
-                     * point, so put everything back onto mstr that's
-                     * been skipped since we saw the '(' )*/
-                    tok_str_new(&str);
-                    tok_str_add(&str, mtok);
-                    tok_str_add(&str, '(');
-                    for (sa = s->next; sa; sa = sa->next) {
-                        int *p = sa->d;
-                        while (p && *p) {
-                            tok_str_add(&str, *p);
-                            p++;
-                        }
-                        mstr = str.str;
-                        /* leak memory */;
-                        mstr_allocated = 0;
-                        goto free_memory;
-                    }
-                }
                 next_nomacro();
             }
             if (sa) {
             /* now subst each arg */
             mstr = macro_arg_subst(nested_list, mstr, args);
-        free_memory:
             /* free memory */
             sa = args;
             while (sa) {
         TOK_GET(&tok, &ptr, &tokc);
         if (tok == 0)
             break;
+        if (tok == TOK_TWOSHARPS)
+            continue;
         if (tok == TOK_NOSUBST && start_of_nosubsts < 0)
             start_of_nosubsts = macro_str1.len;
         while (*ptr == TOK_TWOSHARPS) {
                 if (tok != TOK_PLCHLDR)
                     cstr_cat(&cstr, get_tok_str(tok, &tokc));
                 n = cstr.size;
-                if (t != TOK_PLCHLDR)
+                if (t != TOK_PLCHLDR || tok == TOK_PLCHLDR)
                     cstr_cat(&cstr, get_tok_str(t, &cval));
                 cstr_ccat(&cstr, '\0');
                 tcc_open_bf(tcc_state, ":paste:", cstr.size);
                 memcpy(file->buffer, cstr.data, cstr.size);
                 for (;;) {
-                    if (0 == *file->buf_ptr)
-                        break;
                     next_nomacro1();
                     if (0 == *file->buf_ptr)
                         break;
                 tcc_close();
                 cstr_free(&cstr);
             }
-            if (tok == TOK_TWOSHARPS) {
-                /* two sharps twosharped together tokenize to two
-                 * sharp tokens, not a twosharp token. */
-                /* That's fun to say, but is it actually true? GCC
-                 * stringifies #define a # ## # ## # to "## #" (and a
-                 * warning), while we produce "###" (no warning) */
-                tok_str_add(&macro_str1, '#');
-                tok = '#';
-            }
         }
         if (tok != TOK_NOSUBST) {
             tok_str_add2(&macro_str1, tok, &tokc);
             tok = ' ';
             start_of_nosubsts = -1;
-        } else
+        }
-            tok_str_add2(&macro_str1, tok, &tokc);
+        tok_str_add2(&macro_str1, tok, &tokc);
     }
     tok_str_add(&macro_str1, 0);
     return macro_str1.str;
     int t, spc;
     CValue cval;
     struct macro_level ml;
+    int force_blank;
     int gnucomma_index = -1;
     /* first scan for '##' operator handling */
     if (macro_str1)
         ptr = macro_str1;
     spc = 0;
+    force_blank = 0;
     while (1) {
         /* NOTE: ptr == NULL can only happen if tokens are read from
             macro_ptr = ml.p;
             if (can_read_stream && *can_read_stream == &ml)
                 *can_read_stream = ml.prev;
+            if (parse_flags & PARSE_FLAG_SPACES)
+                force_blank = 1;
             if (old_len == tok_str->len)
                 tok_str_add(tok_str, TOK_PLCHLDR);
         } else {
         no_subst:
-            if (!check_space(t, &spc))
+            if (force_blank) {
+                tok_str_add(tok_str, ' ');
+                spc = 1;
+                force_blank = 0;
+            }
+            if (!check_space(t, &spc))
                 tok_str_add2(tok_str, t, &cval);
         }
         if (gnucomma_index != -1) {

Mostly revert "tccpp.c: minor fix I'd accidentally not committed"

Keyboard shortcuts

General

Issues and pull requests

Issues, pull requests and Inbox

Repository code