1 /* Command line option handling.
2 Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
3 Free Software Foundation, Inc.
4 Contributed by Neil Booth.
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
25 #include "coretypes.h"
26 #include "tm.h" /* Needed by rtl.h and used for STACK_CHECK_BUILTIN,
27 STACK_CHECK_STATIC_BUILTIN, DEFAULT_GDB_EXTENSIONS,
28 DWARF2_DEBUGGING_INFO and DBX_DEBUGGING_INFO. */
29 #include "rtl.h" /* Needed by insn-attr.h. */
34 #include "diagnostic.h"
35 #include "opts-diagnostic.h"
36 #include "insn-attr.h" /* For INSN_SCHEDULING and DELAY_SLOTS. */
39 /* Defined in coverage.c. */
40 extern int check_pmu_profile_options (const char *options
);
42 /* Parse the -femit-struct-debug-detailed option value
43 and set the flag variables. */
45 #define MATCH( prefix, string ) \
46 ((strncmp (prefix, string, sizeof prefix - 1) == 0) \
47 ? ((string += sizeof prefix - 1), 1) : 0)
50 set_struct_debug_option (struct gcc_options
*opts
, location_t loc
,
53 /* various labels for comparison */
54 static const char dfn_lbl
[] = "dfn:", dir_lbl
[] = "dir:", ind_lbl
[] = "ind:";
55 static const char ord_lbl
[] = "ord:", gen_lbl
[] = "gen:";
56 static const char none_lbl
[] = "none", any_lbl
[] = "any";
57 static const char base_lbl
[] = "base", sys_lbl
[] = "sys";
59 enum debug_struct_file files
= DINFO_STRUCT_FILE_ANY
;
60 /* Default is to apply to as much as possible. */
61 enum debug_info_usage usage
= DINFO_USAGE_NUM_ENUMS
;
65 if (MATCH (dfn_lbl
, spec
))
66 usage
= DINFO_USAGE_DFN
;
67 else if (MATCH (dir_lbl
, spec
))
68 usage
= DINFO_USAGE_DIR_USE
;
69 else if (MATCH (ind_lbl
, spec
))
70 usage
= DINFO_USAGE_IND_USE
;
72 /* Generics or not? */
73 if (MATCH (ord_lbl
, spec
))
75 else if (MATCH (gen_lbl
, spec
))
78 /* What allowable environment? */
79 if (MATCH (none_lbl
, spec
))
80 files
= DINFO_STRUCT_FILE_NONE
;
81 else if (MATCH (any_lbl
, spec
))
82 files
= DINFO_STRUCT_FILE_ANY
;
83 else if (MATCH (sys_lbl
, spec
))
84 files
= DINFO_STRUCT_FILE_SYS
;
85 else if (MATCH (base_lbl
, spec
))
86 files
= DINFO_STRUCT_FILE_BASE
;
89 "argument %qs to %<-femit-struct-debug-detailed%> "
93 /* Effect the specification. */
94 if (usage
== DINFO_USAGE_NUM_ENUMS
)
98 opts
->x_debug_struct_ordinary
[DINFO_USAGE_DFN
] = files
;
99 opts
->x_debug_struct_ordinary
[DINFO_USAGE_DIR_USE
] = files
;
100 opts
->x_debug_struct_ordinary
[DINFO_USAGE_IND_USE
] = files
;
104 opts
->x_debug_struct_generic
[DINFO_USAGE_DFN
] = files
;
105 opts
->x_debug_struct_generic
[DINFO_USAGE_DIR_USE
] = files
;
106 opts
->x_debug_struct_generic
[DINFO_USAGE_IND_USE
] = files
;
112 opts
->x_debug_struct_ordinary
[usage
] = files
;
114 opts
->x_debug_struct_generic
[usage
] = files
;
118 set_struct_debug_option (opts
, loc
, spec
+1);
121 /* No more -femit-struct-debug-detailed specifications.
125 "argument %qs to %<-femit-struct-debug-detailed%> unknown",
127 if (opts
->x_debug_struct_ordinary
[DINFO_USAGE_DIR_USE
]
128 < opts
->x_debug_struct_ordinary
[DINFO_USAGE_IND_USE
]
129 || opts
->x_debug_struct_generic
[DINFO_USAGE_DIR_USE
]
130 < opts
->x_debug_struct_generic
[DINFO_USAGE_IND_USE
])
132 "%<-femit-struct-debug-detailed=dir:...%> must allow "
133 "at least as much as "
134 "%<-femit-struct-debug-detailed=ind:...%>");
138 /* Handle -ftree-vectorizer-verbose=VAL for options OPTS. */
141 vect_set_verbosity_level (struct gcc_options
*opts
, int val
)
143 if (val
< MAX_VERBOSITY_LEVEL
)
144 opts
->x_user_vect_verbosity_level
= (enum vect_verbosity_levels
) val
;
146 opts
->x_user_vect_verbosity_level
147 = (enum vect_verbosity_levels
) (MAX_VERBOSITY_LEVEL
- 1);
151 /* Strip off a legitimate source ending from the input string NAME of
152 length LEN. Rather than having to know the names used by all of
153 our front ends, we strip off an ending of a period followed by
154 up to five characters. (Java uses ".class".) */
157 strip_off_ending (char *name
, int len
)
160 for (i
= 2; i
< 6 && len
> i
; i
++)
162 if (name
[len
- i
] == '.')
164 name
[len
- i
] = '\0';
170 /* Find the base name of a path, stripping off both directories and
171 a single final extension. */
173 base_of_path (const char *path
, const char **base_out
)
175 const char *base
= path
;
177 const char *p
= path
;
181 if (IS_DIR_SEPARATOR(c
))
196 /* What to print when a switch has no documentation. */
197 static const char undocumented_msg
[] = N_("This switch lacks documentation");
199 typedef char *char_p
; /* For DEF_VEC_P. */
201 DEF_VEC_ALLOC_P(char_p
,heap
);
203 static void handle_param (struct gcc_options
*opts
,
204 struct gcc_options
*opts_set
, location_t loc
,
206 static void set_debug_level (enum debug_info_type type
, int extended
,
207 const char *arg
, struct gcc_options
*opts
,
208 struct gcc_options
*opts_set
,
210 static void set_fast_math_flags (struct gcc_options
*opts
, int set
);
211 static void decode_d_option (const char *arg
, struct gcc_options
*opts
,
212 location_t loc
, diagnostic_context
*dc
);
213 static void set_unsafe_math_optimizations_flags (struct gcc_options
*opts
,
215 static void enable_warning_as_error (const char *arg
, int value
,
216 unsigned int lang_mask
,
217 const struct cl_option_handlers
*handlers
,
218 struct gcc_options
*opts
,
219 struct gcc_options
*opts_set
,
221 diagnostic_context
*dc
);
223 /* Handle a back-end option; arguments and return value as for
227 target_handle_option (struct gcc_options
*opts
,
228 struct gcc_options
*opts_set
,
229 const struct cl_decoded_option
*decoded
,
230 unsigned int lang_mask ATTRIBUTE_UNUSED
, int kind
,
231 location_t loc ATTRIBUTE_UNUSED
,
232 const struct cl_option_handlers
*handlers ATTRIBUTE_UNUSED
,
233 diagnostic_context
*dc
)
235 gcc_assert (opts
== &global_options
);
236 gcc_assert (opts_set
== &global_options_set
);
237 gcc_assert (dc
== global_dc
);
238 gcc_assert (decoded
->canonical_option_num_elements
<= 2);
239 gcc_assert (kind
== DK_UNSPECIFIED
);
240 /* Although the location is not passed down to
241 targetm.handle_option, do not make assertions about its value;
242 options may come from optimize attributes and having the correct
243 location in the handler is not generally important. */
244 return targetm
.handle_option (decoded
->opt_index
, decoded
->arg
,
248 /* Add comma-separated strings to a char_p vector. */
251 add_comma_separated_to_vector (void **pvec
, const char *arg
)
257 VEC(char_p
,heap
) *vec
= (VEC(char_p
,heap
) *) *pvec
;
259 /* We never free this string. */
272 VEC_safe_push (char_p
, heap
, vec
, token_start
);
275 if (*r
== '\\' && r
[1] == ',')
283 if (*token_start
!= '\0')
284 VEC_safe_push (char_p
, heap
, vec
, token_start
);
289 /* Initialize OPTS and OPTS_SET before using them in parsing options. */
292 init_options_struct (struct gcc_options
*opts
, struct gcc_options
*opts_set
)
294 size_t num_params
= get_num_compiler_params ();
296 *opts
= global_options_init
;
297 memset (opts_set
, 0, sizeof (*opts_set
));
299 opts
->x_param_values
= XNEWVEC (int, num_params
);
300 opts_set
->x_param_values
= XCNEWVEC (int, num_params
);
301 init_param_values (opts
->x_param_values
);
303 /* Use priority coloring if cover classes is not defined for the
305 if (targetm
.ira_cover_classes
== NULL
)
306 opts
->x_flag_ira_algorithm
= IRA_ALGORITHM_PRIORITY
;
308 /* Initialize whether `char' is signed. */
309 opts
->x_flag_signed_char
= DEFAULT_SIGNED_CHAR
;
310 /* Set this to a special "uninitialized" value. The actual default
311 is set after target options have been processed. */
312 opts
->x_flag_short_enums
= 2;
314 /* Initialize target_flags before targetm.target_option.optimization
315 so the latter can modify it. */
316 opts
->x_target_flags
= targetm
.default_target_flags
;
318 /* Some targets have ABI-specified unwind tables. */
319 opts
->x_flag_unwind_tables
= targetm
.unwind_tables_default
;
321 /* Some targets have other target-specific initialization. */
322 targetm
.target_option
.init_struct (opts
);
325 /* If indicated by the optimization level LEVEL (-Os if SIZE is set,
326 -Ofast if FAST is set), apply the option DEFAULT_OPT to OPTS and
327 OPTS_SET, diagnostic context DC, location LOC, with language mask
328 LANG_MASK and option handlers HANDLERS. */
331 maybe_default_option (struct gcc_options
*opts
,
332 struct gcc_options
*opts_set
,
333 const struct default_options
*default_opt
,
334 int level
, bool size
, bool fast
,
335 unsigned int lang_mask
,
336 const struct cl_option_handlers
*handlers
,
338 diagnostic_context
*dc
)
340 const struct cl_option
*option
= &cl_options
[default_opt
->opt_index
];
344 gcc_assert (level
== 2);
346 gcc_assert (level
== 3);
348 switch (default_opt
->levels
)
354 case OPT_LEVELS_0_ONLY
:
355 enabled
= (level
== 0);
358 case OPT_LEVELS_1_PLUS
:
359 enabled
= (level
>= 1);
362 case OPT_LEVELS_1_PLUS_SPEED_ONLY
:
363 enabled
= (level
>= 1 && !size
);
366 case OPT_LEVELS_2_PLUS
:
367 enabled
= (level
>= 2);
370 case OPT_LEVELS_2_PLUS_SPEED_ONLY
:
371 enabled
= (level
>= 2 && !size
);
374 case OPT_LEVELS_3_PLUS
:
375 enabled
= (level
>= 3);
378 case OPT_LEVELS_3_PLUS_AND_SIZE
:
379 enabled
= (level
>= 3 || size
);
382 case OPT_LEVELS_SIZE
:
386 case OPT_LEVELS_FAST
:
390 case OPT_LEVELS_NONE
:
396 handle_generated_option (opts
, opts_set
, default_opt
->opt_index
,
397 default_opt
->arg
, default_opt
->value
,
398 lang_mask
, DK_UNSPECIFIED
, loc
,
400 else if (default_opt
->arg
== NULL
401 && !(option
->flags
& CL_REJECT_NEGATIVE
))
402 handle_generated_option (opts
, opts_set
, default_opt
->opt_index
,
403 default_opt
->arg
, !default_opt
->value
,
404 lang_mask
, DK_UNSPECIFIED
, loc
,
408 /* As indicated by the optimization level LEVEL (-Os if SIZE is set,
409 -Ofast if FAST is set), apply the options in array DEFAULT_OPTS to
410 OPTS and OPTS_SET, diagnostic context DC, location LOC, with
411 language mask LANG_MASK and option handlers HANDLERS. */
414 maybe_default_options (struct gcc_options
*opts
,
415 struct gcc_options
*opts_set
,
416 const struct default_options
*default_opts
,
417 int level
, bool size
, bool fast
,
418 unsigned int lang_mask
,
419 const struct cl_option_handlers
*handlers
,
421 diagnostic_context
*dc
)
425 for (i
= 0; default_opts
[i
].levels
!= OPT_LEVELS_NONE
; i
++)
426 maybe_default_option (opts
, opts_set
, &default_opts
[i
],
427 level
, size
, fast
, lang_mask
, handlers
, loc
, dc
);
430 /* Table of options enabled by default at different levels. */
432 static const struct default_options default_options_table
[] =
434 /* -O1 optimizations. */
435 { OPT_LEVELS_1_PLUS
, OPT_fdefer_pop
, NULL
, 1 },
437 { OPT_LEVELS_1_PLUS
, OPT_fdelayed_branch
, NULL
, 1 },
439 { OPT_LEVELS_1_PLUS
, OPT_fguess_branch_probability
, NULL
, 1 },
440 { OPT_LEVELS_1_PLUS
, OPT_fcprop_registers
, NULL
, 1 },
441 { OPT_LEVELS_1_PLUS
, OPT_fforward_propagate
, NULL
, 1 },
442 { OPT_LEVELS_1_PLUS
, OPT_fif_conversion
, NULL
, 1 },
443 { OPT_LEVELS_1_PLUS
, OPT_fif_conversion2
, NULL
, 1 },
444 { OPT_LEVELS_1_PLUS
, OPT_fipa_pure_const
, NULL
, 1 },
445 { OPT_LEVELS_1_PLUS
, OPT_fipa_reference
, NULL
, 1 },
446 { OPT_LEVELS_1_PLUS
, OPT_fipa_profile
, NULL
, 1 },
447 { OPT_LEVELS_1_PLUS
, OPT_fmerge_constants
, NULL
, 1 },
448 { OPT_LEVELS_1_PLUS
, OPT_fsplit_wide_types
, NULL
, 1 },
449 { OPT_LEVELS_1_PLUS
, OPT_ftree_ccp
, NULL
, 1 },
450 { OPT_LEVELS_1_PLUS
, OPT_ftree_bit_ccp
, NULL
, 1 },
451 { OPT_LEVELS_1_PLUS
, OPT_ftree_dce
, NULL
, 1 },
452 { OPT_LEVELS_1_PLUS
, OPT_ftree_dominator_opts
, NULL
, 1 },
453 { OPT_LEVELS_1_PLUS
, OPT_ftree_dse
, NULL
, 1 },
454 { OPT_LEVELS_1_PLUS
, OPT_ftree_ter
, NULL
, 1 },
455 { OPT_LEVELS_1_PLUS
, OPT_ftree_sra
, NULL
, 1 },
456 { OPT_LEVELS_1_PLUS
, OPT_ftree_copyrename
, NULL
, 1 },
457 { OPT_LEVELS_1_PLUS
, OPT_ftree_fre
, NULL
, 1 },
458 { OPT_LEVELS_1_PLUS
, OPT_ftree_copy_prop
, NULL
, 1 },
459 { OPT_LEVELS_1_PLUS
, OPT_ftree_sink
, NULL
, 1 },
460 { OPT_LEVELS_1_PLUS
, OPT_ftree_ch
, NULL
, 1 },
461 { OPT_LEVELS_1_PLUS
, OPT_fcombine_stack_adjustments
, NULL
, 1 },
462 { OPT_LEVELS_1_PLUS
, OPT_fcompare_elim
, NULL
, 1 },
464 /* -O2 optimizations. */
465 { OPT_LEVELS_2_PLUS
, OPT_finline_small_functions
, NULL
, 1 },
466 { OPT_LEVELS_2_PLUS
, OPT_findirect_inlining
, NULL
, 1 },
467 { OPT_LEVELS_2_PLUS
, OPT_fpartial_inlining
, NULL
, 1 },
468 { OPT_LEVELS_2_PLUS
, OPT_fthread_jumps
, NULL
, 1 },
469 { OPT_LEVELS_2_PLUS
, OPT_fcrossjumping
, NULL
, 1 },
470 { OPT_LEVELS_2_PLUS
, OPT_foptimize_sibling_calls
, NULL
, 1 },
471 { OPT_LEVELS_2_PLUS
, OPT_fcse_follow_jumps
, NULL
, 1 },
472 { OPT_LEVELS_2_PLUS
, OPT_fgcse
, NULL
, 1 },
473 { OPT_LEVELS_2_PLUS
, OPT_fexpensive_optimizations
, NULL
, 1 },
474 { OPT_LEVELS_2_PLUS
, OPT_frerun_cse_after_loop
, NULL
, 1 },
475 { OPT_LEVELS_2_PLUS
, OPT_fcaller_saves
, NULL
, 1 },
476 { OPT_LEVELS_2_PLUS
, OPT_fpeephole2
, NULL
, 1 },
477 #ifdef INSN_SCHEDULING
478 /* Only run the pre-regalloc scheduling pass if optimizing for speed. */
479 { OPT_LEVELS_2_PLUS_SPEED_ONLY
, OPT_fschedule_insns
, NULL
, 1 },
480 { OPT_LEVELS_2_PLUS
, OPT_fschedule_insns2
, NULL
, 1 },
482 { OPT_LEVELS_2_PLUS
, OPT_fregmove
, NULL
, 1 },
483 { OPT_LEVELS_2_PLUS
, OPT_fstrict_aliasing
, NULL
, 1 },
484 { OPT_LEVELS_2_PLUS
, OPT_fstrict_overflow
, NULL
, 1 },
485 { OPT_LEVELS_2_PLUS
, OPT_freorder_blocks
, NULL
, 1 },
486 { OPT_LEVELS_2_PLUS
, OPT_freorder_functions
, NULL
, 1 },
487 { OPT_LEVELS_2_PLUS
, OPT_ftree_vrp
, NULL
, 1 },
488 { OPT_LEVELS_2_PLUS
, OPT_ftree_builtin_call_dce
, NULL
, 1 },
489 { OPT_LEVELS_2_PLUS
, OPT_ftree_pre
, NULL
, 1 },
490 { OPT_LEVELS_2_PLUS
, OPT_ftree_switch_conversion
, NULL
, 1 },
491 { OPT_LEVELS_2_PLUS
, OPT_fipa_cp
, NULL
, 1 },
492 { OPT_LEVELS_2_PLUS
, OPT_fdevirtualize
, NULL
, 1 },
493 { OPT_LEVELS_2_PLUS
, OPT_fipa_sra
, NULL
, 1 },
494 { OPT_LEVELS_2_PLUS
, OPT_falign_loops
, NULL
, 1 },
495 { OPT_LEVELS_2_PLUS
, OPT_falign_jumps
, NULL
, 1 },
496 { OPT_LEVELS_2_PLUS
, OPT_falign_labels
, NULL
, 1 },
497 { OPT_LEVELS_2_PLUS
, OPT_falign_functions
, NULL
, 1 },
499 /* -O3 optimizations. */
500 { OPT_LEVELS_3_PLUS
, OPT_ftree_loop_distribute_patterns
, NULL
, 1 },
501 { OPT_LEVELS_3_PLUS
, OPT_fpredictive_commoning
, NULL
, 1 },
502 /* Inlining of functions reducing size is a good idea with -Os
503 regardless of them being declared inline. */
504 { OPT_LEVELS_3_PLUS_AND_SIZE
, OPT_finline_functions
, NULL
, 1 },
505 { OPT_LEVELS_3_PLUS
, OPT_funswitch_loops
, NULL
, 1 },
506 { OPT_LEVELS_3_PLUS
, OPT_fgcse_after_reload
, NULL
, 1 },
507 { OPT_LEVELS_3_PLUS
, OPT_ftree_vectorize
, NULL
, 1 },
508 { OPT_LEVELS_3_PLUS
, OPT_fipa_cp_clone
, NULL
, 1 },
510 /* -Ofast adds optimizations to -O3. */
511 { OPT_LEVELS_FAST
, OPT_ffast_math
, NULL
, 1 },
513 { OPT_LEVELS_NONE
, 0, NULL
, 0 }
516 /* Default the options in OPTS and OPTS_SET based on the optimization
517 settings in DECODED_OPTIONS and DECODED_OPTIONS_COUNT. */
519 default_options_optimization (struct gcc_options
*opts
,
520 struct gcc_options
*opts_set
,
521 struct cl_decoded_option
*decoded_options
,
522 unsigned int decoded_options_count
,
524 unsigned int lang_mask
,
525 const struct cl_option_handlers
*handlers
,
526 diagnostic_context
*dc
)
531 /* Scan to see what optimization level has been specified. That will
532 determine the default value of many flags. */
533 for (i
= 1; i
< decoded_options_count
; i
++)
535 struct cl_decoded_option
*opt
= &decoded_options
[i
];
536 switch (opt
->opt_index
)
539 if (*opt
->arg
== '\0')
541 opts
->x_optimize
= 1;
542 opts
->x_optimize_size
= 0;
543 opts
->x_optimize_fast
= 0;
547 const int optimize_val
= integral_argument (opt
->arg
);
548 if (optimize_val
== -1)
550 "argument to %qs should be a non-negative integer",
554 opts
->x_optimize
= optimize_val
;
555 if ((unsigned int) opts
->x_optimize
> 255)
556 opts
->x_optimize
= 255;
557 opts
->x_optimize_size
= 0;
558 opts
->x_optimize_fast
= 0;
564 opts
->x_optimize_size
= 1;
566 /* Optimizing for size forces optimize to be 2. */
567 opts
->x_optimize
= 2;
568 opts
->x_optimize_fast
= 0;
572 /* -Ofast only adds flags to -O3. */
573 opts
->x_optimize_size
= 0;
574 opts
->x_optimize
= 3;
575 opts
->x_optimize_fast
= 1;
579 /* Ignore other options in this prescan. */
584 maybe_default_options (opts
, opts_set
, default_options_table
,
585 opts
->x_optimize
, opts
->x_optimize_size
,
586 opts
->x_optimize_fast
, lang_mask
, handlers
, loc
, dc
);
588 /* -O2 param settings. */
589 opt2
= (opts
->x_optimize
>= 2);
591 /* Track fields in field-sensitive alias analysis. */
592 maybe_set_param_value
593 (PARAM_MAX_FIELDS_FOR_FIELD_SENSITIVE
,
594 opt2
? 100 : default_param_value (PARAM_MAX_FIELDS_FOR_FIELD_SENSITIVE
),
595 opts
->x_param_values
, opts_set
->x_param_values
);
597 /* For -O1 only do loop invariant motion for very small loops. */
598 maybe_set_param_value
599 (PARAM_LOOP_INVARIANT_MAX_BBS_IN_LOOP
,
600 opt2
? default_param_value (PARAM_LOOP_INVARIANT_MAX_BBS_IN_LOOP
) : 1000,
601 opts
->x_param_values
, opts_set
->x_param_values
);
603 if (opts
->x_optimize_size
)
604 /* We want to crossjump as much as possible. */
605 maybe_set_param_value (PARAM_MIN_CROSSJUMP_INSNS
, 1,
606 opts
->x_param_values
, opts_set
->x_param_values
);
608 maybe_set_param_value (PARAM_MIN_CROSSJUMP_INSNS
,
609 default_param_value (PARAM_MIN_CROSSJUMP_INSNS
),
610 opts
->x_param_values
, opts_set
->x_param_values
);
612 /* Allow default optimizations to be specified on a per-machine basis. */
613 maybe_default_options (opts
, opts_set
,
614 targetm
.target_option
.optimization_table
,
615 opts
->x_optimize
, opts
->x_optimize_size
,
616 opts
->x_optimize_fast
, lang_mask
, handlers
, loc
, dc
);
619 /* After all options at LOC have been read into OPTS and OPTS_SET,
620 finalize settings of those options and diagnose incompatible
623 finish_options (struct gcc_options
*opts
, struct gcc_options
*opts_set
,
626 enum unwind_info_type ui_except
;
628 /* If -gmlt was specified, make sure debug level is at least 1. */
629 if (opts
->x_generate_debug_line_table
630 && opts
->x_debug_info_level
< DINFO_LEVEL_TERSE
)
631 opts
->x_debug_info_level
= DINFO_LEVEL_TERSE
;
633 if (opts
->x_dump_base_name
&& ! IS_ABSOLUTE_PATH (opts
->x_dump_base_name
))
635 /* First try to make OPTS->X_DUMP_BASE_NAME relative to the
636 OPTS->X_DUMP_DIR_NAME directory. Then try to make
637 OPTS->X_DUMP_BASE_NAME relative to the OPTS->X_AUX_BASE_NAME
638 directory, typically the directory to contain the object
640 if (opts
->x_dump_dir_name
)
641 opts
->x_dump_base_name
= concat (opts
->x_dump_dir_name
,
642 opts
->x_dump_base_name
, NULL
);
643 else if (opts
->x_aux_base_name
644 && strcmp (opts
->x_aux_base_name
, HOST_BIT_BUCKET
) != 0)
646 const char *aux_base
;
648 base_of_path (opts
->x_aux_base_name
, &aux_base
);
649 if (opts
->x_aux_base_name
!= aux_base
)
651 int dir_len
= aux_base
- opts
->x_aux_base_name
;
652 char *new_dump_base_name
=
653 XNEWVEC (char, strlen (opts
->x_dump_base_name
) + dir_len
+ 1);
655 /* Copy directory component from OPTS->X_AUX_BASE_NAME. */
656 memcpy (new_dump_base_name
, opts
->x_aux_base_name
, dir_len
);
657 /* Append existing OPTS->X_DUMP_BASE_NAME. */
658 strcpy (new_dump_base_name
+ dir_len
, opts
->x_dump_base_name
);
659 opts
->x_dump_base_name
= new_dump_base_name
;
664 /* Handle related options for unit-at-a-time, toplevel-reorder, and
666 if (!opts
->x_flag_unit_at_a_time
)
668 if (opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
)
669 error_at (loc
, "section anchors must be disabled when unit-at-a-time "
671 opts
->x_flag_section_anchors
= 0;
672 if (opts
->x_flag_toplevel_reorder
== 1)
673 error_at (loc
, "toplevel reorder must be disabled when unit-at-a-time "
675 opts
->x_flag_toplevel_reorder
= 0;
678 /* -Wmissing-noreturn is alias for -Wsuggest-attribute=noreturn. */
679 if (opts
->x_warn_missing_noreturn
)
680 opts
->x_warn_suggest_attribute_noreturn
= true;
682 /* Unless the user has asked for section anchors, we disable toplevel
683 reordering at -O0 to disable transformations that might be surprising
684 to end users and to get -fno-toplevel-reorder tested. */
685 if (!opts
->x_optimize
686 && opts
->x_flag_toplevel_reorder
== 2
687 && !(opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
))
689 opts
->x_flag_toplevel_reorder
= 0;
690 opts
->x_flag_section_anchors
= 0;
692 if (!opts
->x_flag_toplevel_reorder
)
694 if (opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
)
695 error_at (loc
, "section anchors must be disabled when toplevel reorder"
697 opts
->x_flag_section_anchors
= 0;
700 if (!opts
->x_flag_opts_finished
)
702 if (opts
->x_flag_pie
)
703 opts
->x_flag_pic
= opts
->x_flag_pie
;
704 if (opts
->x_flag_pic
&& !opts
->x_flag_pie
)
705 opts
->x_flag_shlib
= 1;
706 opts
->x_flag_opts_finished
= true;
709 if (opts
->x_optimize
== 0)
711 /* Inlining does not work if not optimizing,
712 so force it not to be done. */
713 opts
->x_warn_inline
= 0;
714 opts
->x_flag_no_inline
= 1;
717 /* The optimization to partition hot and cold basic blocks into separate
718 sections of the .o and executable files does not work (currently)
719 with exception handling. This is because there is no support for
720 generating unwind info. If opts->x_flag_exceptions is turned on
721 we need to turn off the partitioning optimization. */
723 ui_except
= targetm
.except_unwind_info (opts
);
725 if (opts
->x_flag_exceptions
726 && opts
->x_flag_reorder_blocks_and_partition
727 && (ui_except
== UI_SJLJ
|| ui_except
== UI_TARGET
))
730 "-freorder-blocks-and-partition does not work "
731 "with exceptions on this architecture");
732 opts
->x_flag_reorder_blocks_and_partition
= 0;
733 opts
->x_flag_reorder_blocks
= 1;
736 /* If user requested unwind info, then turn off the partitioning
739 if (opts
->x_flag_unwind_tables
740 && !targetm
.unwind_tables_default
741 && opts
->x_flag_reorder_blocks_and_partition
742 && (ui_except
== UI_SJLJ
|| ui_except
== UI_TARGET
))
745 "-freorder-blocks-and-partition does not support "
746 "unwind info on this architecture");
747 opts
->x_flag_reorder_blocks_and_partition
= 0;
748 opts
->x_flag_reorder_blocks
= 1;
751 /* If the target requested unwind info, then turn off the partitioning
752 optimization with a different message. Likewise, if the target does not
753 support named sections. */
755 if (opts
->x_flag_reorder_blocks_and_partition
756 && (!targetm
.have_named_sections
757 || (opts
->x_flag_unwind_tables
758 && targetm
.unwind_tables_default
759 && (ui_except
== UI_SJLJ
|| ui_except
== UI_TARGET
))))
762 "-freorder-blocks-and-partition does not work "
763 "on this architecture");
764 opts
->x_flag_reorder_blocks_and_partition
= 0;
765 opts
->x_flag_reorder_blocks
= 1;
768 if (opts
->x_flag_reorder_blocks_and_partition
769 && !opts_set
->x_flag_reorder_functions
)
770 opts
->x_flag_reorder_functions
= 1;
772 /* Pipelining of outer loops is only possible when general pipelining
773 capabilities are requested. */
774 if (!opts
->x_flag_sel_sched_pipelining
)
775 opts
->x_flag_sel_sched_pipelining_outer_loops
= 0;
777 if (!targetm
.ira_cover_classes
778 && opts
->x_flag_ira_algorithm
== IRA_ALGORITHM_CB
)
781 "-fira-algorithm=CB does not work on this architecture");
782 opts
->x_flag_ira_algorithm
= IRA_ALGORITHM_PRIORITY
;
785 if (opts
->x_flag_conserve_stack
)
787 maybe_set_param_value (PARAM_LARGE_STACK_FRAME
, 100,
788 opts
->x_param_values
, opts_set
->x_param_values
);
789 maybe_set_param_value (PARAM_STACK_FRAME_GROWTH
, 40,
790 opts
->x_param_values
, opts_set
->x_param_values
);
792 if (opts
->x_flag_wpa
|| opts
->x_flag_ltrans
)
794 /* These passes are not WHOPR compatible yet. */
795 opts
->x_flag_ipa_pta
= 0;
796 opts
->x_flag_ipa_struct_reorg
= 0;
799 if (opts
->x_flag_lto
)
802 opts
->x_flag_generate_lto
= 1;
804 /* When generating IL, do not operate in whole-program mode.
805 Otherwise, symbols will be privatized too early, causing link
807 opts
->x_flag_whole_program
= 0;
809 error_at (loc
, "LTO support has not been enabled in this configuration");
812 if ((opts
->x_flag_lto_partition_balanced
!= 0) + (opts
->x_flag_lto_partition_1to1
!= 0)
813 + (opts
->x_flag_lto_partition_none
!= 0) >= 1)
815 if ((opts
->x_flag_lto_partition_balanced
!= 0)
816 + (opts
->x_flag_lto_partition_1to1
!= 0)
817 + (opts
->x_flag_lto_partition_none
!= 0) > 1)
818 error_at (loc
, "only one -flto-partition value can be specified");
821 /* We initialize opts->x_flag_split_stack to -1 so that targets can set a
822 default value if they choose based on other options. */
823 if (opts
->x_flag_split_stack
== -1)
824 opts
->x_flag_split_stack
= 0;
825 else if (opts
->x_flag_split_stack
)
827 if (!targetm
.supports_split_stack (true, opts
))
829 error_at (loc
, "%<-fsplit-stack%> is not supported by "
830 "this compiler configuration");
831 opts
->x_flag_split_stack
= 0;
835 if (opts
->x_profile_arc_flag
836 || opts
->x_flag_branch_probabilities
)
838 /* With profile data, inlining is much more selective and makes
839 better decisions, so increase the inlining function size
840 limits. Changes must be added to both the generate and use
841 builds to avoid profile mismatches. */
842 maybe_set_param_value
843 (PARAM_MAX_INLINE_INSNS_SINGLE
, 1000,
844 opts
->x_param_values
, opts_set
->x_param_values
);
845 maybe_set_param_value
846 (PARAM_MAX_INLINE_INSNS_AUTO
, 1000,
847 opts
->x_param_values
, opts_set
->x_param_values
);
850 /* Turn on -ffunction-sections when -freorder-functions=* is used. */
851 if (opts
->x_flag_reorder_functions
> 1)
852 opts
->x_flag_function_sections
= 1;
855 #define LEFT_COLUMN 27
857 /* Output ITEM, of length ITEM_WIDTH, in the left column,
858 followed by word-wrapped HELP in a second column. */
860 wrap_help (const char *help
,
862 unsigned int item_width
,
863 unsigned int columns
)
865 unsigned int col_width
= LEFT_COLUMN
;
866 unsigned int remaining
, room
, len
;
868 remaining
= strlen (help
);
872 room
= columns
- 3 - MAX (col_width
, item_width
);
881 for (i
= 0; help
[i
]; i
++)
883 if (i
>= room
&& len
!= remaining
)
887 else if ((help
[i
] == '-' || help
[i
] == '/')
888 && help
[i
+ 1] != ' '
889 && i
> 0 && ISALPHA (help
[i
- 1]))
894 printf( " %-*.*s %.*s\n", col_width
, item_width
, item
, len
, help
);
896 while (help
[len
] == ' ')
904 /* Print help for a specific front-end, etc. */
906 print_filtered_help (unsigned int include_flags
,
907 unsigned int exclude_flags
,
908 unsigned int any_flags
,
909 unsigned int columns
,
910 struct gcc_options
*opts
,
911 unsigned int lang_mask
)
916 bool displayed
= false;
918 if (include_flags
== CL_PARAMS
)
920 for (i
= 0; i
< LAST_PARAM
; i
++)
922 const char *param
= compiler_params
[i
].option
;
924 help
= compiler_params
[i
].help
;
925 if (help
== NULL
|| *help
== '\0')
927 if (exclude_flags
& CL_UNDOCUMENTED
)
929 help
= undocumented_msg
;
932 /* Get the translation. */
935 wrap_help (help
, param
, strlen (param
), columns
);
941 if (!opts
->x_help_printed
)
942 opts
->x_help_printed
= XCNEWVAR (char, cl_options_count
);
944 if (!opts
->x_help_enum_printed
)
945 opts
->x_help_enum_printed
= XCNEWVAR (char, cl_enums_count
);
947 for (i
= 0; i
< cl_options_count
; i
++)
950 const struct cl_option
*option
= cl_options
+ i
;
955 if (include_flags
== 0
956 || ((option
->flags
& include_flags
) != include_flags
))
958 if ((option
->flags
& any_flags
) == 0)
962 /* Skip unwanted switches. */
963 if ((option
->flags
& exclude_flags
) != 0)
966 /* The driver currently prints its own help text. */
967 if ((option
->flags
& CL_DRIVER
) != 0
968 && (option
->flags
& (((1U << cl_lang_count
) - 1)
969 | CL_COMMON
| CL_TARGET
)) == 0)
973 /* Skip switches that have already been printed. */
974 if (opts
->x_help_printed
[i
])
977 opts
->x_help_printed
[i
] = true;
982 if (exclude_flags
& CL_UNDOCUMENTED
)
984 help
= undocumented_msg
;
987 /* Get the translation. */
990 /* Find the gap between the name of the
991 option and its descriptive text. */
992 tab
= strchr (help
, '\t');
1001 opt
= option
->opt_text
;
1005 /* With the -Q option enabled we change the descriptive text associated
1006 with an option to be an indication of its current setting. */
1009 void *flag_var
= option_flag_var (i
, opts
);
1011 if (len
< (LEFT_COLUMN
+ 2))
1012 strcpy (new_help
, "\t\t");
1014 strcpy (new_help
, "\t");
1016 if (flag_var
!= NULL
1017 && option
->var_type
!= CLVC_DEFER
)
1019 if (option
->flags
& CL_JOINED
)
1021 if (option
->var_type
== CLVC_STRING
)
1023 if (* (const char **) flag_var
!= NULL
)
1024 snprintf (new_help
+ strlen (new_help
),
1025 sizeof (new_help
) - strlen (new_help
),
1026 * (const char **) flag_var
);
1028 else if (option
->var_type
== CLVC_ENUM
)
1030 const struct cl_enum
*e
= &cl_enums
[option
->var_enum
];
1032 const char *arg
= NULL
;
1034 value
= e
->get (flag_var
);
1035 enum_value_to_arg (e
->values
, &arg
, value
, lang_mask
);
1037 arg
= _("[default]");
1038 snprintf (new_help
+ strlen (new_help
),
1039 sizeof (new_help
) - strlen (new_help
),
1043 sprintf (new_help
+ strlen (new_help
),
1044 "%#x", * (int *) flag_var
);
1047 strcat (new_help
, option_enabled (i
, opts
)
1048 ? _("[enabled]") : _("[disabled]"));
1054 wrap_help (help
, opt
, len
, columns
);
1057 if (option
->var_type
== CLVC_ENUM
1058 && opts
->x_help_enum_printed
[option
->var_enum
] != 2)
1059 opts
->x_help_enum_printed
[option
->var_enum
] = 1;
1064 unsigned int langs
= include_flags
& CL_LANG_ALL
;
1067 printf (_(" No options with the desired characteristics were found\n"));
1072 /* PR 31349: Tell the user how to see all of the
1073 options supported by a specific front end. */
1074 for (i
= 0; (1U << i
) < CL_LANG_ALL
; i
++)
1075 if ((1U << i
) & langs
)
1076 printf (_(" None found. Use --help=%s to show *all* the options supported by the %s front-end\n"),
1077 lang_names
[i
], lang_names
[i
]);
1081 else if (! displayed
)
1082 printf (_(" All options with the desired characteristics have already been displayed\n"));
1086 /* Print details of enumerated option arguments, if those
1087 enumerations have help text headings provided. If no help text
1088 is provided, presume that the possible values are listed in the
1089 help text for the relevant options. */
1090 for (i
= 0; i
< cl_enums_count
; i
++)
1092 unsigned int j
, pos
;
1094 if (opts
->x_help_enum_printed
[i
] != 1)
1096 if (cl_enums
[i
].help
== NULL
)
1098 printf (" %s\n ", _(cl_enums
[i
].help
));
1100 for (j
= 0; cl_enums
[i
].values
[j
].arg
!= NULL
; j
++)
1102 unsigned int len
= strlen (cl_enums
[i
].values
[j
].arg
);
1104 if (pos
> 4 && pos
+ 1 + len
<= columns
)
1106 printf (" %s", cl_enums
[i
].values
[j
].arg
);
1116 printf ("%s", cl_enums
[i
].values
[j
].arg
);
1121 opts
->x_help_enum_printed
[i
] = 2;
1125 /* Display help for a specified type of option.
1126 The options must have ALL of the INCLUDE_FLAGS set
1127 ANY of the flags in the ANY_FLAGS set
1128 and NONE of the EXCLUDE_FLAGS set. The current option state is in
1129 OPTS; LANG_MASK is used for interpreting enumerated option state. */
1131 print_specific_help (unsigned int include_flags
,
1132 unsigned int exclude_flags
,
1133 unsigned int any_flags
,
1134 struct gcc_options
*opts
,
1135 unsigned int lang_mask
)
1137 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1138 const char * description
= NULL
;
1139 const char * descrip_extra
= "";
1143 /* Sanity check: Make sure that we do not have more
1144 languages than we have bits available to enumerate them. */
1145 gcc_assert ((1U << cl_lang_count
) < CL_MIN_OPTION_CLASS
);
1147 /* If we have not done so already, obtain
1148 the desired maximum width of the output. */
1149 if (opts
->x_help_columns
== 0)
1153 p
= getenv ("COLUMNS");
1156 int value
= atoi (p
);
1159 opts
->x_help_columns
= value
;
1162 if (opts
->x_help_columns
== 0)
1163 /* Use a reasonable default. */
1164 opts
->x_help_columns
= 80;
1167 /* Decide upon the title for the options that we are going to display. */
1168 for (i
= 0, flag
= 1; flag
<= CL_MAX_OPTION_CLASS
; flag
<<= 1, i
++)
1170 switch (flag
& include_flags
)
1177 description
= _("The following options are target specific");
1180 description
= _("The following options control compiler warning messages");
1182 case CL_OPTIMIZATION
:
1183 description
= _("The following options control optimizations");
1186 description
= _("The following options are language-independent");
1189 description
= _("The --param option recognizes the following as parameters");
1192 if (i
>= cl_lang_count
)
1194 if (exclude_flags
& all_langs_mask
)
1195 description
= _("The following options are specific to just the language ");
1197 description
= _("The following options are supported by the language ");
1198 descrip_extra
= lang_names
[i
];
1203 if (description
== NULL
)
1207 if (include_flags
& CL_UNDOCUMENTED
)
1208 description
= _("The following options are not documented");
1209 else if (include_flags
& CL_SEPARATE
)
1210 description
= _("The following options take separate arguments");
1211 else if (include_flags
& CL_JOINED
)
1212 description
= _("The following options take joined arguments");
1215 internal_error ("unrecognized include_flags 0x%x passed to print_specific_help",
1222 if (any_flags
& all_langs_mask
)
1223 description
= _("The following options are language-related");
1225 description
= _("The following options are language-independent");
1229 printf ("%s%s:\n", description
, descrip_extra
);
1230 print_filtered_help (include_flags
, exclude_flags
, any_flags
,
1231 opts
->x_help_columns
, opts
, lang_mask
);
1234 /* Handle target- and language-independent options. Return zero to
1235 generate an "unknown option" message. Only options that need
1236 extra handling need to be listed here; if you simply want
1237 DECODED->value assigned to a variable, it happens automatically. */
1240 common_handle_option (struct gcc_options
*opts
,
1241 struct gcc_options
*opts_set
,
1242 const struct cl_decoded_option
*decoded
,
1243 unsigned int lang_mask
, int kind ATTRIBUTE_UNUSED
,
1245 const struct cl_option_handlers
*handlers
,
1246 diagnostic_context
*dc
)
1248 size_t scode
= decoded
->opt_index
;
1249 const char *arg
= decoded
->arg
;
1250 int value
= decoded
->value
;
1251 enum opt_code code
= (enum opt_code
) scode
;
1253 gcc_assert (decoded
->canonical_option_num_elements
<= 2);
1258 handle_param (opts
, opts_set
, loc
, arg
);
1263 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1264 unsigned int undoc_mask
;
1267 undoc_mask
= ((opts
->x_verbose_flag
| opts
->x_extra_warnings
)
1270 /* First display any single language specific options. */
1271 for (i
= 0; i
< cl_lang_count
; i
++)
1273 (1U << i
, (all_langs_mask
& (~ (1U << i
))) | undoc_mask
, 0, opts
,
1275 /* Next display any multi language specific options. */
1276 print_specific_help (0, undoc_mask
, all_langs_mask
, opts
, lang_mask
);
1277 /* Then display any remaining, non-language options. */
1278 for (i
= CL_MIN_OPTION_CLASS
; i
<= CL_MAX_OPTION_CLASS
; i
<<= 1)
1280 print_specific_help (i
, undoc_mask
, 0, opts
, lang_mask
);
1281 opts
->x_exit_after_options
= true;
1285 case OPT__target_help
:
1286 print_specific_help (CL_TARGET
, CL_UNDOCUMENTED
, 0, opts
, lang_mask
);
1287 opts
->x_exit_after_options
= true;
1289 /* Allow the target a chance to give the user some additional information. */
1296 const char * a
= arg
;
1297 unsigned int include_flags
= 0;
1298 /* Note - by default we include undocumented options when listing
1299 specific classes. If you only want to see documented options
1300 then add ",^undocumented" to the --help= option. E.g.:
1302 --help=target,^undocumented */
1303 unsigned int exclude_flags
= 0;
1305 /* Walk along the argument string, parsing each word in turn.
1307 arg = [^]{word}[,{arg}]
1308 word = {optimizers|target|warnings|undocumented|
1309 params|common|<language>} */
1314 const char * string
;
1319 { "optimizers", CL_OPTIMIZATION
},
1320 { "target", CL_TARGET
},
1321 { "warnings", CL_WARNING
},
1322 { "undocumented", CL_UNDOCUMENTED
},
1323 { "params", CL_PARAMS
},
1324 { "joined", CL_JOINED
},
1325 { "separate", CL_SEPARATE
},
1326 { "common", CL_COMMON
},
1329 unsigned int * pflags
;
1331 unsigned int lang_flag
, specific_flag
;
1338 pflags
= & exclude_flags
;
1341 pflags
= & include_flags
;
1343 comma
= strchr (a
, ',');
1354 /* Check to see if the string matches an option class name. */
1355 for (i
= 0, specific_flag
= 0; specifics
[i
].string
!= NULL
; i
++)
1356 if (strncasecmp (a
, specifics
[i
].string
, len
) == 0)
1358 specific_flag
= specifics
[i
].flag
;
1362 /* Check to see if the string matches a language name.
1363 Note - we rely upon the alpha-sorted nature of the entries in
1364 the lang_names array, specifically that shorter names appear
1365 before their longer variants. (i.e. C before C++). That way
1366 when we are attempting to match --help=c for example we will
1367 match with C first and not C++. */
1368 for (i
= 0, lang_flag
= 0; i
< cl_lang_count
; i
++)
1369 if (strncasecmp (a
, lang_names
[i
], len
) == 0)
1371 lang_flag
= 1U << i
;
1375 if (specific_flag
!= 0)
1378 * pflags
|= specific_flag
;
1381 /* The option's argument matches both the start of a
1382 language name and the start of an option class name.
1383 We have a special case for when the user has
1384 specified "--help=c", but otherwise we have to issue
1386 if (strncasecmp (a
, "c", len
) == 0)
1387 * pflags
|= lang_flag
;
1390 "--help argument %q.*s is ambiguous, "
1391 "please be more specific",
1395 else if (lang_flag
!= 0)
1396 * pflags
|= lang_flag
;
1399 "unrecognized argument to --help= option: %q.*s",
1408 print_specific_help (include_flags
, exclude_flags
, 0, opts
,
1410 opts
->x_exit_after_options
= true;
1415 opts
->x_exit_after_options
= true;
1421 /* Currently handled in a prescan. */
1425 enable_warning_as_error (arg
, value
, lang_mask
, handlers
,
1426 opts
, opts_set
, loc
, dc
);
1429 case OPT_Wlarger_than_
:
1430 opts
->x_larger_than_size
= value
;
1431 opts
->x_warn_larger_than
= value
!= -1;
1434 case OPT_Wfatal_errors
:
1435 dc
->fatal_errors
= value
;
1438 case OPT_Wframe_larger_than_
:
1439 opts
->x_frame_larger_than_size
= value
;
1440 opts
->x_warn_frame_larger_than
= value
!= -1;
1444 warn_shadow_local
= value
;
1445 warn_shadow_compatible_local
= value
;
1448 case OPT_Wshadow_local
:
1449 warn_shadow_compatible_local
= value
;
1452 case OPT_Wstrict_aliasing
:
1453 set_Wstrict_aliasing (opts
, value
);
1456 case OPT_Wstrict_overflow
:
1457 opts
->x_warn_strict_overflow
= (value
1458 ? (int) WARN_STRICT_OVERFLOW_CONDITIONAL
1462 case OPT_Wsystem_headers
:
1463 dc
->dc_warn_system_headers
= value
;
1467 opts
->x_flag_gen_aux_info
= 1;
1470 case OPT_auxbase_strip
:
1472 char *tmp
= xstrdup (arg
);
1473 strip_off_ending (tmp
, strlen (tmp
));
1475 opts
->x_aux_base_name
= tmp
;
1480 decode_d_option (arg
, opts
, loc
, dc
);
1483 case OPT_fcall_used_
:
1484 case OPT_fcall_saved_
:
1489 case OPT_fdbg_cnt_list
:
1493 case OPT_fdebug_prefix_map_
:
1497 case OPT_fdiagnostics_show_location_
:
1498 diagnostic_prefixing_rule (dc
) = (diagnostic_prefixing_rule_t
) value
;
1501 case OPT_fdiagnostics_show_option
:
1502 dc
->show_option_requested
= value
;
1509 case OPT_ffast_math
:
1510 set_fast_math_flags (opts
, value
);
1513 case OPT_funsafe_math_optimizations
:
1514 set_unsafe_math_optimizations_flags (opts
, value
);
1521 case OPT_finline_limit_
:
1522 set_param_value ("max-inline-insns-single", value
/ 2,
1523 opts
->x_param_values
, opts_set
->x_param_values
);
1524 set_param_value ("max-inline-insns-auto", value
/ 2,
1525 opts
->x_param_values
, opts_set
->x_param_values
);
1528 case OPT_finstrument_functions_exclude_function_list_
:
1529 add_comma_separated_to_vector
1530 (&opts
->x_flag_instrument_functions_exclude_functions
, arg
);
1533 case OPT_finstrument_functions_exclude_file_list_
:
1534 add_comma_separated_to_vector
1535 (&opts
->x_flag_instrument_functions_exclude_files
, arg
);
1538 case OPT_fmessage_length_
:
1539 pp_set_line_maximum_length (dc
->printer
, value
);
1542 case OPT_fopt_info_
:
1543 if (value
< 0 || value
> OPT_INFO_MAX
)
1545 "%d: invalid value for opt_info",
1548 opts
->x_flag_opt_info
= value
;
1551 case OPT_fpack_struct_
:
1552 if (value
<= 0 || (value
& (value
- 1)) || value
> 16)
1554 "structure alignment must be a small power of two, not %d",
1557 opts
->x_initial_max_fld_align
= value
;
1561 case OPT_fplugin_arg_
:
1565 case OPT_fprofile_use_
:
1566 opts
->x_profile_data_prefix
= xstrdup (arg
);
1567 opts
->x_flag_profile_use
= true;
1568 flag_profile_use
= 1;
1570 /* No break here - do -fprofile-use processing. */
1571 case OPT_fprofile_use
:
1572 if (!opts_set
->x_flag_branch_probabilities
)
1573 opts
->x_flag_branch_probabilities
= value
;
1574 if (!opts_set
->x_flag_profile_values
)
1575 opts
->x_flag_profile_values
= value
;
1576 if (!opts_set
->x_flag_unroll_loops
)
1577 opts
->x_flag_unroll_loops
= value
;
1578 if (!opts_set
->x_flag_peel_loops
)
1579 opts
->x_flag_peel_loops
= value
;
1580 if (!opts_set
->x_flag_value_profile_transformations
)
1581 opts
->x_flag_value_profile_transformations
= value
;
1582 if (!opts_set
->x_flag_inline_functions
)
1583 opts
->x_flag_inline_functions
= value
;
1584 if (!opts_set
->x_flag_ipa_cp
)
1585 opts
->x_flag_ipa_cp
= value
;
1586 if (!opts_set
->x_flag_ipa_cp_clone
1587 && value
&& opts
->x_flag_ipa_cp
)
1588 opts
->x_flag_ipa_cp_clone
= value
;
1589 if (!opts_set
->x_flag_predictive_commoning
)
1590 opts
->x_flag_predictive_commoning
= value
;
1591 if (!opts_set
->x_flag_unswitch_loops
)
1592 opts
->x_flag_unswitch_loops
= value
;
1593 if (!opts_set
->x_flag_gcse_after_reload
)
1594 opts
->x_flag_gcse_after_reload
= value
;
1597 case OPT_fprofile_generate_
:
1598 opts
->x_profile_data_prefix
= xstrdup (arg
);
1599 flag_profile_generate
= 1;
1601 /* No break here - do -fprofile-generate processing. */
1602 case OPT_fprofile_generate
:
1603 if (!opts_set
->x_profile_arc_flag
)
1604 opts
->x_profile_arc_flag
= value
;
1605 if (!opts_set
->x_flag_profile_values
)
1606 opts
->x_flag_profile_values
= value
;
1607 if (!opts_set
->x_flag_value_profile_transformations
)
1608 opts
->x_flag_value_profile_transformations
= value
;
1609 if (!opts_set
->x_flag_inline_functions
)
1610 opts
->x_flag_inline_functions
= value
;
1611 /* FIXME: Instrumentation we insert makes ipa-reference bitmaps
1612 quadratic. Disable the pass until better memory representation
1614 if (!opts_set
->x_flag_ipa_reference
&& in_lto_p
)
1615 opts
->x_flag_ipa_reference
= false;
1618 case OPT_fpmu_profile_generate_
:
1619 /* This should be ideally turned on in conjunction with
1620 -fprofile-dir or -fprofile-generate in order to specify a
1621 profile directory. */
1622 if (check_pmu_profile_options (arg
))
1623 error ("Unrecognized pmu_profile_generate value \"%s\"", arg
);
1624 flag_pmu_profile_generate
= xstrdup (arg
);
1627 case OPT_fripa_inc_path_sub_
:
1628 lipo_inc_path_pattern
= xstrdup (arg
);
1631 case OPT_fshow_column
:
1632 dc
->show_column
= value
;
1635 case OPT_frandom_seed
:
1636 /* The real switch is -fno-random-seed. */
1642 case OPT_frandom_seed_
:
1646 case OPT_fsched_verbose_
:
1647 #ifdef INSN_SCHEDULING
1648 /* Handled with Var in common.opt. */
1654 case OPT_fsched_stalled_insns_
:
1655 opts
->x_flag_sched_stalled_insns
= value
;
1656 if (opts
->x_flag_sched_stalled_insns
== 0)
1657 opts
->x_flag_sched_stalled_insns
= -1;
1660 case OPT_fsched_stalled_insns_dep_
:
1661 opts
->x_flag_sched_stalled_insns_dep
= value
;
1664 case OPT_fstack_check_
:
1665 if (!strcmp (arg
, "no"))
1666 opts
->x_flag_stack_check
= NO_STACK_CHECK
;
1667 else if (!strcmp (arg
, "generic"))
1668 /* This is the old stack checking method. */
1669 opts
->x_flag_stack_check
= STACK_CHECK_BUILTIN
1670 ? FULL_BUILTIN_STACK_CHECK
1671 : GENERIC_STACK_CHECK
;
1672 else if (!strcmp (arg
, "specific"))
1673 /* This is the new stack checking method. */
1674 opts
->x_flag_stack_check
= STACK_CHECK_BUILTIN
1675 ? FULL_BUILTIN_STACK_CHECK
1676 : STACK_CHECK_STATIC_BUILTIN
1677 ? STATIC_BUILTIN_STACK_CHECK
1678 : GENERIC_STACK_CHECK
;
1680 warning_at (loc
, 0, "unknown stack check parameter \"%s\"", arg
);
1683 case OPT_fstack_limit
:
1684 /* The real switch is -fno-stack-limit. */
1690 case OPT_fstack_limit_register_
:
1691 case OPT_fstack_limit_symbol_
:
1695 case OPT_ftree_vectorizer_verbose_
:
1696 vect_set_verbosity_level (opts
, value
);
1700 set_debug_level (NO_DEBUG
, DEFAULT_GDB_EXTENSIONS
, arg
, opts
, opts_set
,
1705 set_debug_level (SDB_DEBUG
, false, arg
, opts
, opts_set
, loc
);
1709 if (value
< 2 || value
> 4)
1710 error_at (loc
, "dwarf version %d is not supported", value
);
1712 dwarf_version
= value
;
1713 set_debug_level (DWARF2_DEBUG
, false, "", opts
, opts_set
, loc
);
1717 set_debug_level (NO_DEBUG
, DEFAULT_GDB_EXTENSIONS
, arg
, opts
, opts_set
,
1722 set_debug_level (NO_DEBUG
, 2, arg
, opts
, opts_set
, loc
);
1727 set_debug_level (DBX_DEBUG
, code
== OPT_gstabs_
, arg
, opts
, opts_set
,
1732 set_debug_level (NO_DEBUG
, DEFAULT_GDB_EXTENSIONS
, "", opts
, opts_set
,
1734 /* Clear the debug level to NONE so that a subsequent bare -g will
1735 set it to NORMAL (level 2). If no subsequent option sets the
1736 level explicitly, we will set it to TERSE in finish_options(). */
1737 opts
->x_debug_info_level
= DINFO_LEVEL_NONE
;
1738 opts
->x_generate_debug_line_table
= true;
1742 set_debug_level (VMS_DEBUG
, false, arg
, opts
, opts_set
, loc
);
1747 set_debug_level (XCOFF_DEBUG
, code
== OPT_gxcoff_
, arg
, opts
, opts_set
,
1751 case OPT_pedantic_errors
:
1752 opts
->x_pedantic
= 1;
1753 dc
->pedantic_errors
= 1;
1757 opts
->x_flag_lto
= value
? "" : NULL
;
1761 dc
->dc_inhibit_warnings
= true;
1764 case OPT_fmax_errors_
:
1765 dc
->max_errors
= value
;
1769 case OPT_fuse_linker_plugin
:
1770 /* No-op. Used by the driver and passed to us because it starts with f. */
1773 case OPT_Wuninitialized
:
1774 /* Also turn on maybe uninitialized warning. */
1775 warn_maybe_uninitialized
= value
;
1779 if (flag_ripa_stream
)
1784 flag_ripa_stream
= 0;
1786 if (!strcmp (arg
, "FE"))
1788 else if (!strcmp (arg
, "streaming"))
1789 flag_ripa_stream
= 1;
1791 error ("Unrecognized -fripa= value \"%s\"", arg
);
1795 /* If the flag was handled in a standard way, assume the lack of
1796 processing here is intentional. */
1797 gcc_assert (option_flag_var (scode
, opts
));
1804 /* Handle --param NAME=VALUE. */
1806 handle_param (struct gcc_options
*opts
, struct gcc_options
*opts_set
,
1807 location_t loc
, const char *carg
)
1812 arg
= xstrdup (carg
);
1813 equal
= strchr (arg
, '=');
1815 error_at (loc
, "%s: --param arguments should be of the form NAME=VALUE",
1819 value
= integral_argument (equal
+ 1);
1821 error_at (loc
, "invalid --param value %qs", equal
+ 1);
1825 set_param_value (arg
, value
,
1826 opts
->x_param_values
, opts_set
->x_param_values
);
1833 /* Used to set the level of strict aliasing warnings in OPTS,
1834 when no level is specified (i.e., when -Wstrict-aliasing, and not
1835 -Wstrict-aliasing=level was given).
1836 ONOFF is assumed to take value 1 when -Wstrict-aliasing is specified,
1837 and 0 otherwise. After calling this function, wstrict_aliasing will be
1838 set to the default value of -Wstrict_aliasing=level, currently 3. */
1840 set_Wstrict_aliasing (struct gcc_options
*opts
, int onoff
)
1842 gcc_assert (onoff
== 0 || onoff
== 1);
1844 opts
->x_warn_strict_aliasing
= 3;
1846 opts
->x_warn_strict_aliasing
= 0;
1849 /* The following routines are useful in setting all the flags that
1850 -ffast-math and -fno-fast-math imply. */
1852 set_fast_math_flags (struct gcc_options
*opts
, int set
)
1854 if (!opts
->frontend_set_flag_unsafe_math_optimizations
)
1856 opts
->x_flag_unsafe_math_optimizations
= set
;
1857 set_unsafe_math_optimizations_flags (opts
, set
);
1859 if (!opts
->frontend_set_flag_finite_math_only
)
1860 opts
->x_flag_finite_math_only
= set
;
1861 if (!opts
->frontend_set_flag_errno_math
)
1862 opts
->x_flag_errno_math
= !set
;
1865 if (!opts
->frontend_set_flag_signaling_nans
)
1866 opts
->x_flag_signaling_nans
= 0;
1867 if (!opts
->frontend_set_flag_rounding_math
)
1868 opts
->x_flag_rounding_math
= 0;
1869 if (!opts
->frontend_set_flag_cx_limited_range
)
1870 opts
->x_flag_cx_limited_range
= 1;
1874 /* When -funsafe-math-optimizations is set the following
1875 flags are set as well. */
1877 set_unsafe_math_optimizations_flags (struct gcc_options
*opts
, int set
)
1879 if (!opts
->frontend_set_flag_trapping_math
)
1880 opts
->x_flag_trapping_math
= !set
;
1881 if (!opts
->frontend_set_flag_signed_zeros
)
1882 opts
->x_flag_signed_zeros
= !set
;
1883 if (!opts
->frontend_set_flag_associative_math
)
1884 opts
->x_flag_associative_math
= set
;
1885 if (!opts
->frontend_set_flag_reciprocal_math
)
1886 opts
->x_flag_reciprocal_math
= set
;
1889 /* Return true iff flags in OPTS are set as if -ffast-math. */
1891 fast_math_flags_set_p (const struct gcc_options
*opts
)
1893 return (!opts
->x_flag_trapping_math
1894 && opts
->x_flag_unsafe_math_optimizations
1895 && opts
->x_flag_finite_math_only
1896 && !opts
->x_flag_signed_zeros
1897 && !opts
->x_flag_errno_math
);
1900 /* Return true iff flags are set as if -ffast-math but using the flags stored
1901 in the struct cl_optimization structure. */
1903 fast_math_flags_struct_set_p (struct cl_optimization
*opt
)
1905 return (!opt
->x_flag_trapping_math
1906 && opt
->x_flag_unsafe_math_optimizations
1907 && opt
->x_flag_finite_math_only
1908 && !opt
->x_flag_signed_zeros
1909 && !opt
->x_flag_errno_math
);
1912 /* Handle a debug output -g switch for options OPTS
1913 (OPTS_SET->x_write_symbols storing whether a debug type was passed
1914 explicitly), location LOC. EXTENDED is true or false to support
1915 extended output (2 is special and means "-ggdb" was given). */
1917 set_debug_level (enum debug_info_type type
, int extended
, const char *arg
,
1918 struct gcc_options
*opts
, struct gcc_options
*opts_set
,
1921 opts
->x_use_gnu_debug_info_extensions
= extended
;
1923 if (type
== NO_DEBUG
)
1925 if (opts
->x_write_symbols
== NO_DEBUG
)
1927 opts
->x_write_symbols
= PREFERRED_DEBUGGING_TYPE
;
1931 #ifdef DWARF2_DEBUGGING_INFO
1932 opts
->x_write_symbols
= DWARF2_DEBUG
;
1933 #elif defined DBX_DEBUGGING_INFO
1934 opts
->x_write_symbols
= DBX_DEBUG
;
1938 if (opts
->x_write_symbols
== NO_DEBUG
)
1939 warning_at (loc
, 0, "target system does not support debug output");
1944 /* Does it conflict with an already selected type? */
1945 if (opts_set
->x_write_symbols
!= NO_DEBUG
1946 && opts
->x_write_symbols
!= NO_DEBUG
1947 && type
!= opts
->x_write_symbols
)
1948 error_at (loc
, "debug format \"%s\" conflicts with prior selection",
1949 debug_type_names
[type
]);
1950 opts
->x_write_symbols
= type
;
1951 opts_set
->x_write_symbols
= type
;
1954 /* A debug flag without a level defaults to level 2. */
1957 if (!opts
->x_debug_info_level
)
1958 opts
->x_debug_info_level
= DINFO_LEVEL_NORMAL
;
1962 int argval
= integral_argument (arg
);
1964 error_at (loc
, "unrecognised debug output level \"%s\"", arg
);
1965 else if (argval
> 3)
1966 error_at (loc
, "debug output level %s is too high", arg
);
1968 opts
->x_debug_info_level
= (enum debug_info_levels
) argval
;
1971 opts
->x_generate_debug_line_table
= (opts
->x_debug_info_level
1972 >= DINFO_LEVEL_NORMAL
);
1975 /* Arrange to dump core on error for diagnostic context DC. (The
1976 regular error message is still printed first, except in the case of
1980 setup_core_dumping (diagnostic_context
*dc
)
1983 signal (SIGABRT
, SIG_DFL
);
1985 #if defined(HAVE_SETRLIMIT)
1988 if (getrlimit (RLIMIT_CORE
, &rlim
) != 0)
1989 fatal_error ("getting core file size maximum limit: %m");
1990 rlim
.rlim_cur
= rlim
.rlim_max
;
1991 if (setrlimit (RLIMIT_CORE
, &rlim
) != 0)
1992 fatal_error ("setting core file size limit to maximum: %m");
1995 diagnostic_abort_on_error (dc
);
1998 /* Parse a -d<ARG> command line switch for OPTS, location LOC,
1999 diagnostic context DC. */
2002 decode_d_option (const char *arg
, struct gcc_options
*opts
,
2003 location_t loc
, diagnostic_context
*dc
)
2011 opts
->x_flag_debug_asm
= 1;
2014 opts
->x_flag_print_asm_name
= 1;
2017 opts
->x_flag_dump_rtl_in_asm
= 1;
2018 opts
->x_flag_print_asm_name
= 1;
2021 opts
->x_graph_dump_format
= vcg
;
2024 opts
->x_rtl_dump_and_exit
= 1;
2026 case 'D': /* These are handled by the preprocessor. */
2033 setup_core_dumping (dc
);
2036 opts
->x_flag_dump_all_passed
= true;
2040 warning_at (loc
, 0, "unrecognized gcc debugging option: %c", c
);
2045 /* Enable (or disable if VALUE is 0) a warning option ARG (language
2046 mask LANG_MASK, option handlers HANDLERS) as an error for option
2047 structures OPTS and OPTS_SET, diagnostic context DC (possibly
2048 NULL), location LOC. This is used by -Werror=. */
2051 enable_warning_as_error (const char *arg
, int value
, unsigned int lang_mask
,
2052 const struct cl_option_handlers
*handlers
,
2053 struct gcc_options
*opts
,
2054 struct gcc_options
*opts_set
,
2055 location_t loc
, diagnostic_context
*dc
)
2060 new_option
= XNEWVEC (char, strlen (arg
) + 2);
2061 new_option
[0] = 'W';
2062 strcpy (new_option
+ 1, arg
);
2063 option_index
= find_opt (new_option
, lang_mask
);
2064 if (option_index
== OPT_SPECIAL_unknown
)
2066 error_at (loc
, "-Werror=%s: no option -%s", arg
, new_option
);
2070 const diagnostic_t kind
= value
? DK_ERROR
: DK_WARNING
;
2072 control_warning_option (option_index
, (int) kind
, value
,
2074 handlers
, opts
, opts_set
, dc
);
2075 if (option_index
== OPT_Wuninitialized
)
2076 enable_warning_as_error ("maybe-uninitialized", value
, lang_mask
,
2077 handlers
, opts
, opts_set
, loc
, dc
);
2082 /* Return malloced memory for the name of the option OPTION_INDEX
2083 which enabled a diagnostic (context CONTEXT), originally of type
2084 ORIG_DIAG_KIND but possibly converted to DIAG_KIND by options such
2088 option_name (diagnostic_context
*context
, int option_index
,
2089 diagnostic_t orig_diag_kind
, diagnostic_t diag_kind
)
2093 /* A warning classified as an error. */
2094 if ((orig_diag_kind
== DK_WARNING
|| orig_diag_kind
== DK_PEDWARN
)
2095 && diag_kind
== DK_ERROR
)
2096 return concat (cl_options
[OPT_Werror_
].opt_text
,
2097 /* Skip over "-W". */
2098 cl_options
[option_index
].opt_text
+ 2,
2100 /* A warning with option. */
2102 return xstrdup (cl_options
[option_index
].opt_text
);
2104 /* A warning without option classified as an error. */
2105 else if (orig_diag_kind
== DK_WARNING
|| orig_diag_kind
== DK_PEDWARN
2106 || diag_kind
== DK_WARNING
)
2108 if (context
->warning_as_error_requested
)
2109 return xstrdup (cl_options
[OPT_Werror
].opt_text
);
2111 return xstrdup (_("enabled by default"));