OSO/TinyCC
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

implement #pragma comment(lib,...)

Browse Source
This commit is contained in:
Steven G. Messervey
2015-04-15 17:00:26 -04:00
parent a13f183e4c
commit 8615bb40fb
4 changed files with 74 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
tccpp.c
View File

@ -1420,7 +1420,45 @@ static void pragma_parse(TCCState *s1)
*s1->pack_stack_ptr = val;
skip(')');
}
} else if (tok == TOK_comment) {
if (s1->ms_extensions) {
next();
skip('(');
if (tok == TOK_lib) {
next();
skip(',');
if (tok != TOK_STR)
tcc_error("invalid library specification");
else {
/**/
int len = strlen((char *)tokc.cstr->data);
char *file = tcc_malloc(len+4); /* filetype, "-l" and 0 at the end */
file[0] = TCC_FILETYPE_BINARY;
file[1] = '-';
file[2] = 'l';
strcpy(&file[3], (char *)tokc.cstr->data);
dynarray_add((void ***)&s1->files, &s1->nb_files, file);
/**/
/* we can't use
tcc_add_library(s1,(char *)tokc.cstr->data);
while compiling some file
*/
/*
if (strrchr((char *)tokc.cstr->data,'.') == NULL)
tcc_add_library(s1,(char *)tokc.cstr->data);
else
tcc_add_file(s1,(char *)tokc.cstr->data,TCC_FILETYPE_BINARY);
*/
}
next();
tok = TOK_LINEFEED;
}
}
else
tcc_warning("#pragma comment(lib) is ignored");
}
else
tcc_warning("unknown #pragma %s", get_tok_str(tok, &tokc));
}
/* is_bof is true if first non space token at beginning of file */