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
,
129 static const TCCOption tcc_options
[] = {
130 { "h", TCC_OPTION_HELP
, 0 },
131 { "-help", TCC_OPTION_HELP
, 0 },
132 { "?", TCC_OPTION_HELP
, 0 },
133 { "I", TCC_OPTION_I
, TCC_OPTION_HAS_ARG
},
134 { "D", TCC_OPTION_D
, TCC_OPTION_HAS_ARG
},
135 { "U", TCC_OPTION_U
, TCC_OPTION_HAS_ARG
},
136 { "L", TCC_OPTION_L
, TCC_OPTION_HAS_ARG
},
137 { "B", TCC_OPTION_B
, TCC_OPTION_HAS_ARG
},
138 { "l", TCC_OPTION_l
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
139 { "bench", TCC_OPTION_bench
, 0 },
140 #ifdef CONFIG_TCC_BACKTRACE
141 { "bt", TCC_OPTION_bt
, TCC_OPTION_HAS_ARG
},
143 #ifdef CONFIG_TCC_BCHECK
144 { "b", TCC_OPTION_b
, 0 },
146 { "g", TCC_OPTION_g
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
147 { "c", TCC_OPTION_c
, 0 },
148 { "static", TCC_OPTION_static
, 0 },
149 { "shared", TCC_OPTION_shared
, 0 },
150 { "soname", TCC_OPTION_soname
, TCC_OPTION_HAS_ARG
},
151 { "o", TCC_OPTION_o
, TCC_OPTION_HAS_ARG
},
152 { "pthread", TCC_OPTION_pthread
, 0},
153 { "run", TCC_OPTION_run
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
154 { "rdynamic", TCC_OPTION_rdynamic
, 0 },
155 { "r", TCC_OPTION_r
, 0 },
156 { "s", TCC_OPTION_s
, 0 },
157 { "Wl,", TCC_OPTION_Wl
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
158 { "W", TCC_OPTION_W
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
159 { "O", TCC_OPTION_O
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
160 { "m", TCC_OPTION_m
, TCC_OPTION_HAS_ARG
},
161 { "f", TCC_OPTION_f
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
162 { "nostdinc", TCC_OPTION_nostdinc
, 0 },
163 { "nostdlib", TCC_OPTION_nostdlib
, 0 },
164 { "print-search-dirs", TCC_OPTION_print_search_dirs
, 0 },
165 { "v", TCC_OPTION_v
, TCC_OPTION_HAS_ARG
| TCC_OPTION_NOSEP
},
166 { "w", TCC_OPTION_w
, 0 },
167 { "pipe", TCC_OPTION_pipe
, 0},
168 { "E", TCC_OPTION_E
, 0},
169 { "MD", TCC_OPTION_MD
, 0},
170 { "MF", TCC_OPTION_MF
, TCC_OPTION_HAS_ARG
},
171 { "x", TCC_OPTION_x
, TCC_OPTION_HAS_ARG
},
175 static int64_t getclock_us(void)
180 return (tb
.time
* 1000LL + tb
.millitm
) * 1000LL;
183 gettimeofday(&tv
, NULL
);
184 return tv
.tv_sec
* 1000000LL + tv
.tv_usec
;
188 /* convert 'str' into an array of space separated strings */
189 static int expand_args(char ***pargv
, const char *str
)
198 while (is_space(*str
))
203 while (*str
!= '\0' && !is_space(*str
))
206 arg
= tcc_malloc(len
+ 1);
207 memcpy(arg
, s1
, len
);
209 dynarray_add((void ***)&argv
, &argc
, arg
);
215 #if defined(TCC_TARGET_X86_64) || defined (TCC_TARGET_I386)
218 #define CAST (const char * const *)
220 #define CAST (char * const *)
223 #if defined(TCC_TARGET_X86_64)
226 #elif defined (TCC_TARGET_I386)
228 #define CHILD "x86_64"
231 static const char *ssuffix(const char *name
, const char sep
)
233 char *p
= strchr(name
, sep
);
237 static void exec_other_tcc(TCCState
*s
, int argc
,
238 char **argv
,const char *optarg
, int optind
)
240 char child_path
[4096],child_name
[4096];
241 char *parent
,*child_tcc
;
242 int opt
= atoi(optarg
);
243 if (strlen(argv
[0]) > 4000)
244 error("-m%s unsafe path length", ARG
);
246 case ARG
+ 1: /* oops we called ourselves */
247 error("-m%s cross compiler not installed", ARG
);
251 parent
= tcc_basename(argv
[0]);
252 sprintf(child_name
, CHILD
"-%s", ssuffix(parent
,'-'));
253 if (strcmp(parent
, child_name
)) {
254 /* child_path = dirname */
255 pstrcpy(child_path
, parent
- argv
[0] + 1, argv
[0]);
256 child_tcc
= strchr(child_path
, 0);
257 strcpy(child_tcc
, child_name
);
259 printf("%s -m%i -> %s\n",
260 parent
, ARG
, child_path
);
261 sprintf(argv
[optind
],"-m%i", ARG
+ 1); /* no loop */
262 execvp(child_path
, CAST argv
);
263 sprintf(child_tcc
,"tcc%s",tcc_fileextension(parent
));
264 execvp(child_path
, CAST argv
);
265 error("-m%s cross compiler not found", ARG
);
266 } else error("-m%s unsupported configuration", ARG
);
268 case 96 ^ ARG
: break;
269 case 96 ^ (ARG
+ 1): break;
271 warning("usupported option \"-m%s\"",optarg
);
279 static int parse_args(TCCState
*s
, int argc
, char **argv
)
282 const TCCOption
*popt
;
283 const char *optarg
, *p1
, *r1
;
287 while (optind
< argc
) {
290 if (r
[0] != '-' || r
[1] == '\0') {
292 dynarray_add((void ***)&files
, &nb_files
, r
);
293 if (!multiple_files
) {
295 /* argv[0] will be this file */
299 /* find option in table (match only the first chars */
304 error("invalid option -- '%s'", r
);
317 if (popt
->flags
& TCC_OPTION_HAS_ARG
) {
318 if (*r1
!= '\0' || (popt
->flags
& TCC_OPTION_NOSEP
)) {
322 error("argument to '%s' is missing", r
);
323 optarg
= argv
[optind
++];
331 switch(popt
->index
) {
332 case TCC_OPTION_HELP
:
336 if (tcc_add_include_path(s
, optarg
) < 0)
337 error("too many include paths");
342 sym
= (char *)optarg
;
343 value
= strchr(sym
, '=');
348 tcc_define_symbol(s
, sym
, value
);
352 tcc_undefine_symbol(s
, optarg
);
355 tcc_add_library_path(s
, optarg
);
358 /* set tcc utilities path (mainly for tcc development) */
359 tcc_set_lib_path(s
, optarg
);
362 dynarray_add((void ***)&files
, &nb_files
, r
);
365 case TCC_OPTION_pthread
:
366 /* fixme: these options could be different on your platform */
367 if(output_type
!= TCC_OUTPUT_OBJ
){
368 dynarray_add((void ***)&files
, &nb_files
, "-lpthread");
371 tcc_define_symbol(s
, "_REENTRANT", "1");
373 case TCC_OPTION_bench
:
376 #ifdef CONFIG_TCC_BACKTRACE
378 set_num_callers(atoi(optarg
));
381 #ifdef CONFIG_TCC_BCHECK
383 s
->do_bounds_check
= 1;
392 output_type
= TCC_OUTPUT_OBJ
;
394 case TCC_OPTION_static
:
397 case TCC_OPTION_shared
:
398 output_type
= TCC_OUTPUT_DLL
;
400 case TCC_OPTION_soname
:
403 #if defined(TCC_TARGET_X86_64) || defined (TCC_TARGET_I386)
405 exec_other_tcc(s
, argc
+1, argv
-1, optarg
, optind
);
413 /* generate a .o merging several output files */
415 output_type
= TCC_OUTPUT_OBJ
;
417 case TCC_OPTION_nostdinc
:
420 case TCC_OPTION_nostdlib
:
423 case TCC_OPTION_print_search_dirs
:
424 print_search_dirs
= 1;
430 argc1
= expand_args(&argv1
, optarg
);
432 parse_args(s
, argc1
, argv1
);
435 output_type
= TCC_OUTPUT_MEMORY
;
440 if (0 == s
->verbose
++)
441 printf("tcc version %s\n", TCC_VERSION
);
442 } while (*optarg
++ == 'v');
445 if (tcc_set_flag(s
, optarg
, 1) < 0 && s
->warn_unsupported
)
446 goto unsupported_option
;
449 if (tcc_set_warning(s
, optarg
, 1) < 0 &&
451 goto unsupported_option
;
456 case TCC_OPTION_rdynamic
:
461 if ((r
= (char *) tcc_set_linker(s
, (char *)optarg
, TRUE
)))
462 error("unsupported linker option '%s'", r
);
466 output_type
= TCC_OUTPUT_PREPROCESS
;
472 deps_outfile
= optarg
;
477 if (s
->warn_unsupported
) {
479 warning("unsupported option '%s'", r
);
488 int main(int argc
, char **argv
)
492 int nb_objfiles
, ret
, optind
;
493 int64_t start_time
= 0;
497 output_type
= TCC_OUTPUT_EXE
;
504 print_search_dirs
= 0;
507 optind
= parse_args(s
, argc
- 1, argv
+ 1);
508 if (print_search_dirs
) {
509 /* enough for Linux kernel */
510 printf("install: %s/\n", s
->tcc_lib_path
);
513 if (optind
== 0 || nb_files
== 0) {
514 if (optind
&& s
->verbose
)
520 nb_objfiles
= nb_files
- nb_libraries
;
522 /* if outfile provided without other options, we output an
524 if (outfile
&& output_type
== TCC_OUTPUT_MEMORY
)
525 output_type
= TCC_OUTPUT_EXE
;
527 /* check -c consistency : only single file handled. XXX: checks file type */
528 if (output_type
== TCC_OUTPUT_OBJ
&& !reloc_output
) {
529 /* accepts only a single input file */
530 if (nb_objfiles
!= 1)
531 error("cannot specify multiple files with -c");
532 if (nb_libraries
!= 0)
533 error("cannot specify libraries with -c");
537 if (output_type
== TCC_OUTPUT_PREPROCESS
) {
541 s
->outfile
= fopen(outfile
, "w");
543 error("could not open '%s'", outfile
);
548 start_time
= getclock_us();
551 tcc_set_output_type(s
, output_type
);
552 s
->reloc_output
= reloc_output
;
554 /* compile or add each files or library */
555 for(i
= 0; i
< nb_files
&& ret
== 0; i
++) {
556 const char *filename
;
559 if (filename
[0] == '-' && filename
[1] == 'l') {
560 if (tcc_add_library(s
, filename
+ 2) < 0) {
561 error_noabort("cannot find %s", filename
);
566 printf("-> %s\n", filename
);
567 if (tcc_add_file(s
, filename
) < 0)
577 tcc_print_stats(s
, getclock_us() - start_time
);
579 if (s
->output_type
== TCC_OUTPUT_MEMORY
)
580 ret
= tcc_run(s
, argc
- optind
, argv
+ optind
);
582 if (s
->output_type
== TCC_OUTPUT_PREPROCESS
) {
586 ret
= tcc_output_file(s
, outfile
? outfile
: tcc_default_target(s
));
590 /* dump collected dependencies */
591 if (gen_deps
&& !ret
)
592 tcc_gen_makedeps(s
, outfile
, deps_outfile
);
600 printf("memory: %d bytes, max = %d bytes\n", mem_cur_size
, mem_max_size
);