From 0c8447db7970813292a8be74ee50e49091be5d15 Mon Sep 17 00:00:00 2001 From: seyko Date: Tue, 21 Apr 2015 06:34:35 +0300 Subject: * and #pragma pop_macro("macro_name") * give warning if pragma is unknown for tcc * don't free asm_label in sym_free(), it's a job of the asm_free_labels(). The above pragmas are used in the mingw headers. Thise pragmas are implemented in gcc-4.5+ and current clang. --- tccpp.c | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'tccpp.c') diff --git a/tccpp.c b/tccpp.c index 42ebf48..4d9430d 100644 --- a/tccpp.c +++ b/tccpp.c @@ -222,6 +222,7 @@ static TokenSym *tok_alloc_new(TokenSym **pts, const char *str, int len) table_ident[i] = ts; ts->tok = tok_ident++; ts->sym_define = NULL; + ts->sym_define_stack = NULL; ts->sym_label = NULL; ts->sym_struct = NULL; ts->sym_identifier = NULL; @@ -1446,6 +1447,39 @@ static void pragma_parse(TCCState *s1) } else { tcc_warning("#pragma comment(lib) is ignored"); } + } else if ((tok == TOK_push_macro) || (tok == TOK_pop_macro)) { + int push_macro = (tok == TOK_push_macro); + next(); + skip('('); + if (tok != TOK_STR) { + expect("\""); + } else { + int len = strlen((char *)tokc.cstr->data); + tcc_open_bf(s1, "", len); + memcpy(file->buffer, tokc.cstr->data, len); + ch = file->buf_ptr[0]; + next_nomacro(); + if (tok >= TOK_IDENT) { + Sym *s = table_ident[tok - TOK_IDENT]->sym_define; + Sym *ss = table_ident[tok - TOK_IDENT]->sym_define_stack; + if (push_macro) { + if (s) { + s->prev_tok = ss; + table_ident[tok - TOK_IDENT]->sym_define_stack = s; + } + } else { + if (ss) { + table_ident[tok - TOK_IDENT]->sym_define = ss; + table_ident[tok - TOK_IDENT]->sym_define_stack = ss->prev_tok; + } + } + } + tcc_close(); + } + next(); + skip(')'); + } else { + tcc_warning("unknown #pragma %s", get_tok_str(tok, &tokc)); } } -- cgit v1.3.1