2 * TCC - Tiny C Compiler
4 * Copyright (c) 2001-2004 Fabrice Bellard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #if defined NOTALLINONE || defined TCC_USE_LIBTCC
28 static int nb_files
, nb_libraries
;
29 static int multiple_files
;
30 static int print_search_dirs
;
31 static int output_type
;
32 static int reloc_output
;
33 static const char *outfile
;
34 static int do_bench
= 0;
36 static const char *deps_outfile
;
38 #define TCC_OPTION_HAS_ARG 0x0001
39 #define TCC_OPTION_NOSEP 0x0002 /* cannot have space before option and arg */
41 static void help(void)
43 printf("tcc version " TCC_VERSION
" - Tiny C Compiler - Copyright (C) 2001-2006 Fabrice Bellard\n"
44 "Usage: tcc [options...] [-o outfile] [-c] infile(s)...\n"
45 " tcc [options...] -run infile [arguments...]\n"
47 " -v display current version, increase verbosity\n"
48 " -c compile only - generate an object file\n"
49 " -o outfile set output filename\n"
50 " -Bdir set tcc internal library path\n"
51 " -bench output compilation statistics\n"
52 " -run run compiled source\n"
53 " -fflag set or reset (with 'no-' prefix) 'flag' (see man page)\n"
54 " -Wwarning set or reset (with 'no-' prefix) 'warning' (see man page)\n"
55 " -w disable all warnings\n"
56 "Preprocessor options:\n"
57 " -E preprocess only\n"
58 " -Idir add include path 'dir'\n"
59 " -Dsym[=val] define 'sym' with value 'val'\n"
60 " -Usym undefine 'sym'\n"
62 " -Ldir add library path 'dir'\n"
63 " -llib link with dynamic or static library 'lib'\n"
64 " -pthread link with -lpthread and -D_REENTRANT (POSIX Linux)\n"
65 " -shared generate a shared library\n"
66 " -soname set name for shared library to be used at runtime\n"
67 " -static static linking\n"
68 " -rdynamic export all global symbols to dynamic linker\n"
69 " -r generate (relocatable) object file\n"
71 " -g generate runtime debug info\n"
72 #ifdef CONFIG_TCC_BCHECK
73 " -b compile with built-in memory and bounds checker (implies -g)\n"
75 #ifdef CONFIG_TCC_BACKTRACE
76 " -bt N show N callers in stack traces\n"
79 " -MD generate target dependencies for make\n"
80 " -MF depfile put generated dependencies here\n"
84 typedef struct TCCOption
{
116 TCC_OPTION_print_search_dirs
,
130 static const TCCOption tcc_options
[] = {
131 { "h", TCC_OPTION_HELP
, 0 },
132 { "-help", TCC_OPTION_HELP
, 0 },
133 { "?", TCC_OPTION_HELP
, 0 },
134 { "I", TCC_OPTION_I
, TCC_OPTION_HAS_ARG
},
135 { "D", TCC_OPTION_D
, TCC_OPTION_HAS_ARG
},
136 { "U", TCC_OPTION_U
, TCC_OPTION_HAS_ARG
},
137 { "L", TCC_OPTION_L
, TCC_OPTION_HAS_ARG
},
138 { "B", TCC_OPTION_B
, TCC_OPTION_HAS_ARG
},
139 { "l", TCC_OPTION_l
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
140 { "bench", TCC_OPTION_bench
, 0 },
141 #ifdef CONFIG_TCC_BACKTRACE
142 { "bt", TCC_OPTION_bt
, TCC_OPTION_HAS_ARG
},
144 #ifdef CONFIG_TCC_BCHECK
145 { "b", TCC_OPTION_b
, 0 },
147 { "g", TCC_OPTION_g
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
148 { "c", TCC_OPTION_c
, 0 },
149 { "static", TCC_OPTION_static
, 0 },
150 { "shared", TCC_OPTION_shared
, 0 },
151 { "soname", TCC_OPTION_soname
, TCC_OPTION_HAS_ARG
},
152 { "o", TCC_OPTION_o
, TCC_OPTION_HAS_ARG
},
153 { "pedantic", TCC_OPTION_pedantic
, 0},
154 { "pthread", TCC_OPTION_pthread
, 0},
155 { "run", TCC_OPTION_run
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
156 { "rdynamic", TCC_OPTION_rdynamic
, 0 },
157 { "r", TCC_OPTION_r
, 0 },
158 { "s", TCC_OPTION_s
, 0 },
159 { "Wl,", TCC_OPTION_Wl
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
160 { "W", TCC_OPTION_W
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
161 { "O", TCC_OPTION_O
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
162 { "m", TCC_OPTION_m
, TCC_OPTION_HAS_ARG
},
163 { "f", TCC_OPTION_f
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
164 { "nostdinc", TCC_OPTION_nostdinc
, 0 },
165 { "nostdlib", TCC_OPTION_nostdlib
, 0 },
166 { "print-search-dirs", TCC_OPTION_print_search_dirs
, 0 },
167 { "v", TCC_OPTION_v
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
168 { "w", TCC_OPTION_w
, 0 },
169 { "pipe", TCC_OPTION_pipe
, 0},
170 { "E", TCC_OPTION_E
, 0},
171 { "MD", TCC_OPTION_MD
, 0},
172 { "MF", TCC_OPTION_MF
, TCC_OPTION_HAS_ARG
},
173 { "x", TCC_OPTION_x
, TCC_OPTION_HAS_ARG
},
177 static int64_t getclock_us(void)
182 return (tb
.time
* 1000LL + tb
.millitm
) * 1000LL;
185 gettimeofday(&tv
, NULL
);
186 return tv
.tv_sec
* 1000000LL + tv
.tv_usec
;
190 /* convert 'str' into an array of space separated strings */
191 static int expand_args(char ***pargv
, const char *str
)
200 while (is_space(*str
))
205 while (*str
!= '\0' && !is_space(*str
))
208 arg
= tcc_malloc(len
+ 1);
209 memcpy(arg
, s1
, len
);
211 dynarray_add((void ***)&argv
, &argc
, arg
);
217 #if defined(TCC_TARGET_X86_64) || defined (TCC_TARGET_I386)
220 #define CAST (const char * const *)
222 #define CAST (char * const *)
225 #if defined(TCC_TARGET_X86_64)
228 #elif defined (TCC_TARGET_I386)
230 #define CHILD "x86_64"
233 static char *ssuffix(const char *oldname
, const char sep
)
235 char *p
, *name
= tcc_strdup(oldname
);
236 p
= strchr(name
, sep
);
239 /* prefix "win32-" when file extension is present */
240 if (*tcc_fileextension(name
)){
241 name
= tcc_realloc(name
, strlen(oldname
+ 7));
242 sprintf(name
, "win32-%s", oldname
);
247 static void exec_other_tcc(TCCState
*s
, int argc
,
248 char **argv
,const char *optarg
, int optind
)
250 char child_path
[4096],child_name
[4096];
251 char *parent
,*child_tcc
;
252 int opt
= atoi(optarg
);
253 if (strlen(argv
[0]) > 4000)
254 error("-m%i unsafe path length", ARG
);
256 case ARG
+ 1: /* oops we called ourselves */
257 error("-m%i cross compiler not installed", ARG
);
261 parent
= tcc_basename(argv
[0]);
262 child_tcc
= ssuffix(parent
,'-');
263 sprintf(child_name
, CHILD
"-%s", child_tcc
);
265 if (strcmp(parent
, child_name
)) {
266 /* child_path = dirname */
267 pstrcpy(child_path
, parent
- argv
[0] + 1, argv
[0]);
268 child_tcc
= strchr(child_path
, 0);
269 strcpy(child_tcc
, child_name
);
271 printf("%s -m%i -> %s\n",
272 parent
, ARG
, child_path
);
273 sprintf(argv
[optind
],"-m%i", ARG
+ 1); /* no loop */
274 execvp(child_path
, CAST argv
);
275 sprintf(child_tcc
,"tcc%s",tcc_fileextension(parent
));
276 execvp(child_path
, CAST argv
);
277 error("-m%i cross compiler not found", ARG
);
278 } else error("-m%i unsupported configuration", ARG
);
280 case 96 ^ ARG
: break;
281 case 96 ^ (ARG
+ 1): break;
283 warning("usupported option \"-m%s\"",optarg
);
291 static int parse_args(TCCState
*s
, int argc
, char **argv
)
294 const TCCOption
*popt
;
295 const char *optarg
, *p1
, *r1
;
299 was_pthread
= 0; /* is set if commandline contains -pthread key */
302 while (optind
< argc
) {
305 if (r
[0] != '-' || r
[1] == '\0') {
307 dynarray_add((void ***)&files
, &nb_files
, r
);
308 if (!multiple_files
) {
310 /* argv[0] will be this file */
314 /* find option in table (match only the first chars */
319 error("invalid option -- '%s'", r
);
332 if (popt
->flags
& TCC_OPTION_HAS_ARG
) {
333 if (*r1
!= '\0' || (popt
->flags
& TCC_OPTION_NOSEP
)) {
337 error("argument to '%s' is missing", r
);
338 optarg
= argv
[optind
++];
346 switch(popt
->index
) {
347 case TCC_OPTION_HELP
:
351 if (tcc_add_include_path(s
, optarg
) < 0)
352 error("too many include paths");
357 sym
= (char *)optarg
;
358 value
= strchr(sym
, '=');
363 tcc_define_symbol(s
, sym
, value
);
367 tcc_undefine_symbol(s
, optarg
);
370 tcc_add_library_path(s
, optarg
);
373 /* set tcc utilities path (mainly for tcc development) */
374 tcc_set_lib_path(s
, optarg
);
377 dynarray_add((void ***)&files
, &nb_files
, r
);
380 case TCC_OPTION_pthread
:
382 tcc_define_symbol(s
, "_REENTRANT", "1");
384 case TCC_OPTION_bench
:
387 #ifdef CONFIG_TCC_BACKTRACE
389 set_num_callers(atoi(optarg
));
392 #ifdef CONFIG_TCC_BCHECK
394 s
->do_bounds_check
= 1;
403 output_type
= TCC_OUTPUT_OBJ
;
405 case TCC_OPTION_static
:
408 case TCC_OPTION_shared
:
409 output_type
= TCC_OUTPUT_DLL
;
411 case TCC_OPTION_soname
:
414 #if defined(TCC_TARGET_X86_64) || defined (TCC_TARGET_I386)
416 exec_other_tcc(s
, argc
+1, argv
-1, optarg
, optind
);
424 /* generate a .o merging several output files */
426 output_type
= TCC_OUTPUT_OBJ
;
428 case TCC_OPTION_nostdinc
:
431 case TCC_OPTION_nostdlib
:
434 case TCC_OPTION_print_search_dirs
:
435 print_search_dirs
= 1;
441 argc1
= expand_args(&argv1
, optarg
);
443 parse_args(s
, argc1
, argv1
);
446 output_type
= TCC_OUTPUT_MEMORY
;
451 if (0 == s
->verbose
++)
452 printf("tcc version %s\n", TCC_VERSION
);
453 } while (*optarg
++ == 'v');
456 if (tcc_set_flag(s
, optarg
, 1) < 0 && s
->warn_unsupported
)
457 goto unsupported_option
;
460 if (tcc_set_warning(s
, optarg
, 1) < 0 &&
462 goto unsupported_option
;
467 case TCC_OPTION_rdynamic
:
472 if ((r
= (char *) tcc_set_linker(s
, (char *)optarg
, TRUE
)))
473 error("unsupported linker option '%s'", r
);
477 output_type
= TCC_OUTPUT_PREPROCESS
;
483 deps_outfile
= optarg
;
488 if (s
->warn_unsupported
) {
490 warning("unsupported option '%s'", r
);
496 /* fixme: these options could be different on your platform */
498 && output_type
!= TCC_OUTPUT_OBJ
)
500 dynarray_add((void ***)&files
, &nb_files
, "-lpthread");
506 int main(int argc
, char **argv
)
510 int nb_objfiles
, ret
, optind
;
511 int64_t start_time
= 0;
515 output_type
= TCC_OUTPUT_EXE
;
522 print_search_dirs
= 0;
525 optind
= parse_args(s
, argc
- 1, argv
+ 1);
526 if (print_search_dirs
) {
527 /* enough for Linux kernel */
528 printf("install: %s/\n", s
->tcc_lib_path
);
531 if (optind
== 0 || nb_files
== 0) {
532 if (optind
&& s
->verbose
)
538 nb_objfiles
= nb_files
- nb_libraries
;
540 /* if outfile provided without other options, we output an
542 if (outfile
&& output_type
== TCC_OUTPUT_MEMORY
)
543 output_type
= TCC_OUTPUT_EXE
;
545 /* check -c consistency : only single file handled. XXX: checks file type */
546 if (output_type
== TCC_OUTPUT_OBJ
&& !reloc_output
) {
547 /* accepts only a single input file */
548 if (nb_objfiles
!= 1)
549 error("cannot specify multiple files with -c");
550 if (nb_libraries
!= 0)
551 error("cannot specify libraries with -c");
555 if (output_type
== TCC_OUTPUT_PREPROCESS
) {
559 s
->outfile
= fopen(outfile
, "w");
561 error("could not open '%s'", outfile
);
566 start_time
= getclock_us();
569 tcc_set_output_type(s
, output_type
);
570 s
->reloc_output
= reloc_output
;
572 /* compile or add each files or library */
573 for(i
= 0; i
< nb_files
&& ret
== 0; i
++) {
574 const char *filename
;
577 if (filename
[0] == '-' && filename
[1] == 'l') {
578 if (tcc_add_library(s
, filename
+ 2) < 0) {
579 error_noabort("cannot find %s", filename
);
584 printf("-> %s\n", filename
);
585 if (tcc_add_file(s
, filename
) < 0)
595 tcc_print_stats(s
, getclock_us() - start_time
);
597 if (s
->output_type
== TCC_OUTPUT_MEMORY
)
598 ret
= tcc_run(s
, argc
- optind
, argv
+ optind
);
600 if (s
->output_type
== TCC_OUTPUT_PREPROCESS
) {
604 ret
= tcc_output_file(s
, outfile
? outfile
: tcc_default_target(s
));
608 /* dump collected dependencies */
609 if (gen_deps
&& !ret
)
610 tcc_gen_makedeps(s
, outfile
, deps_outfile
);
618 printf("memory: %d bytes, max = %d bytes\n", mem_cur_size
, mem_max_size
);