]>
Commit | Line | Data |
---|---|---|
0b6f2917 | 1 | /* C/ObjC/C++ command line option handling. |
d9221e01 | 2 | Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. |
0b6f2917 NB |
3 | Contributed by Neil Booth. |
4 | ||
5 | This file is part of GCC. | |
6 | ||
7 | GCC is free software; you can redistribute it and/or modify it under | |
8 | the terms of the GNU General Public License as published by the Free | |
9 | Software Foundation; either version 2, or (at your option) any later | |
10 | version. | |
11 | ||
12 | GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
13 | WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
14 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
15 | for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
18 | along with GCC; see the file COPYING. If not, write to the Free | |
19 | Software Foundation, 59 Temple Place - Suite 330, Boston, MA | |
20 | 02111-1307, USA. */ | |
21 | ||
22 | #include "config.h" | |
23 | #include "system.h" | |
4977bab6 ZW |
24 | #include "coretypes.h" |
25 | #include "tm.h" | |
0b6f2917 NB |
26 | #include "tree.h" |
27 | #include "c-common.h" | |
28 | #include "c-pragma.h" | |
29 | #include "flags.h" | |
30 | #include "toplev.h" | |
31 | #include "langhooks.h" | |
32 | #include "tree-inline.h" | |
33 | #include "diagnostic.h" | |
4b7091eb | 34 | #include "intl.h" |
5793b276 NB |
35 | #include "cppdefault.h" |
36 | #include "c-incpath.h" | |
23345bbb | 37 | #include "debug.h" /* For debug_hooks. */ |
2772ef3e | 38 | #include "opts.h" |
d7b42618 | 39 | #include "options.h" |
c6e83800 | 40 | #include "mkdeps.h" |
5793b276 | 41 | |
b1822ccc NB |
42 | #ifndef DOLLARS_IN_IDENTIFIERS |
43 | # define DOLLARS_IN_IDENTIFIERS true | |
44 | #endif | |
45 | ||
5793b276 NB |
46 | #ifndef TARGET_SYSTEM_ROOT |
47 | # define TARGET_SYSTEM_ROOT NULL | |
48 | #endif | |
0b6f2917 | 49 | |
7cd60054 AM |
50 | #ifndef TARGET_OPTF |
51 | #define TARGET_OPTF(ARG) | |
52 | #endif | |
53 | ||
f4ff5a69 | 54 | /* CPP's options. */ |
18bdccaa NB |
55 | static cpp_options *cpp_opts; |
56 | ||
460bd0e3 | 57 | /* Input filename. */ |
89e9faee | 58 | static const char *this_input_filename; |
460bd0e3 | 59 | |
76c3e73e NB |
60 | /* Filename and stream for preprocessed output. */ |
61 | static const char *out_fname; | |
62 | static FILE *out_stream; | |
63 | ||
64 | /* Append dependencies to deps_file. */ | |
65 | static bool deps_append; | |
66 | ||
f4ff5a69 NB |
67 | /* If dependency switches (-MF etc.) have been given. */ |
68 | static bool deps_seen; | |
69 | ||
5793b276 NB |
70 | /* If -v seen. */ |
71 | static bool verbose; | |
72 | ||
f4ff5a69 NB |
73 | /* Dependency output file. */ |
74 | static const char *deps_file; | |
75 | ||
5793b276 NB |
76 | /* The prefix given by -iprefix, if any. */ |
77 | static const char *iprefix; | |
78 | ||
79 | /* The system root, if any. Overridden by -isysroot. */ | |
80 | static const char *sysroot = TARGET_SYSTEM_ROOT; | |
81 | ||
82 | /* Zero disables all standard directories for headers. */ | |
83 | static bool std_inc = true; | |
84 | ||
85 | /* Zero disables the C++-specific standard directories for headers. */ | |
86 | static bool std_cxx_inc = true; | |
87 | ||
88 | /* If the quote chain has been split by -I-. */ | |
89 | static bool quote_chain_split; | |
90 | ||
23345bbb NB |
91 | /* If -Wunused-macros. */ |
92 | static bool warn_unused_macros; | |
93 | ||
e5b79219 RH |
94 | /* If -Wvariadic-macros. */ |
95 | static bool warn_variadic_macros = true; | |
96 | ||
b86f6cd9 NB |
97 | /* Number of deferred options. */ |
98 | static size_t deferred_count; | |
f4ff5a69 | 99 | |
23345bbb NB |
100 | /* Number of deferred options scanned for -include. */ |
101 | static size_t include_cursor; | |
102 | ||
2f6e4e97 | 103 | static void set_Wimplicit (int); |
2f6e4e97 AJ |
104 | static void handle_OPT_d (const char *); |
105 | static void set_std_cxx98 (int); | |
106 | static void set_std_c89 (int, int); | |
107 | static void set_std_c99 (int); | |
108 | static void check_deps_environment_vars (void); | |
109 | static void handle_deferred_opts (void); | |
110 | static void sanitize_cpp_opts (void); | |
111 | static void add_prefixed_path (const char *, size_t); | |
112 | static void push_command_line_include (void); | |
113 | static void cb_file_change (cpp_reader *, const struct line_map *); | |
8e9ea4d7 PB |
114 | static void cb_dir_change (cpp_reader *, const char *); |
115 | static void finish_options (void); | |
460bd0e3 NB |
116 | |
117 | #ifndef STDC_0_IN_SYSTEM_HEADERS | |
118 | #define STDC_0_IN_SYSTEM_HEADERS 0 | |
119 | #endif | |
0b6f2917 | 120 | |
2772ef3e | 121 | /* Holds switches parsed by c_common_handle_option (), but whose |
95bd1dd7 | 122 | handling is deferred to c_common_post_options (). */ |
2f6e4e97 | 123 | static void defer_opt (enum opt_code, const char *); |
f4ff5a69 NB |
124 | static struct deferred_opt |
125 | { | |
126 | enum opt_code code; | |
127 | const char *arg; | |
128 | } *deferred_opts; | |
129 | ||
cb66e385 NB |
130 | /* Complain that switch CODE expects an argument but none was |
131 | provided. OPT was the command-line option. Return FALSE to get | |
132 | the default message in opts.c, TRUE if we provide a specialized | |
133 | one. */ | |
134 | bool | |
135 | c_common_missing_argument (const char *opt, size_t code) | |
4b7091eb | 136 | { |
2772ef3e | 137 | switch (code) |
4b7091eb | 138 | { |
4b7091eb | 139 | default: |
cb66e385 NB |
140 | /* Pick up the default message. */ |
141 | return false; | |
4b7091eb | 142 | |
fef3106c | 143 | case OPT_fconstant_string_class_: |
bda67431 | 144 | error ("no class name specified with %qs", opt); |
4b7091eb | 145 | break; |
b4a93904 | 146 | |
c1bad961 | 147 | case OPT_A: |
bda67431 | 148 | error ("assertion missing after %qs", opt); |
c1bad961 NB |
149 | break; |
150 | ||
151 | case OPT_D: | |
152 | case OPT_U: | |
bda67431 | 153 | error ("macro name missing after %qs", opt); |
c1bad961 NB |
154 | break; |
155 | ||
94d1613b | 156 | case OPT_F: |
5793b276 NB |
157 | case OPT_I: |
158 | case OPT_idirafter: | |
159 | case OPT_isysroot: | |
160 | case OPT_isystem: | |
4bed3787 | 161 | case OPT_iquote: |
bda67431 | 162 | error ("missing path after %qs", opt); |
5793b276 NB |
163 | break; |
164 | ||
f4ff5a69 NB |
165 | case OPT_MF: |
166 | case OPT_MD: | |
167 | case OPT_MMD: | |
255c10b1 NB |
168 | case OPT_include: |
169 | case OPT_imacros: | |
b4a93904 | 170 | case OPT_o: |
bda67431 | 171 | error ("missing filename after %qs", opt); |
f4ff5a69 NB |
172 | break; |
173 | ||
174 | case OPT_MQ: | |
175 | case OPT_MT: | |
bda67431 | 176 | error ("missing makefile target after %qs", opt); |
b4a93904 | 177 | break; |
4b7091eb | 178 | } |
cb66e385 NB |
179 | |
180 | return true; | |
4b7091eb NB |
181 | } |
182 | ||
f4ff5a69 NB |
183 | /* Defer option CODE with argument ARG. */ |
184 | static void | |
2f6e4e97 | 185 | defer_opt (enum opt_code code, const char *arg) |
f4ff5a69 | 186 | { |
f4ff5a69 NB |
187 | deferred_opts[deferred_count].code = code; |
188 | deferred_opts[deferred_count].arg = arg; | |
189 | deferred_count++; | |
190 | } | |
191 | ||
0b6f2917 | 192 | /* Common initialization before parsing options. */ |
b86f6cd9 | 193 | unsigned int |
afd85c1a | 194 | c_common_init_options (unsigned int argc, const char **argv) |
0b6f2917 | 195 | { |
b86f6cd9 | 196 | static const unsigned int lang_flags[] = {CL_C, CL_ObjC, CL_CXX, CL_ObjCXX}; |
afd85c1a | 197 | unsigned int i, result; |
37fa72e9 NB |
198 | |
199 | /* This is conditionalized only because that is the way the front | |
200 | ends used to do it. Maybe this should be unconditional? */ | |
201 | if (c_dialect_cxx ()) | |
202 | { | |
203 | /* By default wrap lines at 80 characters. Is getenv | |
204 | ("COLUMNS") preferable? */ | |
205 | diagnostic_line_cutoff (global_dc) = 80; | |
206 | /* By default, emit location information once for every | |
207 | diagnostic message. */ | |
208 | diagnostic_prefixing_rule (global_dc) = DIAGNOSTICS_SHOW_PREFIX_ONCE; | |
209 | } | |
210 | ||
211 | parse_in = cpp_create_reader (c_dialect_cxx () ? CLK_GNUCXX: CLK_GNUC89, | |
50f59cd7 | 212 | ident_hash, &line_table); |
37fa72e9 | 213 | |
18bdccaa | 214 | cpp_opts = cpp_get_options (parse_in); |
b1822ccc | 215 | cpp_opts->dollars_in_ident = DOLLARS_IN_IDENTIFIERS; |
37fa72e9 | 216 | cpp_opts->objc = c_dialect_objc (); |
78b8811a HPN |
217 | |
218 | /* Reset to avoid warnings on internal definitions. We set it just | |
219 | before passing on command-line options to cpplib. */ | |
220 | cpp_opts->warn_dollars = 0; | |
221 | ||
37fa72e9 NB |
222 | flag_const_strings = c_dialect_cxx (); |
223 | flag_exceptions = c_dialect_cxx (); | |
224 | warn_pointer_arith = c_dialect_cxx (); | |
2772ef3e | 225 | |
5d038c4c | 226 | deferred_opts = XNEWVEC (struct deferred_opt, argc); |
b86f6cd9 | 227 | |
33de9573 NB |
228 | result = lang_flags[c_language]; |
229 | ||
afd85c1a | 230 | if (c_language == clk_c) |
33de9573 | 231 | { |
afd85c1a RS |
232 | /* If preprocessing assembly language, accept any of the C-family |
233 | front end options since the driver may pass them through. */ | |
234 | for (i = 1; i < argc; i++) | |
235 | if (! strcmp (argv[i], "-lang-asm")) | |
236 | { | |
237 | result |= CL_C | CL_ObjC | CL_CXX | CL_ObjCXX; | |
238 | break; | |
239 | } | |
33de9573 | 240 | } |
33de9573 NB |
241 | |
242 | return result; | |
0b6f2917 NB |
243 | } |
244 | ||
b20d9f0c | 245 | /* Handle switch SCODE with argument ARG. VALUE is true, unless no- |
2772ef3e NB |
246 | form of an -f or -W option was given. Returns 0 if the switch was |
247 | invalid, a negative number to prevent language-independent | |
248 | processing in toplev.c (a hack necessary for the short-term). */ | |
0b6f2917 | 249 | int |
7b086b11 | 250 | c_common_handle_option (size_t scode, const char *arg, int value) |
0b6f2917 | 251 | { |
2772ef3e NB |
252 | const struct cl_option *option = &cl_options[scode]; |
253 | enum opt_code code = (enum opt_code) scode; | |
f18754d6 | 254 | int result = 1; |
2772ef3e | 255 | |
fef3106c | 256 | switch (code) |
0b6f2917 | 257 | { |
2772ef3e | 258 | default: |
7619c085 DD |
259 | if (cl_options[code].flags & (CL_C | CL_CXX | CL_ObjC | CL_ObjCXX)) |
260 | break; | |
afd85c1a | 261 | result = 0; |
33de9573 | 262 | break; |
0b6f2917 | 263 | |
fef3106c | 264 | case OPT__output_pch_: |
17211ab5 GK |
265 | pch_file = arg; |
266 | break; | |
267 | ||
c1bad961 NB |
268 | case OPT_A: |
269 | defer_opt (code, arg); | |
270 | break; | |
271 | ||
4b7091eb NB |
272 | case OPT_C: |
273 | cpp_opts->discard_comments = 0; | |
274 | break; | |
275 | ||
276 | case OPT_CC: | |
277 | cpp_opts->discard_comments = 0; | |
278 | cpp_opts->discard_comments_in_macro_exp = 0; | |
279 | break; | |
280 | ||
c1bad961 NB |
281 | case OPT_D: |
282 | defer_opt (code, arg); | |
283 | break; | |
284 | ||
0b6f2917 NB |
285 | case OPT_E: |
286 | flag_preprocess_only = 1; | |
287 | break; | |
288 | ||
4b7091eb NB |
289 | case OPT_H: |
290 | cpp_opts->print_include_names = 1; | |
291 | break; | |
292 | ||
94d1613b MS |
293 | case OPT_F: |
294 | TARGET_OPTF (xstrdup (arg)); | |
295 | break; | |
296 | ||
5793b276 NB |
297 | case OPT_I: |
298 | if (strcmp (arg, "-")) | |
b02398bd | 299 | add_path (xstrdup (arg), BRACKET, 0, true); |
5793b276 NB |
300 | else |
301 | { | |
302 | if (quote_chain_split) | |
303 | error ("-I- specified twice"); | |
304 | quote_chain_split = true; | |
305 | split_quote_chain (); | |
4bed3787 | 306 | inform ("obsolete option -I- used, please use -iquote instead"); |
5793b276 NB |
307 | } |
308 | break; | |
309 | ||
f4ff5a69 NB |
310 | case OPT_M: |
311 | case OPT_MM: | |
312 | /* When doing dependencies with -M or -MM, suppress normal | |
313 | preprocessed output, but still do -dM etc. as software | |
314 | depends on this. Preprocessed output does occur if -MD, -MMD | |
315 | or environment var dependency generation is used. */ | |
316 | cpp_opts->deps.style = (code == OPT_M ? DEPS_SYSTEM: DEPS_USER); | |
63973df3 | 317 | flag_no_output = 1; |
f4ff5a69 NB |
318 | cpp_opts->inhibit_warnings = 1; |
319 | break; | |
320 | ||
321 | case OPT_MD: | |
322 | case OPT_MMD: | |
323 | cpp_opts->deps.style = (code == OPT_MD ? DEPS_SYSTEM: DEPS_USER); | |
324 | deps_file = arg; | |
325 | break; | |
326 | ||
327 | case OPT_MF: | |
328 | deps_seen = true; | |
329 | deps_file = arg; | |
330 | break; | |
331 | ||
332 | case OPT_MG: | |
333 | deps_seen = true; | |
334 | cpp_opts->deps.missing_files = true; | |
335 | break; | |
336 | ||
337 | case OPT_MP: | |
338 | deps_seen = true; | |
339 | cpp_opts->deps.phony_targets = true; | |
340 | break; | |
341 | ||
342 | case OPT_MQ: | |
343 | case OPT_MT: | |
344 | deps_seen = true; | |
345 | defer_opt (code, arg); | |
346 | break; | |
347 | ||
4b7091eb | 348 | case OPT_P: |
63973df3 | 349 | flag_no_line_commands = 1; |
4b7091eb NB |
350 | break; |
351 | ||
b20d9f0c AO |
352 | case OPT_fworking_directory: |
353 | flag_working_directory = value; | |
354 | break; | |
355 | ||
c1bad961 NB |
356 | case OPT_U: |
357 | defer_opt (code, arg); | |
358 | break; | |
359 | ||
0b6f2917 | 360 | case OPT_Wall: |
7b086b11 NB |
361 | set_Wunused (value); |
362 | set_Wformat (value); | |
363 | set_Wimplicit (value); | |
364 | warn_char_subscripts = value; | |
365 | warn_missing_braces = value; | |
366 | warn_parentheses = value; | |
367 | warn_return_type = value; | |
368 | warn_sequence_point = value; /* Was C only. */ | |
37fa72e9 | 369 | if (c_dialect_cxx ()) |
7b086b11 NB |
370 | warn_sign_compare = value; |
371 | warn_switch = value; | |
372 | warn_strict_aliasing = value; | |
2f6e4e97 | 373 | |
0b6f2917 | 374 | /* Only warn about unknown pragmas that are not in system |
2f6e4e97 | 375 | headers. */ |
7b086b11 | 376 | warn_unknown_pragmas = value; |
0b6f2917 NB |
377 | |
378 | /* We save the value of warn_uninitialized, since if they put | |
379 | -Wuninitialized on the command line, we need to generate a | |
380 | warning about not using it without also specifying -O. */ | |
381 | if (warn_uninitialized != 1) | |
7b086b11 | 382 | warn_uninitialized = (value ? 2 : 0); |
0b6f2917 | 383 | |
37fa72e9 | 384 | if (!c_dialect_cxx ()) |
0b6f2917 NB |
385 | /* We set this to 2 here, but 1 in -Wmain, so -ffreestanding |
386 | can turn it off only if it's not explicit. */ | |
7b086b11 | 387 | warn_main = value * 2; |
0b6f2917 NB |
388 | else |
389 | { | |
390 | /* C++-specific warnings. */ | |
7b086b11 NB |
391 | warn_nonvdtor = value; |
392 | warn_reorder = value; | |
393 | warn_nontemplate_friend = value; | |
0b6f2917 | 394 | } |
18bdccaa | 395 | |
7b086b11 NB |
396 | cpp_opts->warn_trigraphs = value; |
397 | cpp_opts->warn_comments = value; | |
398 | cpp_opts->warn_num_sign_change = value; | |
399 | cpp_opts->warn_multichar = value; /* Was C++ only. */ | |
0b6f2917 NB |
400 | break; |
401 | ||
18bdccaa NB |
402 | case OPT_Wcomment: |
403 | case OPT_Wcomments: | |
7b086b11 | 404 | cpp_opts->warn_comments = value; |
18bdccaa NB |
405 | break; |
406 | ||
0b6f2917 | 407 | case OPT_Wdeprecated: |
7b086b11 | 408 | cpp_opts->warn_deprecated = value; |
0b6f2917 NB |
409 | break; |
410 | ||
411 | case OPT_Wdiv_by_zero: | |
7b086b11 | 412 | warn_div_by_zero = value; |
0b6f2917 NB |
413 | break; |
414 | ||
18bdccaa | 415 | case OPT_Wendif_labels: |
7b086b11 | 416 | cpp_opts->warn_endif_labels = value; |
18bdccaa NB |
417 | break; |
418 | ||
419 | case OPT_Werror: | |
7b086b11 | 420 | cpp_opts->warnings_are_errors = value; |
7783b402 | 421 | global_dc->warning_as_error_requested = value; |
18bdccaa NB |
422 | break; |
423 | ||
fef3106c | 424 | case OPT_Werror_implicit_function_declaration: |
c83857ff | 425 | mesg_implicit_function_declaration = 2; |
0b6f2917 NB |
426 | break; |
427 | ||
0b6f2917 | 428 | case OPT_Wformat: |
7b086b11 | 429 | set_Wformat (value); |
0b6f2917 NB |
430 | break; |
431 | ||
fef3106c | 432 | case OPT_Wformat_: |
0b6f2917 NB |
433 | set_Wformat (atoi (arg)); |
434 | break; | |
435 | ||
0b6f2917 | 436 | case OPT_Wimplicit: |
7b086b11 | 437 | set_Wimplicit (value); |
0b6f2917 NB |
438 | break; |
439 | ||
18bdccaa | 440 | case OPT_Wimport: |
bf42e45b | 441 | /* Silently ignore for now. */ |
18bdccaa NB |
442 | break; |
443 | ||
17211ab5 | 444 | case OPT_Winvalid_pch: |
7b086b11 | 445 | cpp_opts->warn_invalid_pch = value; |
17211ab5 GK |
446 | break; |
447 | ||
0b6f2917 | 448 | case OPT_Wmain: |
7b086b11 | 449 | if (value) |
0b6f2917 NB |
450 | warn_main = 1; |
451 | else | |
452 | warn_main = -1; | |
453 | break; | |
454 | ||
b02398bd BE |
455 | case OPT_Wmissing_include_dirs: |
456 | cpp_opts->warn_missing_include_dirs = value; | |
457 | break; | |
458 | ||
0b6f2917 | 459 | case OPT_Wmultichar: |
7b086b11 | 460 | cpp_opts->warn_multichar = value; |
0b6f2917 NB |
461 | break; |
462 | ||
0b6f2917 | 463 | case OPT_Wreturn_type: |
7b086b11 | 464 | warn_return_type = value; |
0b6f2917 NB |
465 | break; |
466 | ||
18bdccaa | 467 | case OPT_Wsystem_headers: |
7b086b11 | 468 | cpp_opts->warn_system_headers = value; |
18bdccaa NB |
469 | break; |
470 | ||
0b6f2917 | 471 | case OPT_Wtraditional: |
7b086b11 | 472 | cpp_opts->warn_traditional = value; |
18bdccaa NB |
473 | break; |
474 | ||
475 | case OPT_Wtrigraphs: | |
7b086b11 | 476 | cpp_opts->warn_trigraphs = value; |
18bdccaa NB |
477 | break; |
478 | ||
479 | case OPT_Wundef: | |
7b086b11 | 480 | cpp_opts->warn_undef = value; |
0b6f2917 NB |
481 | break; |
482 | ||
483 | case OPT_Wunknown_pragmas: | |
484 | /* Set to greater than 1, so that even unknown pragmas in | |
2f6e4e97 | 485 | system headers will be warned about. */ |
7b086b11 | 486 | warn_unknown_pragmas = value * 2; |
0b6f2917 NB |
487 | break; |
488 | ||
18bdccaa | 489 | case OPT_Wunused_macros: |
7b086b11 | 490 | warn_unused_macros = value; |
18bdccaa NB |
491 | break; |
492 | ||
e5b79219 RH |
493 | case OPT_Wvariadic_macros: |
494 | warn_variadic_macros = value; | |
495 | break; | |
496 | ||
0b6f2917 | 497 | case OPT_Wwrite_strings: |
37fa72e9 | 498 | if (!c_dialect_cxx ()) |
7b086b11 | 499 | flag_const_strings = value; |
0b6f2917 | 500 | else |
7b086b11 | 501 | warn_write_strings = value; |
0b6f2917 | 502 | break; |
2f6e4e97 | 503 | |
f749a36b | 504 | case OPT_ansi: |
37fa72e9 | 505 | if (!c_dialect_cxx ()) |
f749a36b NB |
506 | set_std_c89 (false, true); |
507 | else | |
508 | set_std_cxx98 (true); | |
509 | break; | |
0b6f2917 | 510 | |
4b7091eb NB |
511 | case OPT_d: |
512 | handle_OPT_d (arg); | |
513 | break; | |
514 | ||
0b6f2917 | 515 | case OPT_fcond_mismatch: |
37fa72e9 | 516 | if (!c_dialect_cxx ()) |
0b6f2917 | 517 | { |
7b086b11 | 518 | flag_cond_mismatch = value; |
0b6f2917 NB |
519 | break; |
520 | } | |
521 | /* Fall through. */ | |
522 | ||
523 | case OPT_fall_virtual: | |
7813d14c | 524 | case OPT_falt_external_templates: |
0b6f2917 | 525 | case OPT_fenum_int_equiv: |
7813d14c | 526 | case OPT_fexternal_templates: |
0b6f2917 NB |
527 | case OPT_fguiding_decls: |
528 | case OPT_fhonor_std: | |
529 | case OPT_fhuge_objects: | |
530 | case OPT_flabels_ok: | |
fef3106c | 531 | case OPT_fname_mangling_version_: |
0b6f2917 NB |
532 | case OPT_fnew_abi: |
533 | case OPT_fnonnull_objects: | |
534 | case OPT_fsquangle: | |
535 | case OPT_fstrict_prototype: | |
536 | case OPT_fthis_is_variable: | |
537 | case OPT_fvtable_thunks: | |
538 | case OPT_fxref: | |
a0c8285b | 539 | case OPT_fvtable_gc: |
bda67431 | 540 | warning ("switch %qs is no longer supported", option->opt_text); |
0b6f2917 NB |
541 | break; |
542 | ||
543 | case OPT_faccess_control: | |
7b086b11 | 544 | flag_access_control = value; |
0b6f2917 NB |
545 | break; |
546 | ||
0b6f2917 | 547 | case OPT_fasm: |
7b086b11 | 548 | flag_no_asm = !value; |
0b6f2917 NB |
549 | break; |
550 | ||
551 | case OPT_fbuiltin: | |
7b086b11 | 552 | flag_no_builtin = !value; |
0b6f2917 NB |
553 | break; |
554 | ||
555 | case OPT_fbuiltin_: | |
7b086b11 | 556 | if (value) |
4b7091eb NB |
557 | result = 0; |
558 | else | |
559 | disable_builtin_function (arg); | |
0b6f2917 NB |
560 | break; |
561 | ||
562 | case OPT_fdollars_in_identifiers: | |
7b086b11 | 563 | cpp_opts->dollars_in_ident = value; |
0b6f2917 NB |
564 | break; |
565 | ||
0b6f2917 | 566 | case OPT_ffreestanding: |
7b086b11 | 567 | value = !value; |
938d968e | 568 | /* Fall through.... */ |
0b6f2917 | 569 | case OPT_fhosted: |
7b086b11 NB |
570 | flag_hosted = value; |
571 | flag_no_builtin = !value; | |
0b6f2917 | 572 | /* warn_main will be 2 if set by -Wall, 1 if set by -Wmain */ |
7b086b11 | 573 | if (!value && warn_main == 2) |
0b6f2917 NB |
574 | warn_main = 0; |
575 | break; | |
576 | ||
577 | case OPT_fshort_double: | |
7b086b11 | 578 | flag_short_double = value; |
0b6f2917 NB |
579 | break; |
580 | ||
581 | case OPT_fshort_enums: | |
7b086b11 | 582 | flag_short_enums = value; |
0b6f2917 NB |
583 | break; |
584 | ||
585 | case OPT_fshort_wchar: | |
7b086b11 | 586 | flag_short_wchar = value; |
0b6f2917 NB |
587 | break; |
588 | ||
589 | case OPT_fsigned_bitfields: | |
7b086b11 | 590 | flag_signed_bitfields = value; |
0b6f2917 NB |
591 | explicit_flag_signed_bitfields = 1; |
592 | break; | |
593 | ||
594 | case OPT_fsigned_char: | |
7b086b11 | 595 | flag_signed_char = value; |
0b6f2917 NB |
596 | break; |
597 | ||
598 | case OPT_funsigned_bitfields: | |
7b086b11 | 599 | flag_signed_bitfields = !value; |
0b6f2917 NB |
600 | explicit_flag_signed_bitfields = 1; |
601 | break; | |
602 | ||
603 | case OPT_funsigned_char: | |
7b086b11 | 604 | flag_signed_char = !value; |
0b6f2917 NB |
605 | break; |
606 | ||
607 | case OPT_fcheck_new: | |
7b086b11 | 608 | flag_check_new = value; |
0b6f2917 NB |
609 | break; |
610 | ||
611 | case OPT_fconserve_space: | |
7b086b11 | 612 | flag_conserve_space = value; |
0b6f2917 NB |
613 | break; |
614 | ||
615 | case OPT_fconst_strings: | |
7b086b11 | 616 | flag_const_strings = value; |
0b6f2917 NB |
617 | break; |
618 | ||
fef3106c | 619 | case OPT_fconstant_string_class_: |
4b7091eb | 620 | constant_string_class_name = arg; |
0b6f2917 NB |
621 | break; |
622 | ||
623 | case OPT_fdefault_inline: | |
7b086b11 | 624 | flag_default_inline = value; |
0b6f2917 NB |
625 | break; |
626 | ||
627 | case OPT_felide_constructors: | |
7b086b11 | 628 | flag_elide_constructors = value; |
0b6f2917 NB |
629 | break; |
630 | ||
631 | case OPT_fenforce_eh_specs: | |
7b086b11 | 632 | flag_enforce_eh_specs = value; |
0b6f2917 NB |
633 | break; |
634 | ||
1c2de642 | 635 | case OPT_ffixed_form: |
fef3106c | 636 | case OPT_ffixed_line_length_: |
1c2de642 | 637 | /* Fortran front end options ignored when preprocessing only. */ |
058de654 NB |
638 | if (!flag_preprocess_only) |
639 | result = 0; | |
1c2de642 TM |
640 | break; |
641 | ||
0b6f2917 | 642 | case OPT_ffor_scope: |
7b086b11 | 643 | flag_new_for_scope = value; |
0b6f2917 NB |
644 | break; |
645 | ||
646 | case OPT_fgnu_keywords: | |
7b086b11 | 647 | flag_no_gnu_keywords = !value; |
0b6f2917 NB |
648 | break; |
649 | ||
650 | case OPT_fgnu_runtime: | |
7b086b11 | 651 | flag_next_runtime = !value; |
0b6f2917 NB |
652 | break; |
653 | ||
654 | case OPT_fhandle_exceptions: | |
f75d3e11 | 655 | warning ("-fhandle-exceptions has been renamed -fexceptions (and is now on by default)"); |
7b086b11 | 656 | flag_exceptions = value; |
0b6f2917 NB |
657 | break; |
658 | ||
659 | case OPT_fimplement_inlines: | |
7b086b11 | 660 | flag_implement_inlines = value; |
0b6f2917 NB |
661 | break; |
662 | ||
663 | case OPT_fimplicit_inline_templates: | |
7b086b11 | 664 | flag_implicit_inline_templates = value; |
0b6f2917 NB |
665 | break; |
666 | ||
667 | case OPT_fimplicit_templates: | |
7b086b11 | 668 | flag_implicit_templates = value; |
0b6f2917 NB |
669 | break; |
670 | ||
671 | case OPT_fms_extensions: | |
7b086b11 | 672 | flag_ms_extensions = value; |
0b6f2917 NB |
673 | break; |
674 | ||
675 | case OPT_fnext_runtime: | |
7b086b11 | 676 | flag_next_runtime = value; |
0b6f2917 NB |
677 | break; |
678 | ||
264fa2db ZL |
679 | case OPT_fnil_receivers: |
680 | flag_nil_receivers = value; | |
681 | break; | |
682 | ||
0b6f2917 | 683 | case OPT_fnonansi_builtins: |
7b086b11 | 684 | flag_no_nonansi_builtin = !value; |
0b6f2917 NB |
685 | break; |
686 | ||
264fa2db ZL |
687 | case OPT_fobjc_exceptions: |
688 | flag_objc_exceptions = value; | |
689 | break; | |
690 | ||
093c7153 RH |
691 | case OPT_fobjc_sjlj_exceptions: |
692 | flag_objc_sjlj_exceptions = value; | |
693 | break; | |
694 | ||
18bdccaa | 695 | case OPT_foperator_names: |
7b086b11 | 696 | cpp_opts->operator_names = value; |
18bdccaa NB |
697 | break; |
698 | ||
0b6f2917 | 699 | case OPT_foptional_diags: |
7b086b11 | 700 | flag_optional_diags = value; |
0b6f2917 NB |
701 | break; |
702 | ||
17211ab5 | 703 | case OPT_fpch_deps: |
7b086b11 | 704 | cpp_opts->restore_pch_deps = value; |
17211ab5 GK |
705 | break; |
706 | ||
c0d578e6 GK |
707 | case OPT_fpch_preprocess: |
708 | flag_pch_preprocess = value; | |
709 | break; | |
710 | ||
0b6f2917 | 711 | case OPT_fpermissive: |
7b086b11 | 712 | flag_permissive = value; |
0b6f2917 NB |
713 | break; |
714 | ||
18bdccaa | 715 | case OPT_fpreprocessed: |
7b086b11 | 716 | cpp_opts->preprocessed = value; |
18bdccaa NB |
717 | break; |
718 | ||
264fa2db ZL |
719 | case OPT_freplace_objc_classes: |
720 | flag_replace_objc_classes = value; | |
721 | break; | |
722 | ||
0b6f2917 | 723 | case OPT_frepo: |
7b086b11 NB |
724 | flag_use_repository = value; |
725 | if (value) | |
0b6f2917 NB |
726 | flag_implicit_templates = 0; |
727 | break; | |
728 | ||
729 | case OPT_frtti: | |
7b086b11 | 730 | flag_rtti = value; |
0b6f2917 NB |
731 | break; |
732 | ||
18bdccaa | 733 | case OPT_fshow_column: |
7b086b11 | 734 | cpp_opts->show_column = value; |
18bdccaa NB |
735 | break; |
736 | ||
0b6f2917 | 737 | case OPT_fstats: |
7b086b11 | 738 | flag_detailed_statistics = value; |
0b6f2917 NB |
739 | break; |
740 | ||
fef3106c | 741 | case OPT_ftabstop_: |
18bdccaa | 742 | /* It is documented that we silently ignore silly values. */ |
7b086b11 NB |
743 | if (value >= 1 && value <= 100) |
744 | cpp_opts->tabstop = value; | |
18bdccaa NB |
745 | break; |
746 | ||
e6cc3a24 ZW |
747 | case OPT_fexec_charset_: |
748 | cpp_opts->narrow_charset = arg; | |
749 | break; | |
750 | ||
751 | case OPT_fwide_exec_charset_: | |
752 | cpp_opts->wide_charset = arg; | |
753 | break; | |
754 | ||
16dd5cfe EC |
755 | case OPT_finput_charset_: |
756 | cpp_opts->input_charset = arg; | |
757 | break; | |
758 | ||
fef3106c | 759 | case OPT_ftemplate_depth_: |
7b086b11 | 760 | max_tinst_depth = value; |
0b6f2917 NB |
761 | break; |
762 | ||
0b6f2917 | 763 | case OPT_fuse_cxa_atexit: |
7b086b11 | 764 | flag_use_cxa_atexit = value; |
0b6f2917 | 765 | break; |
d7afec4b ND |
766 | |
767 | case OPT_fvisibility_inlines_hidden: | |
768 | visibility_options.inlines_hidden = value; | |
769 | break; | |
0b6f2917 NB |
770 | |
771 | case OPT_fweak: | |
7b086b11 | 772 | flag_weak = value; |
0b6f2917 | 773 | break; |
264fa2db | 774 | |
40aac948 JM |
775 | case OPT_fthreadsafe_statics: |
776 | flag_threadsafe_statics = value; | |
777 | break; | |
778 | ||
264fa2db ZL |
779 | case OPT_fzero_link: |
780 | flag_zero_link = value; | |
781 | break; | |
0b6f2917 NB |
782 | |
783 | case OPT_gen_decls: | |
784 | flag_gen_declaration = 1; | |
785 | break; | |
786 | ||
5793b276 | 787 | case OPT_idirafter: |
b02398bd | 788 | add_path (xstrdup (arg), AFTER, 0, true); |
5793b276 NB |
789 | break; |
790 | ||
255c10b1 | 791 | case OPT_imacros: |
23345bbb NB |
792 | case OPT_include: |
793 | defer_opt (code, arg); | |
794 | break; | |
795 | ||
5793b276 NB |
796 | case OPT_iprefix: |
797 | iprefix = arg; | |
798 | break; | |
799 | ||
4bed3787 | 800 | case OPT_iquote: |
b02398bd | 801 | add_path (xstrdup (arg), QUOTE, 0, true); |
4bed3787 MS |
802 | break; |
803 | ||
5793b276 NB |
804 | case OPT_isysroot: |
805 | sysroot = arg; | |
806 | break; | |
807 | ||
808 | case OPT_isystem: | |
b02398bd | 809 | add_path (xstrdup (arg), SYSTEM, 0, true); |
5793b276 NB |
810 | break; |
811 | ||
812 | case OPT_iwithprefix: | |
813 | add_prefixed_path (arg, SYSTEM); | |
814 | break; | |
815 | ||
816 | case OPT_iwithprefixbefore: | |
817 | add_prefixed_path (arg, BRACKET); | |
818 | break; | |
819 | ||
f749a36b NB |
820 | case OPT_lang_asm: |
821 | cpp_set_lang (parse_in, CLK_ASM); | |
42ad6c9e | 822 | cpp_opts->dollars_in_ident = false; |
f749a36b NB |
823 | break; |
824 | ||
825 | case OPT_lang_objc: | |
826 | cpp_opts->objc = 1; | |
827 | break; | |
828 | ||
4b7091eb | 829 | case OPT_nostdinc: |
5793b276 | 830 | std_inc = false; |
4b7091eb NB |
831 | break; |
832 | ||
fef3106c | 833 | case OPT_nostdinc__: |
5793b276 | 834 | std_cxx_inc = false; |
4b7091eb NB |
835 | break; |
836 | ||
b4a93904 | 837 | case OPT_o: |
76c3e73e NB |
838 | if (!out_fname) |
839 | out_fname = arg; | |
b4a93904 | 840 | else |
f75d3e11 | 841 | error ("output filename specified twice"); |
b4a93904 NB |
842 | break; |
843 | ||
18bdccaa NB |
844 | /* We need to handle the -pedantic switches here, rather than in |
845 | c_common_post_options, so that a subsequent -Wno-endif-labels | |
846 | is not overridden. */ | |
847 | case OPT_pedantic_errors: | |
848 | cpp_opts->pedantic_errors = 1; | |
938d968e | 849 | /* Fall through. */ |
18bdccaa NB |
850 | case OPT_pedantic: |
851 | cpp_opts->pedantic = 1; | |
852 | cpp_opts->warn_endif_labels = 1; | |
853 | break; | |
854 | ||
0b6f2917 NB |
855 | case OPT_print_objc_runtime_info: |
856 | print_struct_values = 1; | |
857 | break; | |
858 | ||
b4a93904 NB |
859 | case OPT_remap: |
860 | cpp_opts->remap = 1; | |
0b6f2917 NB |
861 | break; |
862 | ||
fef3106c NB |
863 | case OPT_std_c__98: |
864 | case OPT_std_gnu__98: | |
865 | set_std_cxx98 (code == OPT_std_c__98 /* ISO */); | |
0b6f2917 NB |
866 | break; |
867 | ||
868 | case OPT_std_c89: | |
869 | case OPT_std_iso9899_1990: | |
b4a93904 NB |
870 | case OPT_std_iso9899_199409: |
871 | set_std_c89 (code == OPT_std_iso9899_199409 /* c94 */, true /* ISO */); | |
f749a36b NB |
872 | break; |
873 | ||
874 | case OPT_std_gnu89: | |
875 | set_std_c89 (false /* c94 */, false /* ISO */); | |
0b6f2917 NB |
876 | break; |
877 | ||
878 | case OPT_std_c99: | |
879 | case OPT_std_c9x: | |
880 | case OPT_std_iso9899_1999: | |
881 | case OPT_std_iso9899_199x: | |
b4a93904 | 882 | set_std_c99 (true /* ISO */); |
0b6f2917 NB |
883 | break; |
884 | ||
0b6f2917 NB |
885 | case OPT_std_gnu99: |
886 | case OPT_std_gnu9x: | |
b4a93904 | 887 | set_std_c99 (false /* ISO */); |
0b6f2917 NB |
888 | break; |
889 | ||
4b7091eb NB |
890 | case OPT_trigraphs: |
891 | cpp_opts->trigraphs = 1; | |
892 | break; | |
893 | ||
894 | case OPT_traditional_cpp: | |
895 | cpp_opts->traditional = 1; | |
896 | break; | |
897 | ||
0b6f2917 NB |
898 | case OPT_undef: |
899 | flag_undef = 1; | |
900 | break; | |
0b6f2917 | 901 | |
4b7091eb NB |
902 | case OPT_w: |
903 | cpp_opts->inhibit_warnings = 1; | |
904 | break; | |
905 | ||
906 | case OPT_v: | |
5793b276 | 907 | verbose = true; |
4b7091eb NB |
908 | break; |
909 | } | |
0b6f2917 | 910 | |
0b6f2917 NB |
911 | return result; |
912 | } | |
913 | ||
914 | /* Post-switch processing. */ | |
915 | bool | |
8e9ea4d7 | 916 | c_common_post_options (const char **pfilename) |
0b6f2917 | 917 | { |
8e9ea4d7 PB |
918 | struct cpp_callbacks *cb; |
919 | ||
460bd0e3 | 920 | /* Canonicalize the input and output filenames. */ |
d1bd0ded GK |
921 | if (in_fnames == NULL) |
922 | { | |
5d038c4c | 923 | in_fnames = XNEWVEC (const char *, 1); |
d1bd0ded GK |
924 | in_fnames[0] = ""; |
925 | } | |
926 | else if (strcmp (in_fnames[0], "-") == 0) | |
927 | in_fnames[0] = ""; | |
460bd0e3 | 928 | |
76c3e73e NB |
929 | if (out_fname == NULL || !strcmp (out_fname, "-")) |
930 | out_fname = ""; | |
931 | ||
cd79e210 | 932 | if (cpp_opts->deps.style == DEPS_NONE) |
76c3e73e NB |
933 | check_deps_environment_vars (); |
934 | ||
f4ff5a69 | 935 | handle_deferred_opts (); |
76c3e73e | 936 | |
f4ff5a69 | 937 | sanitize_cpp_opts (); |
460bd0e3 | 938 | |
5793b276 | 939 | register_include_chains (parse_in, sysroot, iprefix, |
37fa72e9 | 940 | std_inc, std_cxx_inc && c_dialect_cxx (), verbose); |
5793b276 | 941 | |
0b6f2917 NB |
942 | flag_inline_trees = 1; |
943 | ||
6de9cd9a DN |
944 | /* Use tree inlining. */ |
945 | if (!flag_no_inline) | |
946 | flag_no_inline = 1; | |
947 | if (flag_inline_functions) | |
0b6f2917 | 948 | { |
6de9cd9a DN |
949 | flag_inline_trees = 2; |
950 | flag_inline_functions = 0; | |
0b6f2917 NB |
951 | } |
952 | ||
9affb2c7 ZW |
953 | /* If we are given more than one input file, we must use |
954 | unit-at-a-time mode. */ | |
955 | if (num_in_fnames > 1) | |
956 | flag_unit_at_a_time = 1; | |
957 | ||
093c7153 RH |
958 | /* Default to ObjC sjlj exception handling if NeXT runtime. */ |
959 | if (flag_objc_sjlj_exceptions < 0) | |
960 | flag_objc_sjlj_exceptions = flag_next_runtime; | |
961 | if (flag_objc_exceptions && !flag_objc_sjlj_exceptions) | |
962 | flag_exceptions = 1; | |
963 | ||
eaac4679 RS |
964 | /* -Wextra implies -Wsign-compare and -Wmissing-field-initializers, |
965 | but not if explicitly overridden. */ | |
87f85ea0 ZW |
966 | if (warn_sign_compare == -1) |
967 | warn_sign_compare = extra_warnings; | |
eaac4679 RS |
968 | if (warn_missing_field_initializers == -1) |
969 | warn_missing_field_initializers = extra_warnings; | |
87f85ea0 | 970 | |
0b6f2917 NB |
971 | /* Special format checking options don't work without -Wformat; warn if |
972 | they are used. */ | |
973 | if (warn_format_y2k && !warn_format) | |
974 | warning ("-Wformat-y2k ignored without -Wformat"); | |
975 | if (warn_format_extra_args && !warn_format) | |
976 | warning ("-Wformat-extra-args ignored without -Wformat"); | |
977 | if (warn_format_zero_length && !warn_format) | |
978 | warning ("-Wformat-zero-length ignored without -Wformat"); | |
979 | if (warn_format_nonliteral && !warn_format) | |
980 | warning ("-Wformat-nonliteral ignored without -Wformat"); | |
981 | if (warn_format_security && !warn_format) | |
982 | warning ("-Wformat-security ignored without -Wformat"); | |
983 | if (warn_missing_format_attribute && !warn_format) | |
984 | warning ("-Wmissing-format-attribute ignored without -Wformat"); | |
985 | ||
460bd0e3 NB |
986 | if (flag_preprocess_only) |
987 | { | |
63973df3 NB |
988 | /* Open the output now. We must do so even if flag_no_output is |
989 | on, because there may be other output than from the actual | |
990 | preprocessing (e.g. from -dM). */ | |
991 | if (out_fname[0] == '\0') | |
992 | out_stream = stdout; | |
993 | else | |
994 | out_stream = fopen (out_fname, "w"); | |
995 | ||
996 | if (out_stream == NULL) | |
9d10c9a9 | 997 | { |
fa6ef813 | 998 | fatal_error ("opening output file %s: %m", out_fname); |
c366ade5 | 999 | return false; |
9d10c9a9 | 1000 | } |
63973df3 | 1001 | |
d1bd0ded GK |
1002 | if (num_in_fnames > 1) |
1003 | error ("too many filenames given. Type %s --help for usage", | |
1004 | progname); | |
1005 | ||
9d10c9a9 | 1006 | init_pp_output (out_stream); |
460bd0e3 | 1007 | } |
9d10c9a9 NB |
1008 | else |
1009 | { | |
1010 | init_c_lex (); | |
460bd0e3 | 1011 | |
9d10c9a9 | 1012 | /* Yuk. WTF is this? I do know ObjC relies on it somewhere. */ |
3c20847b | 1013 | input_location = UNKNOWN_LOCATION; |
9d10c9a9 | 1014 | } |
63973df3 | 1015 | |
8e9ea4d7 PB |
1016 | cb = cpp_get_callbacks (parse_in); |
1017 | cb->file_change = cb_file_change; | |
1018 | cb->dir_change = cb_dir_change; | |
4169c321 | 1019 | cpp_post_options (parse_in); |
23345bbb | 1020 | |
3c20847b | 1021 | input_location = UNKNOWN_LOCATION; |
4bfec483 NB |
1022 | |
1023 | /* If an error has occurred in cpplib, note it so we fail | |
1024 | immediately. */ | |
1025 | errorcount += cpp_errors (parse_in); | |
1026 | ||
8e9ea4d7 PB |
1027 | *pfilename = this_input_filename |
1028 | = cpp_read_main_file (parse_in, in_fnames[0]); | |
540554f4 | 1029 | /* Don't do any compilation or preprocessing if there is no input file. */ |
8e9ea4d7 | 1030 | if (this_input_filename == NULL) |
540554f4 JW |
1031 | { |
1032 | errorcount++; | |
1033 | return false; | |
1034 | } | |
8e9ea4d7 | 1035 | |
8a4baa83 | 1036 | if (flag_working_directory |
3f75a254 | 1037 | && flag_preprocess_only && !flag_no_line_commands) |
8e9ea4d7 PB |
1038 | pp_dir_change (parse_in, get_src_pwd ()); |
1039 | ||
4bfec483 NB |
1040 | return flag_preprocess_only; |
1041 | } | |
1042 | ||
1043 | /* Front end initialization common to C, ObjC and C++. */ | |
1044 | bool | |
2f6e4e97 | 1045 | c_common_init (void) |
4bfec483 | 1046 | { |
4bfec483 NB |
1047 | /* Set up preprocessor arithmetic. Must be done after call to |
1048 | c_common_nodes_and_builtins for type nodes to be good. */ | |
1049 | cpp_opts->precision = TYPE_PRECISION (intmax_type_node); | |
1050 | cpp_opts->char_precision = TYPE_PRECISION (char_type_node); | |
1051 | cpp_opts->int_precision = TYPE_PRECISION (integer_type_node); | |
1052 | cpp_opts->wchar_precision = TYPE_PRECISION (wchar_type_node); | |
8df83eae | 1053 | cpp_opts->unsigned_wchar = TYPE_UNSIGNED (wchar_type_node); |
e6cc3a24 ZW |
1054 | cpp_opts->bytes_big_endian = BYTES_BIG_ENDIAN; |
1055 | ||
1056 | /* This can't happen until after wchar_precision and bytes_big_endian | |
1057 | are known. */ | |
1058 | cpp_init_iconv (parse_in); | |
460bd0e3 | 1059 | |
9d10c9a9 NB |
1060 | if (flag_preprocess_only) |
1061 | { | |
8e9ea4d7 PB |
1062 | finish_options (); |
1063 | preprocess_file (parse_in); | |
4bfec483 | 1064 | return false; |
9d10c9a9 NB |
1065 | } |
1066 | ||
63973df3 | 1067 | /* Has to wait until now so that cpplib has its hash table. */ |
460bd0e3 NB |
1068 | init_pragma (); |
1069 | ||
4bfec483 | 1070 | return true; |
76c3e73e NB |
1071 | } |
1072 | ||
d1bd0ded GK |
1073 | /* Initialize the integrated preprocessor after debug output has been |
1074 | initialized; loop over each input file. */ | |
23345bbb | 1075 | void |
f75fbaf7 | 1076 | c_common_parse_file (int set_yydebug) |
23345bbb | 1077 | { |
9affb2c7 ZW |
1078 | unsigned int i; |
1079 | ||
1080 | /* Enable parser debugging, if requested and we can. If requested | |
1081 | and we can't, notify the user. */ | |
23345bbb NB |
1082 | #if YYDEBUG != 0 |
1083 | yydebug = set_yydebug; | |
1084 | #else | |
f75fbaf7 | 1085 | if (set_yydebug) |
9affb2c7 | 1086 | warning ("YYDEBUG was not defined at build time, -dy ignored"); |
23345bbb NB |
1087 | #endif |
1088 | ||
9affb2c7 ZW |
1089 | i = 0; |
1090 | for (;;) | |
1091 | { | |
1092 | finish_options (); | |
1093 | pch_init (); | |
1094 | push_file_scope (); | |
1095 | c_parse_file (); | |
1096 | finish_file (); | |
1097 | pop_file_scope (); | |
1098 | ||
1099 | if (++i >= num_in_fnames) | |
1100 | break; | |
1101 | cpp_undef_all (parse_in); | |
1102 | this_input_filename | |
1103 | = cpp_read_main_file (parse_in, in_fnames[i]); | |
1104 | /* If an input file is missing, abandon further compilation. | |
1105 | cpplib has issued a diagnostic. */ | |
1106 | if (!this_input_filename) | |
1107 | break; | |
1108 | } | |
23345bbb NB |
1109 | } |
1110 | ||
76c3e73e NB |
1111 | /* Common finish hook for the C, ObjC and C++ front ends. */ |
1112 | void | |
2f6e4e97 | 1113 | c_common_finish (void) |
76c3e73e NB |
1114 | { |
1115 | FILE *deps_stream = NULL; | |
1116 | ||
f4ff5a69 | 1117 | if (cpp_opts->deps.style != DEPS_NONE) |
76c3e73e NB |
1118 | { |
1119 | /* If -M or -MM was seen without -MF, default output to the | |
1120 | output stream. */ | |
f4ff5a69 | 1121 | if (!deps_file) |
76c3e73e NB |
1122 | deps_stream = out_stream; |
1123 | else | |
1124 | { | |
f4ff5a69 | 1125 | deps_stream = fopen (deps_file, deps_append ? "a": "w"); |
76c3e73e | 1126 | if (!deps_stream) |
fa6ef813 | 1127 | fatal_error ("opening dependency file %s: %m", deps_file); |
76c3e73e NB |
1128 | } |
1129 | } | |
1130 | ||
1131 | /* For performance, avoid tearing down cpplib's internal structures | |
1132 | with cpp_destroy (). */ | |
1133 | errorcount += cpp_finish (parse_in, deps_stream); | |
1134 | ||
1135 | if (deps_stream && deps_stream != out_stream | |
1136 | && (ferror (deps_stream) || fclose (deps_stream))) | |
fa6ef813 | 1137 | fatal_error ("closing dependency file %s: %m", deps_file); |
76c3e73e NB |
1138 | |
1139 | if (out_stream && (ferror (out_stream) || fclose (out_stream))) | |
fa6ef813 | 1140 | fatal_error ("when writing output to %s: %m", out_fname); |
76c3e73e NB |
1141 | } |
1142 | ||
76c3e73e NB |
1143 | /* Either of two environment variables can specify output of |
1144 | dependencies. Their value is either "OUTPUT_FILE" or "OUTPUT_FILE | |
1145 | DEPS_TARGET", where OUTPUT_FILE is the file to write deps info to | |
1146 | and DEPS_TARGET is the target to mention in the deps. They also | |
1147 | result in dependency information being appended to the output file | |
182d89a3 NB |
1148 | rather than overwriting it, and like Sun's compiler |
1149 | SUNPRO_DEPENDENCIES suppresses the dependency on the main file. */ | |
76c3e73e | 1150 | static void |
2f6e4e97 | 1151 | check_deps_environment_vars (void) |
76c3e73e NB |
1152 | { |
1153 | char *spec; | |
1154 | ||
1155 | GET_ENVIRONMENT (spec, "DEPENDENCIES_OUTPUT"); | |
1156 | if (spec) | |
f4ff5a69 | 1157 | cpp_opts->deps.style = DEPS_USER; |
76c3e73e NB |
1158 | else |
1159 | { | |
1160 | GET_ENVIRONMENT (spec, "SUNPRO_DEPENDENCIES"); | |
1161 | if (spec) | |
182d89a3 NB |
1162 | { |
1163 | cpp_opts->deps.style = DEPS_SYSTEM; | |
1164 | cpp_opts->deps.ignore_main_file = true; | |
1165 | } | |
76c3e73e NB |
1166 | } |
1167 | ||
1168 | if (spec) | |
1169 | { | |
1170 | /* Find the space before the DEPS_TARGET, if there is one. */ | |
1171 | char *s = strchr (spec, ' '); | |
1172 | if (s) | |
1173 | { | |
1174 | /* Let the caller perform MAKE quoting. */ | |
f4ff5a69 | 1175 | defer_opt (OPT_MT, s + 1); |
76c3e73e NB |
1176 | *s = '\0'; |
1177 | } | |
1178 | ||
1179 | /* Command line -MF overrides environment variables and default. */ | |
f4ff5a69 NB |
1180 | if (!deps_file) |
1181 | deps_file = spec; | |
76c3e73e | 1182 | |
f4ff5a69 NB |
1183 | deps_append = 1; |
1184 | } | |
1185 | } | |
1186 | ||
1187 | /* Handle deferred command line switches. */ | |
1188 | static void | |
2f6e4e97 | 1189 | handle_deferred_opts (void) |
f4ff5a69 NB |
1190 | { |
1191 | size_t i; | |
c6e83800 ZW |
1192 | struct deps *deps; |
1193 | ||
1194 | /* Avoid allocating the deps buffer if we don't need it. | |
1195 | (This flag may be true without there having been -MT or -MQ | |
1196 | options, but we'll still need the deps buffer.) */ | |
1197 | if (!deps_seen) | |
1198 | return; | |
1199 | ||
1200 | deps = cpp_get_deps (parse_in); | |
f4ff5a69 NB |
1201 | |
1202 | for (i = 0; i < deferred_count; i++) | |
1203 | { | |
1204 | struct deferred_opt *opt = &deferred_opts[i]; | |
1205 | ||
c1bad961 | 1206 | if (opt->code == OPT_MT || opt->code == OPT_MQ) |
c6e83800 | 1207 | deps_add_target (deps, opt->arg, opt->code == OPT_MQ); |
f4ff5a69 | 1208 | } |
f4ff5a69 NB |
1209 | } |
1210 | ||
1211 | /* These settings are appropriate for GCC, but not necessarily so for | |
1212 | cpplib as a library. */ | |
1213 | static void | |
2f6e4e97 | 1214 | sanitize_cpp_opts (void) |
f4ff5a69 NB |
1215 | { |
1216 | /* If we don't know what style of dependencies to output, complain | |
1217 | if any other dependency switches have been given. */ | |
1218 | if (deps_seen && cpp_opts->deps.style == DEPS_NONE) | |
1219 | error ("to generate dependencies you must specify either -M or -MM"); | |
1220 | ||
1221 | /* -dM and dependencies suppress normal output; do it here so that | |
1222 | the last -d[MDN] switch overrides earlier ones. */ | |
63973df3 NB |
1223 | if (flag_dump_macros == 'M') |
1224 | flag_no_output = 1; | |
f4ff5a69 NB |
1225 | |
1226 | /* Disable -dD, -dN and -dI if normal output is suppressed. Allow | |
1227 | -dM since at least glibc relies on -M -dM to work. */ | |
63973df3 | 1228 | if (flag_no_output) |
f4ff5a69 | 1229 | { |
63973df3 NB |
1230 | if (flag_dump_macros != 'M') |
1231 | flag_dump_macros = 0; | |
1232 | flag_dump_includes = 0; | |
76c3e73e | 1233 | } |
f4ff5a69 NB |
1234 | |
1235 | cpp_opts->unsigned_char = !flag_signed_char; | |
1236 | cpp_opts->stdc_0_in_system_headers = STDC_0_IN_SYSTEM_HEADERS; | |
1237 | ||
1238 | /* We want -Wno-long-long to override -pedantic -std=non-c99 | |
1239 | and/or -Wtraditional, whatever the ordering. */ | |
1240 | cpp_opts->warn_long_long | |
1241 | = warn_long_long && ((!flag_isoc99 && pedantic) || warn_traditional); | |
b20d9f0c | 1242 | |
e5b79219 RH |
1243 | /* Similarly with -Wno-variadic-macros. No check for c99 here, since |
1244 | this also turns off warnings about GCCs extension. */ | |
1245 | cpp_opts->warn_variadic_macros | |
1246 | = warn_variadic_macros && (pedantic || warn_traditional); | |
1247 | ||
b20d9f0c AO |
1248 | /* If we're generating preprocessor output, emit current directory |
1249 | if explicitly requested or if debugging information is enabled. | |
1250 | ??? Maybe we should only do it for debugging formats that | |
1251 | actually output the current directory? */ | |
1252 | if (flag_working_directory == -1) | |
1253 | flag_working_directory = (debug_info_level != DINFO_LEVEL_NONE); | |
f4ff5a69 NB |
1254 | } |
1255 | ||
5793b276 NB |
1256 | /* Add include path with a prefix at the front of its name. */ |
1257 | static void | |
2f6e4e97 | 1258 | add_prefixed_path (const char *suffix, size_t chain) |
5793b276 | 1259 | { |
52999738 | 1260 | char *path; |
5793b276 | 1261 | const char *prefix; |
52999738 | 1262 | size_t prefix_len, suffix_len; |
5793b276 | 1263 | |
52999738 ZW |
1264 | suffix_len = strlen (suffix); |
1265 | prefix = iprefix ? iprefix : cpp_GCC_INCLUDE_DIR; | |
1266 | prefix_len = iprefix ? strlen (iprefix) : cpp_GCC_INCLUDE_DIR_len; | |
1267 | ||
5d038c4c | 1268 | path = (char *) xmalloc (prefix_len + suffix_len + 1); |
52999738 ZW |
1269 | memcpy (path, prefix, prefix_len); |
1270 | memcpy (path + prefix_len, suffix, suffix_len); | |
1271 | path[prefix_len + suffix_len] = '\0'; | |
1272 | ||
b02398bd | 1273 | add_path (path, chain, 0, false); |
5793b276 NB |
1274 | } |
1275 | ||
8e9ea4d7 PB |
1276 | /* Handle -D, -U, -A, -imacros, and the first -include. */ |
1277 | static void | |
1278 | finish_options (void) | |
255c10b1 | 1279 | { |
255c10b1 NB |
1280 | if (!cpp_opts->preprocessed) |
1281 | { | |
c1bad961 NB |
1282 | size_t i; |
1283 | ||
8e9ea4d7 | 1284 | cpp_change_file (parse_in, LC_RENAME, _("<built-in>")); |
6e270179 | 1285 | cpp_init_builtins (parse_in, flag_hosted); |
c1bad961 | 1286 | c_cpp_builtins (parse_in); |
78b8811a HPN |
1287 | |
1288 | /* We're about to send user input to cpplib, so make it warn for | |
1289 | things that we previously (when we sent it internal definitions) | |
1290 | told it to not warn. | |
1291 | ||
1292 | C99 permits implementation-defined characters in identifiers. | |
1293 | The documented meaning of -std= is to turn off extensions that | |
1294 | conflict with the specified standard, and since a strictly | |
1295 | conforming program cannot contain a '$', we do not condition | |
1296 | their acceptance on the -std= setting. */ | |
1297 | cpp_opts->warn_dollars = (cpp_opts->pedantic && !cpp_opts->c99); | |
1298 | ||
b4e46cea | 1299 | cpp_change_file (parse_in, LC_RENAME, _("<command line>")); |
c1bad961 NB |
1300 | for (i = 0; i < deferred_count; i++) |
1301 | { | |
1302 | struct deferred_opt *opt = &deferred_opts[i]; | |
1303 | ||
1304 | if (opt->code == OPT_D) | |
1305 | cpp_define (parse_in, opt->arg); | |
1306 | else if (opt->code == OPT_U) | |
1307 | cpp_undef (parse_in, opt->arg); | |
1308 | else if (opt->code == OPT_A) | |
1309 | { | |
1310 | if (opt->arg[0] == '-') | |
1311 | cpp_unassert (parse_in, opt->arg + 1); | |
1312 | else | |
1313 | cpp_assert (parse_in, opt->arg); | |
1314 | } | |
1315 | } | |
255c10b1 | 1316 | |
c1bad961 | 1317 | /* Handle -imacros after -D and -U. */ |
255c10b1 NB |
1318 | for (i = 0; i < deferred_count; i++) |
1319 | { | |
1320 | struct deferred_opt *opt = &deferred_opts[i]; | |
1321 | ||
1322 | if (opt->code == OPT_imacros | |
1323 | && cpp_push_include (parse_in, opt->arg)) | |
9b49a0aa | 1324 | { |
6614fd40 | 1325 | /* Disable push_command_line_include callback for now. */ |
9b49a0aa PB |
1326 | include_cursor = deferred_count + 1; |
1327 | cpp_scan_nooutput (parse_in); | |
1328 | } | |
255c10b1 NB |
1329 | } |
1330 | } | |
1331 | ||
e6ebd07b | 1332 | include_cursor = 0; |
255c10b1 NB |
1333 | push_command_line_include (); |
1334 | } | |
1335 | ||
23345bbb NB |
1336 | /* Give CPP the next file given by -include, if any. */ |
1337 | static void | |
2f6e4e97 | 1338 | push_command_line_include (void) |
23345bbb | 1339 | { |
23345bbb NB |
1340 | while (include_cursor < deferred_count) |
1341 | { | |
1342 | struct deferred_opt *opt = &deferred_opts[include_cursor++]; | |
2f6e4e97 | 1343 | |
3f75a254 | 1344 | if (!cpp_opts->preprocessed && opt->code == OPT_include |
31703a61 | 1345 | && cpp_push_include (parse_in, opt->arg)) |
23345bbb NB |
1346 | return; |
1347 | } | |
1348 | ||
1349 | if (include_cursor == deferred_count) | |
1350 | { | |
31703a61 | 1351 | include_cursor++; |
23345bbb NB |
1352 | /* -Wunused-macros should only warn about macros defined hereafter. */ |
1353 | cpp_opts->warn_unused_macros = warn_unused_macros; | |
8e9ea4d7 | 1354 | /* Restore the line map from <command line>. */ |
3f75a254 | 1355 | if (!cpp_opts->preprocessed) |
3e6da82b | 1356 | cpp_change_file (parse_in, LC_RENAME, this_input_filename); |
8e9ea4d7 PB |
1357 | |
1358 | /* Set this here so the client can change the option if it wishes, | |
1359 | and after stacking the main file so we don't trace the main file. */ | |
1360 | line_table.trace_includes = cpp_opts->print_include_names; | |
23345bbb NB |
1361 | } |
1362 | } | |
1363 | ||
1364 | /* File change callback. Has to handle -include files. */ | |
1365 | static void | |
e18476eb | 1366 | cb_file_change (cpp_reader * ARG_UNUSED (pfile), |
2f6e4e97 | 1367 | const struct line_map *new_map) |
23345bbb NB |
1368 | { |
1369 | if (flag_preprocess_only) | |
1370 | pp_file_change (new_map); | |
1371 | else | |
1372 | fe_file_change (new_map); | |
1373 | ||
31703a61 | 1374 | if (new_map == 0 || (new_map->reason == LC_LEAVE && MAIN_FILE_P (new_map))) |
23345bbb NB |
1375 | push_command_line_include (); |
1376 | } | |
1377 | ||
8e9ea4d7 | 1378 | void |
e18476eb | 1379 | cb_dir_change (cpp_reader * ARG_UNUSED (pfile), const char *dir) |
8e9ea4d7 | 1380 | { |
3f75a254 | 1381 | if (!set_src_pwd (dir)) |
8e9ea4d7 PB |
1382 | warning ("too late for # directive to set debug directory"); |
1383 | } | |
1384 | ||
f4ff5a69 NB |
1385 | /* Set the C 89 standard (with 1994 amendments if C94, without GNU |
1386 | extensions if ISO). There is no concept of gnu94. */ | |
1387 | static void | |
2f6e4e97 | 1388 | set_std_c89 (int c94, int iso) |
f4ff5a69 NB |
1389 | { |
1390 | cpp_set_lang (parse_in, c94 ? CLK_STDC94: iso ? CLK_STDC89: CLK_GNUC89); | |
1391 | flag_iso = iso; | |
1392 | flag_no_asm = iso; | |
1393 | flag_no_gnu_keywords = iso; | |
1394 | flag_no_nonansi_builtin = iso; | |
f4ff5a69 NB |
1395 | flag_isoc94 = c94; |
1396 | flag_isoc99 = 0; | |
76c3e73e NB |
1397 | } |
1398 | ||
b4a93904 NB |
1399 | /* Set the C 99 standard (without GNU extensions if ISO). */ |
1400 | static void | |
2f6e4e97 | 1401 | set_std_c99 (int iso) |
b4a93904 NB |
1402 | { |
1403 | cpp_set_lang (parse_in, iso ? CLK_STDC99: CLK_GNUC99); | |
1404 | flag_no_asm = iso; | |
1405 | flag_no_nonansi_builtin = iso; | |
b4a93904 NB |
1406 | flag_iso = iso; |
1407 | flag_isoc99 = 1; | |
1408 | flag_isoc94 = 1; | |
b4a93904 NB |
1409 | } |
1410 | ||
f749a36b NB |
1411 | /* Set the C++ 98 standard (without GNU extensions if ISO). */ |
1412 | static void | |
2f6e4e97 | 1413 | set_std_cxx98 (int iso) |
f749a36b NB |
1414 | { |
1415 | cpp_set_lang (parse_in, iso ? CLK_CXX98: CLK_GNUCXX); | |
1416 | flag_no_gnu_keywords = iso; | |
1417 | flag_no_nonansi_builtin = iso; | |
f749a36b NB |
1418 | flag_iso = iso; |
1419 | } | |
1420 | ||
0b6f2917 NB |
1421 | /* Handle setting implicit to ON. */ |
1422 | static void | |
2f6e4e97 | 1423 | set_Wimplicit (int on) |
0b6f2917 NB |
1424 | { |
1425 | warn_implicit = on; | |
1426 | warn_implicit_int = on; | |
1427 | if (on) | |
1428 | { | |
1429 | if (mesg_implicit_function_declaration != 2) | |
1430 | mesg_implicit_function_declaration = 1; | |
1431 | } | |
1432 | else | |
1433 | mesg_implicit_function_declaration = 0; | |
1434 | } | |
1435 | ||
4b7091eb | 1436 | /* Args to -d specify what to dump. Silently ignore |
05713b80 | 1437 | unrecognized options; they may be aimed at toplev.c. */ |
0b6f2917 | 1438 | static void |
2f6e4e97 | 1439 | handle_OPT_d (const char *arg) |
0b6f2917 | 1440 | { |
4b7091eb NB |
1441 | char c; |
1442 | ||
1443 | while ((c = *arg++) != '\0') | |
1444 | switch (c) | |
1445 | { | |
63973df3 NB |
1446 | case 'M': /* Dump macros only. */ |
1447 | case 'N': /* Dump names. */ | |
1448 | case 'D': /* Dump definitions. */ | |
1449 | flag_dump_macros = c; | |
4b7091eb NB |
1450 | break; |
1451 | ||
1452 | case 'I': | |
63973df3 | 1453 | flag_dump_includes = 1; |
4b7091eb NB |
1454 | break; |
1455 | } | |
0b6f2917 | 1456 | } |