1 /* Command line option handling.
2 Copyright (C) 2002-2015 Free Software Foundation, Inc.
3 Contributed by Neil Booth.
5 This file is part of GCC.
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 3, or (at your option) any later
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
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
24 #include "coretypes.h"
29 #include "diagnostic.h"
30 #include "opts-diagnostic.h"
31 #include "insn-attr-common.h"
32 #include "common/common-target.h"
34 static void set_Wstrict_aliasing (struct gcc_options
*opts
, int onoff
);
36 /* Indexed by enum debug_info_type. */
37 const char *const debug_type_names
[] =
39 "none", "stabs", "coff", "dwarf-2", "xcoff", "vms"
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 /* Strip off a legitimate source ending from the input string NAME of
139 length LEN. Rather than having to know the names used by all of
140 our front ends, we strip off an ending of a period followed by
141 up to five characters. (Java uses ".class".) */
144 strip_off_ending (char *name
, int len
)
147 for (i
= 2; i
< 6 && len
> i
; i
++)
149 if (name
[len
- i
] == '.')
151 name
[len
- i
] = '\0';
157 /* Find the base name of a path, stripping off both directories and
158 a single final extension. */
160 base_of_path (const char *path
, const char **base_out
)
162 const char *base
= path
;
164 const char *p
= path
;
168 if (IS_DIR_SEPARATOR (c
))
183 /* What to print when a switch has no documentation. */
184 static const char undocumented_msg
[] = N_("This option lacks documentation.");
185 static const char use_diagnosed_msg
[] = N_("Uses of this option are diagnosed.");
187 typedef char *char_p
; /* For DEF_VEC_P. */
189 static void handle_param (struct gcc_options
*opts
,
190 struct gcc_options
*opts_set
, location_t loc
,
192 static void set_debug_level (enum debug_info_type type
, int extended
,
193 const char *arg
, struct gcc_options
*opts
,
194 struct gcc_options
*opts_set
,
196 static void set_fast_math_flags (struct gcc_options
*opts
, int set
);
197 static void decode_d_option (const char *arg
, struct gcc_options
*opts
,
198 location_t loc
, diagnostic_context
*dc
);
199 static void set_unsafe_math_optimizations_flags (struct gcc_options
*opts
,
201 static void enable_warning_as_error (const char *arg
, int value
,
202 unsigned int lang_mask
,
203 const struct cl_option_handlers
*handlers
,
204 struct gcc_options
*opts
,
205 struct gcc_options
*opts_set
,
207 diagnostic_context
*dc
);
209 /* Handle a back-end option; arguments and return value as for
213 target_handle_option (struct gcc_options
*opts
,
214 struct gcc_options
*opts_set
,
215 const struct cl_decoded_option
*decoded
,
216 unsigned int lang_mask ATTRIBUTE_UNUSED
, int kind
,
218 const struct cl_option_handlers
*handlers ATTRIBUTE_UNUSED
,
219 diagnostic_context
*dc
)
221 gcc_assert (dc
== global_dc
);
222 gcc_assert (kind
== DK_UNSPECIFIED
);
223 return targetm_common
.handle_option (opts
, opts_set
, decoded
, loc
);
226 /* Add comma-separated strings to a char_p vector. */
229 add_comma_separated_to_vector (void **pvec
, const char *arg
)
235 vec
<char_p
> *v
= (vec
<char_p
> *) *pvec
;
237 vec_check_alloc (v
, 1);
239 /* We never free this string. */
252 v
->safe_push (token_start
);
255 if (*r
== '\\' && r
[1] == ',')
263 if (*token_start
!= '\0')
264 v
->safe_push (token_start
);
269 /* Initialize opts_obstack if not initialized. */
272 init_opts_obstack (void)
274 static bool opts_obstack_initialized
= false;
276 if (!opts_obstack_initialized
)
278 opts_obstack_initialized
= true;
279 gcc_obstack_init (&opts_obstack
);
283 /* Initialize OPTS and OPTS_SET before using them in parsing options. */
286 init_options_struct (struct gcc_options
*opts
, struct gcc_options
*opts_set
)
288 size_t num_params
= get_num_compiler_params ();
290 init_opts_obstack ();
292 *opts
= global_options_init
;
295 memset (opts_set
, 0, sizeof (*opts_set
));
297 opts
->x_param_values
= XNEWVEC (int, num_params
);
300 opts_set
->x_param_values
= XCNEWVEC (int, num_params
);
302 init_param_values (opts
->x_param_values
);
304 /* Initialize whether `char' is signed. */
305 opts
->x_flag_signed_char
= DEFAULT_SIGNED_CHAR
;
306 /* Set this to a special "uninitialized" value. The actual default
307 is set after target options have been processed. */
308 opts
->x_flag_short_enums
= 2;
310 /* Initialize target_flags before default_options_optimization
311 so the latter can modify it. */
312 opts
->x_target_flags
= targetm_common
.default_target_flags
;
314 /* Some targets have ABI-specified unwind tables. */
315 opts
->x_flag_unwind_tables
= targetm_common
.unwind_tables_default
;
317 /* Some targets have other target-specific initialization. */
318 targetm_common
.option_init_struct (opts
);
321 /* Release any allocations owned by OPTS. */
324 finalize_options_struct (struct gcc_options
*opts
)
326 XDELETEVEC (opts
->x_param_values
);
329 /* If indicated by the optimization level LEVEL (-Os if SIZE is set,
330 -Ofast if FAST is set, -Og if DEBUG is set), apply the option DEFAULT_OPT
331 to OPTS and OPTS_SET, diagnostic context DC, location LOC, with language
332 mask LANG_MASK and option handlers HANDLERS. */
335 maybe_default_option (struct gcc_options
*opts
,
336 struct gcc_options
*opts_set
,
337 const struct default_options
*default_opt
,
338 int level
, bool size
, bool fast
, bool debug
,
339 unsigned int lang_mask
,
340 const struct cl_option_handlers
*handlers
,
342 diagnostic_context
*dc
)
344 const struct cl_option
*option
= &cl_options
[default_opt
->opt_index
];
348 gcc_assert (level
== 2);
350 gcc_assert (level
== 3);
352 gcc_assert (level
== 1);
354 switch (default_opt
->levels
)
360 case OPT_LEVELS_0_ONLY
:
361 enabled
= (level
== 0);
364 case OPT_LEVELS_1_PLUS
:
365 enabled
= (level
>= 1);
368 case OPT_LEVELS_1_PLUS_SPEED_ONLY
:
369 enabled
= (level
>= 1 && !size
&& !debug
);
372 case OPT_LEVELS_1_PLUS_NOT_DEBUG
:
373 enabled
= (level
>= 1 && !debug
);
376 case OPT_LEVELS_2_PLUS
:
377 enabled
= (level
>= 2);
380 case OPT_LEVELS_2_PLUS_SPEED_ONLY
:
381 enabled
= (level
>= 2 && !size
&& !debug
);
384 case OPT_LEVELS_3_PLUS
:
385 enabled
= (level
>= 3);
388 case OPT_LEVELS_3_PLUS_AND_SIZE
:
389 enabled
= (level
>= 3 || size
);
392 case OPT_LEVELS_SIZE
:
396 case OPT_LEVELS_FAST
:
400 case OPT_LEVELS_NONE
:
406 handle_generated_option (opts
, opts_set
, default_opt
->opt_index
,
407 default_opt
->arg
, default_opt
->value
,
408 lang_mask
, DK_UNSPECIFIED
, loc
,
410 else if (default_opt
->arg
== NULL
411 && !option
->cl_reject_negative
)
412 handle_generated_option (opts
, opts_set
, default_opt
->opt_index
,
413 default_opt
->arg
, !default_opt
->value
,
414 lang_mask
, DK_UNSPECIFIED
, loc
,
418 /* As indicated by the optimization level LEVEL (-Os if SIZE is set,
419 -Ofast if FAST is set), apply the options in array DEFAULT_OPTS to
420 OPTS and OPTS_SET, diagnostic context DC, location LOC, with
421 language mask LANG_MASK and option handlers HANDLERS. */
424 maybe_default_options (struct gcc_options
*opts
,
425 struct gcc_options
*opts_set
,
426 const struct default_options
*default_opts
,
427 int level
, bool size
, bool fast
, bool debug
,
428 unsigned int lang_mask
,
429 const struct cl_option_handlers
*handlers
,
431 diagnostic_context
*dc
)
435 for (i
= 0; default_opts
[i
].levels
!= OPT_LEVELS_NONE
; i
++)
436 maybe_default_option (opts
, opts_set
, &default_opts
[i
],
437 level
, size
, fast
, debug
,
438 lang_mask
, handlers
, loc
, dc
);
441 /* Table of options enabled by default at different levels. */
443 static const struct default_options default_options_table
[] =
445 /* -O1 optimizations. */
446 { OPT_LEVELS_1_PLUS
, OPT_fdefer_pop
, NULL
, 1 },
448 { OPT_LEVELS_1_PLUS
, OPT_fdelayed_branch
, NULL
, 1 },
450 { OPT_LEVELS_1_PLUS
, OPT_fguess_branch_probability
, NULL
, 1 },
451 { OPT_LEVELS_1_PLUS
, OPT_fcprop_registers
, NULL
, 1 },
452 { OPT_LEVELS_1_PLUS
, OPT_fforward_propagate
, NULL
, 1 },
453 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_fif_conversion
, NULL
, 1 },
454 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_fif_conversion2
, NULL
, 1 },
455 { OPT_LEVELS_1_PLUS
, OPT_fipa_pure_const
, NULL
, 1 },
456 { OPT_LEVELS_1_PLUS
, OPT_fipa_reference
, NULL
, 1 },
457 { OPT_LEVELS_1_PLUS
, OPT_fipa_profile
, NULL
, 1 },
458 { OPT_LEVELS_1_PLUS
, OPT_fmerge_constants
, NULL
, 1 },
459 { OPT_LEVELS_1_PLUS
, OPT_freorder_blocks
, NULL
, 1 },
460 { OPT_LEVELS_1_PLUS
, OPT_fshrink_wrap
, NULL
, 1 },
461 { OPT_LEVELS_1_PLUS
, OPT_fsplit_wide_types
, NULL
, 1 },
462 { OPT_LEVELS_1_PLUS
, OPT_ftree_ccp
, NULL
, 1 },
463 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_ftree_bit_ccp
, NULL
, 1 },
464 { OPT_LEVELS_1_PLUS
, OPT_ftree_coalesce_vars
, NULL
, 1 },
465 { OPT_LEVELS_1_PLUS
, OPT_ftree_dce
, NULL
, 1 },
466 { OPT_LEVELS_1_PLUS
, OPT_ftree_dominator_opts
, NULL
, 1 },
467 { OPT_LEVELS_1_PLUS
, OPT_ftree_dse
, NULL
, 1 },
468 { OPT_LEVELS_1_PLUS
, OPT_ftree_ter
, NULL
, 1 },
469 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_ftree_sra
, NULL
, 1 },
470 { OPT_LEVELS_1_PLUS
, OPT_ftree_fre
, NULL
, 1 },
471 { OPT_LEVELS_1_PLUS
, OPT_ftree_copy_prop
, NULL
, 1 },
472 { OPT_LEVELS_1_PLUS
, OPT_ftree_sink
, NULL
, 1 },
473 { OPT_LEVELS_1_PLUS
, OPT_ftree_ch
, NULL
, 1 },
474 { OPT_LEVELS_1_PLUS
, OPT_fcombine_stack_adjustments
, NULL
, 1 },
475 { OPT_LEVELS_1_PLUS
, OPT_fcompare_elim
, NULL
, 1 },
476 { OPT_LEVELS_1_PLUS
, OPT_ftree_slsr
, NULL
, 1 },
477 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_fbranch_count_reg
, NULL
, 1 },
478 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_fmove_loop_invariants
, NULL
, 1 },
479 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_ftree_pta
, NULL
, 1 },
480 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_fssa_phiopt
, NULL
, 1 },
482 /* -O2 optimizations. */
483 { OPT_LEVELS_2_PLUS
, OPT_finline_small_functions
, NULL
, 1 },
484 { OPT_LEVELS_2_PLUS
, OPT_findirect_inlining
, NULL
, 1 },
485 { OPT_LEVELS_2_PLUS
, OPT_fpartial_inlining
, NULL
, 1 },
486 { OPT_LEVELS_2_PLUS
, OPT_fthread_jumps
, NULL
, 1 },
487 { OPT_LEVELS_2_PLUS
, OPT_fcrossjumping
, NULL
, 1 },
488 { OPT_LEVELS_2_PLUS
, OPT_foptimize_sibling_calls
, NULL
, 1 },
489 { OPT_LEVELS_2_PLUS
, OPT_fcse_follow_jumps
, NULL
, 1 },
490 { OPT_LEVELS_2_PLUS
, OPT_fgcse
, NULL
, 1 },
491 { OPT_LEVELS_2_PLUS
, OPT_fexpensive_optimizations
, NULL
, 1 },
492 { OPT_LEVELS_2_PLUS
, OPT_frerun_cse_after_loop
, NULL
, 1 },
493 { OPT_LEVELS_2_PLUS
, OPT_fcaller_saves
, NULL
, 1 },
494 { OPT_LEVELS_2_PLUS
, OPT_fpeephole2
, NULL
, 1 },
495 #ifdef INSN_SCHEDULING
496 /* Only run the pre-regalloc scheduling pass if optimizing for speed. */
497 { OPT_LEVELS_2_PLUS_SPEED_ONLY
, OPT_fschedule_insns
, NULL
, 1 },
498 { OPT_LEVELS_2_PLUS
, OPT_fschedule_insns2
, NULL
, 1 },
500 { OPT_LEVELS_2_PLUS
, OPT_fstrict_aliasing
, NULL
, 1 },
501 { OPT_LEVELS_2_PLUS
, OPT_fstrict_overflow
, NULL
, 1 },
502 { OPT_LEVELS_2_PLUS_SPEED_ONLY
, OPT_freorder_blocks_algorithm_
, NULL
,
503 REORDER_BLOCKS_ALGORITHM_STC
},
504 { OPT_LEVELS_2_PLUS
, OPT_freorder_functions
, NULL
, 1 },
505 { OPT_LEVELS_2_PLUS
, OPT_ftree_vrp
, NULL
, 1 },
506 { OPT_LEVELS_2_PLUS
, OPT_ftree_builtin_call_dce
, NULL
, 1 },
507 { OPT_LEVELS_2_PLUS
, OPT_ftree_pre
, NULL
, 1 },
508 { OPT_LEVELS_2_PLUS
, OPT_ftree_switch_conversion
, NULL
, 1 },
509 { OPT_LEVELS_2_PLUS
, OPT_fipa_cp
, NULL
, 1 },
510 { OPT_LEVELS_2_PLUS
, OPT_fipa_cp_alignment
, NULL
, 1 },
511 { OPT_LEVELS_2_PLUS
, OPT_fdevirtualize
, NULL
, 1 },
512 { OPT_LEVELS_2_PLUS
, OPT_fdevirtualize_speculatively
, NULL
, 1 },
513 { OPT_LEVELS_2_PLUS
, OPT_fipa_sra
, NULL
, 1 },
514 { OPT_LEVELS_2_PLUS
, OPT_falign_loops
, NULL
, 1 },
515 { OPT_LEVELS_2_PLUS
, OPT_falign_jumps
, NULL
, 1 },
516 { OPT_LEVELS_2_PLUS
, OPT_falign_labels
, NULL
, 1 },
517 { OPT_LEVELS_2_PLUS
, OPT_falign_functions
, NULL
, 1 },
518 { OPT_LEVELS_2_PLUS
, OPT_ftree_tail_merge
, NULL
, 1 },
519 { OPT_LEVELS_2_PLUS
, OPT_fvect_cost_model_
, NULL
, VECT_COST_MODEL_CHEAP
},
520 { OPT_LEVELS_2_PLUS_SPEED_ONLY
, OPT_foptimize_strlen
, NULL
, 1 },
521 { OPT_LEVELS_2_PLUS
, OPT_fhoist_adjacent_loads
, NULL
, 1 },
522 { OPT_LEVELS_2_PLUS
, OPT_fipa_icf
, NULL
, 1 },
523 { OPT_LEVELS_2_PLUS
, OPT_fisolate_erroneous_paths_dereference
, NULL
, 1 },
524 { OPT_LEVELS_2_PLUS
, OPT_fipa_ra
, NULL
, 1 },
525 { OPT_LEVELS_2_PLUS
, OPT_flra_remat
, NULL
, 1 },
526 { OPT_LEVELS_2_PLUS
, OPT_fsplit_paths
, NULL
, 1 },
528 /* -O3 optimizations. */
529 { OPT_LEVELS_3_PLUS
, OPT_ftree_loop_distribute_patterns
, NULL
, 1 },
530 { OPT_LEVELS_3_PLUS
, OPT_fpredictive_commoning
, NULL
, 1 },
531 /* Inlining of functions reducing size is a good idea with -Os
532 regardless of them being declared inline. */
533 { OPT_LEVELS_3_PLUS_AND_SIZE
, OPT_finline_functions
, NULL
, 1 },
534 { OPT_LEVELS_1_PLUS_NOT_DEBUG
, OPT_finline_functions_called_once
, NULL
, 1 },
535 { OPT_LEVELS_3_PLUS
, OPT_funswitch_loops
, NULL
, 1 },
536 { OPT_LEVELS_3_PLUS
, OPT_fgcse_after_reload
, NULL
, 1 },
537 { OPT_LEVELS_3_PLUS
, OPT_ftree_loop_vectorize
, NULL
, 1 },
538 { OPT_LEVELS_3_PLUS
, OPT_ftree_slp_vectorize
, NULL
, 1 },
539 { OPT_LEVELS_3_PLUS
, OPT_fvect_cost_model_
, NULL
, VECT_COST_MODEL_DYNAMIC
},
540 { OPT_LEVELS_3_PLUS
, OPT_fipa_cp_clone
, NULL
, 1 },
541 { OPT_LEVELS_3_PLUS
, OPT_ftree_partial_pre
, NULL
, 1 },
543 /* -Ofast adds optimizations to -O3. */
544 { OPT_LEVELS_FAST
, OPT_ffast_math
, NULL
, 1 },
546 { OPT_LEVELS_NONE
, 0, NULL
, 0 }
549 /* Default the options in OPTS and OPTS_SET based on the optimization
550 settings in DECODED_OPTIONS and DECODED_OPTIONS_COUNT. */
552 default_options_optimization (struct gcc_options
*opts
,
553 struct gcc_options
*opts_set
,
554 struct cl_decoded_option
*decoded_options
,
555 unsigned int decoded_options_count
,
557 unsigned int lang_mask
,
558 const struct cl_option_handlers
*handlers
,
559 diagnostic_context
*dc
)
564 /* Scan to see what optimization level has been specified. That will
565 determine the default value of many flags. */
566 for (i
= 1; i
< decoded_options_count
; i
++)
568 struct cl_decoded_option
*opt
= &decoded_options
[i
];
569 switch (opt
->opt_index
)
572 if (*opt
->arg
== '\0')
574 opts
->x_optimize
= 1;
575 opts
->x_optimize_size
= 0;
576 opts
->x_optimize_fast
= 0;
577 opts
->x_optimize_debug
= 0;
581 const int optimize_val
= integral_argument (opt
->arg
);
582 if (optimize_val
== -1)
583 error_at (loc
, "argument to %<-O%> should be a non-negative "
584 "integer, %<g%>, %<s%> or %<fast%>");
587 opts
->x_optimize
= optimize_val
;
588 if ((unsigned int) opts
->x_optimize
> 255)
589 opts
->x_optimize
= 255;
590 opts
->x_optimize_size
= 0;
591 opts
->x_optimize_fast
= 0;
592 opts
->x_optimize_debug
= 0;
598 opts
->x_optimize_size
= 1;
600 /* Optimizing for size forces optimize to be 2. */
601 opts
->x_optimize
= 2;
602 opts
->x_optimize_fast
= 0;
603 opts
->x_optimize_debug
= 0;
607 /* -Ofast only adds flags to -O3. */
608 opts
->x_optimize_size
= 0;
609 opts
->x_optimize
= 3;
610 opts
->x_optimize_fast
= 1;
611 opts
->x_optimize_debug
= 0;
615 /* -Og selects optimization level 1. */
616 opts
->x_optimize_size
= 0;
617 opts
->x_optimize
= 1;
618 opts
->x_optimize_fast
= 0;
619 opts
->x_optimize_debug
= 1;
623 /* Ignore other options in this prescan. */
628 maybe_default_options (opts
, opts_set
, default_options_table
,
629 opts
->x_optimize
, opts
->x_optimize_size
,
630 opts
->x_optimize_fast
, opts
->x_optimize_debug
,
631 lang_mask
, handlers
, loc
, dc
);
633 /* -O2 param settings. */
634 opt2
= (opts
->x_optimize
>= 2);
636 /* Track fields in field-sensitive alias analysis. */
637 maybe_set_param_value
638 (PARAM_MAX_FIELDS_FOR_FIELD_SENSITIVE
,
639 opt2
? 100 : default_param_value (PARAM_MAX_FIELDS_FOR_FIELD_SENSITIVE
),
640 opts
->x_param_values
, opts_set
->x_param_values
);
642 /* For -O1 only do loop invariant motion for very small loops. */
643 maybe_set_param_value
644 (PARAM_LOOP_INVARIANT_MAX_BBS_IN_LOOP
,
645 opt2
? default_param_value (PARAM_LOOP_INVARIANT_MAX_BBS_IN_LOOP
) : 1000,
646 opts
->x_param_values
, opts_set
->x_param_values
);
648 /* At -Ofast, allow store motion to introduce potential race conditions. */
649 maybe_set_param_value
650 (PARAM_ALLOW_STORE_DATA_RACES
,
651 opts
->x_optimize_fast
? 1
652 : default_param_value (PARAM_ALLOW_STORE_DATA_RACES
),
653 opts
->x_param_values
, opts_set
->x_param_values
);
655 if (opts
->x_optimize_size
)
656 /* We want to crossjump as much as possible. */
657 maybe_set_param_value (PARAM_MIN_CROSSJUMP_INSNS
, 1,
658 opts
->x_param_values
, opts_set
->x_param_values
);
660 maybe_set_param_value (PARAM_MIN_CROSSJUMP_INSNS
,
661 default_param_value (PARAM_MIN_CROSSJUMP_INSNS
),
662 opts
->x_param_values
, opts_set
->x_param_values
);
664 /* Restrict the amount of work combine does at -Og while retaining
665 most of its useful transforms. */
666 if (opts
->x_optimize_debug
)
667 maybe_set_param_value (PARAM_MAX_COMBINE_INSNS
, 2,
668 opts
->x_param_values
, opts_set
->x_param_values
);
670 /* Allow default optimizations to be specified on a per-machine basis. */
671 maybe_default_options (opts
, opts_set
,
672 targetm_common
.option_optimization_table
,
673 opts
->x_optimize
, opts
->x_optimize_size
,
674 opts
->x_optimize_fast
, opts
->x_optimize_debug
,
675 lang_mask
, handlers
, loc
, dc
);
678 /* After all options at LOC have been read into OPTS and OPTS_SET,
679 finalize settings of those options and diagnose incompatible
682 finish_options (struct gcc_options
*opts
, struct gcc_options
*opts_set
,
685 enum unwind_info_type ui_except
;
687 if (opts
->x_dump_base_name
688 && ! IS_ABSOLUTE_PATH (opts
->x_dump_base_name
)
689 && ! opts
->x_dump_base_name_prefixed
)
691 /* First try to make OPTS->X_DUMP_BASE_NAME relative to the
692 OPTS->X_DUMP_DIR_NAME directory. Then try to make
693 OPTS->X_DUMP_BASE_NAME relative to the OPTS->X_AUX_BASE_NAME
694 directory, typically the directory to contain the object
696 if (opts
->x_dump_dir_name
)
697 opts
->x_dump_base_name
= opts_concat (opts
->x_dump_dir_name
,
698 opts
->x_dump_base_name
, NULL
);
699 else if (opts
->x_aux_base_name
700 && strcmp (opts
->x_aux_base_name
, HOST_BIT_BUCKET
) != 0)
702 const char *aux_base
;
704 base_of_path (opts
->x_aux_base_name
, &aux_base
);
705 if (opts
->x_aux_base_name
!= aux_base
)
707 int dir_len
= aux_base
- opts
->x_aux_base_name
;
708 char *new_dump_base_name
709 = XOBNEWVEC (&opts_obstack
, char,
710 strlen (opts
->x_dump_base_name
) + dir_len
+ 1);
712 /* Copy directory component from OPTS->X_AUX_BASE_NAME. */
713 memcpy (new_dump_base_name
, opts
->x_aux_base_name
, dir_len
);
714 /* Append existing OPTS->X_DUMP_BASE_NAME. */
715 strcpy (new_dump_base_name
+ dir_len
, opts
->x_dump_base_name
);
716 opts
->x_dump_base_name
= new_dump_base_name
;
719 opts
->x_dump_base_name_prefixed
= true;
722 /* Handle related options for unit-at-a-time, toplevel-reorder, and
724 if (!opts
->x_flag_unit_at_a_time
)
726 if (opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
)
727 error_at (loc
, "section anchors must be disabled when unit-at-a-time "
729 opts
->x_flag_section_anchors
= 0;
730 if (opts
->x_flag_toplevel_reorder
== 1)
731 error_at (loc
, "toplevel reorder must be disabled when unit-at-a-time "
733 opts
->x_flag_toplevel_reorder
= 0;
736 if (opts
->x_flag_tm
&& opts
->x_flag_non_call_exceptions
)
737 sorry ("transactional memory is not supported with non-call exceptions");
739 /* Unless the user has asked for section anchors, we disable toplevel
740 reordering at -O0 to disable transformations that might be surprising
741 to end users and to get -fno-toplevel-reorder tested. */
742 if (!opts
->x_optimize
743 && opts
->x_flag_toplevel_reorder
== 2
744 && !(opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
))
746 opts
->x_flag_toplevel_reorder
= 0;
747 opts
->x_flag_section_anchors
= 0;
749 if (!opts
->x_flag_toplevel_reorder
)
751 if (opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
)
752 error_at (loc
, "section anchors must be disabled when toplevel reorder"
754 opts
->x_flag_section_anchors
= 0;
757 if (!opts
->x_flag_opts_finished
)
759 /* We initialize opts->x_flag_pie to -1 so that targets can set a
761 if (opts
->x_flag_pie
== -1)
763 if (opts
->x_flag_pic
== 0)
764 opts
->x_flag_pie
= DEFAULT_FLAG_PIE
;
766 opts
->x_flag_pie
= 0;
768 if (opts
->x_flag_pie
)
769 opts
->x_flag_pic
= opts
->x_flag_pie
;
770 if (opts
->x_flag_pic
&& !opts
->x_flag_pie
)
771 opts
->x_flag_shlib
= 1;
772 opts
->x_flag_opts_finished
= true;
775 /* We initialize opts->x_flag_stack_protect to -1 so that targets
776 can set a default value. */
777 if (opts
->x_flag_stack_protect
== -1)
778 opts
->x_flag_stack_protect
= DEFAULT_FLAG_SSP
;
780 if (opts
->x_optimize
== 0)
782 /* Inlining does not work if not optimizing,
783 so force it not to be done. */
784 opts
->x_warn_inline
= 0;
785 opts
->x_flag_no_inline
= 1;
788 /* The optimization to partition hot and cold basic blocks into separate
789 sections of the .o and executable files does not work (currently)
790 with exception handling. This is because there is no support for
791 generating unwind info. If opts->x_flag_exceptions is turned on
792 we need to turn off the partitioning optimization. */
794 ui_except
= targetm_common
.except_unwind_info (opts
);
796 if (opts
->x_flag_exceptions
797 && opts
->x_flag_reorder_blocks_and_partition
798 && (ui_except
== UI_SJLJ
|| ui_except
>= UI_TARGET
))
800 if (opts_set
->x_flag_reorder_blocks_and_partition
)
802 "-freorder-blocks-and-partition does not work "
803 "with exceptions on this architecture");
804 opts
->x_flag_reorder_blocks_and_partition
= 0;
805 opts
->x_flag_reorder_blocks
= 1;
808 /* If user requested unwind info, then turn off the partitioning
811 if (opts
->x_flag_unwind_tables
812 && !targetm_common
.unwind_tables_default
813 && opts
->x_flag_reorder_blocks_and_partition
814 && (ui_except
== UI_SJLJ
|| ui_except
>= UI_TARGET
))
816 if (opts_set
->x_flag_reorder_blocks_and_partition
)
818 "-freorder-blocks-and-partition does not support "
819 "unwind info on this architecture");
820 opts
->x_flag_reorder_blocks_and_partition
= 0;
821 opts
->x_flag_reorder_blocks
= 1;
824 /* If the target requested unwind info, then turn off the partitioning
825 optimization with a different message. Likewise, if the target does not
826 support named sections. */
828 if (opts
->x_flag_reorder_blocks_and_partition
829 && (!targetm_common
.have_named_sections
830 || (opts
->x_flag_unwind_tables
831 && targetm_common
.unwind_tables_default
832 && (ui_except
== UI_SJLJ
|| ui_except
>= UI_TARGET
))))
834 if (opts_set
->x_flag_reorder_blocks_and_partition
)
836 "-freorder-blocks-and-partition does not work "
837 "on this architecture");
838 opts
->x_flag_reorder_blocks_and_partition
= 0;
839 opts
->x_flag_reorder_blocks
= 1;
842 /* Disable -freorder-blocks-and-partition when -fprofile-use is not in
843 effect. Function splitting was not actually being performed in that case,
844 as probably_never_executed_bb_p does not distinguish any basic blocks as
845 being cold vs hot when there is no profile data. Leaving it enabled,
846 however, causes the assembly code generator to create (empty) cold
847 sections and labels, leading to unnecessary size overhead. */
848 if (opts
->x_flag_reorder_blocks_and_partition
849 && !opts_set
->x_flag_profile_use
)
850 opts
->x_flag_reorder_blocks_and_partition
= 0;
852 if (opts
->x_flag_reorder_blocks_and_partition
853 && !opts_set
->x_flag_reorder_functions
)
854 opts
->x_flag_reorder_functions
= 1;
856 /* Pipelining of outer loops is only possible when general pipelining
857 capabilities are requested. */
858 if (!opts
->x_flag_sel_sched_pipelining
)
859 opts
->x_flag_sel_sched_pipelining_outer_loops
= 0;
861 if (opts
->x_flag_conserve_stack
)
863 maybe_set_param_value (PARAM_LARGE_STACK_FRAME
, 100,
864 opts
->x_param_values
, opts_set
->x_param_values
);
865 maybe_set_param_value (PARAM_STACK_FRAME_GROWTH
, 40,
866 opts
->x_param_values
, opts_set
->x_param_values
);
869 if (opts
->x_flag_lto
)
872 opts
->x_flag_generate_lto
= 1;
874 /* When generating IL, do not operate in whole-program mode.
875 Otherwise, symbols will be privatized too early, causing link
877 opts
->x_flag_whole_program
= 0;
879 error_at (loc
, "LTO support has not been enabled in this configuration");
881 if (!opts
->x_flag_fat_lto_objects
883 || (opts_set
->x_flag_use_linker_plugin
884 && !opts
->x_flag_use_linker_plugin
)))
886 if (opts_set
->x_flag_fat_lto_objects
)
887 error_at (loc
, "-fno-fat-lto-objects are supported only with linker plugin");
888 opts
->x_flag_fat_lto_objects
= 1;
892 /* We initialize opts->x_flag_split_stack to -1 so that targets can set a
893 default value if they choose based on other options. */
894 if (opts
->x_flag_split_stack
== -1)
895 opts
->x_flag_split_stack
= 0;
896 else if (opts
->x_flag_split_stack
)
898 if (!targetm_common
.supports_split_stack (true, opts
))
900 error_at (loc
, "%<-fsplit-stack%> is not supported by "
901 "this compiler configuration");
902 opts
->x_flag_split_stack
= 0;
906 /* Tune vectorization related parametees according to cost model. */
907 if (opts
->x_flag_vect_cost_model
== VECT_COST_MODEL_CHEAP
)
909 maybe_set_param_value (PARAM_VECT_MAX_VERSION_FOR_ALIAS_CHECKS
,
910 6, opts
->x_param_values
, opts_set
->x_param_values
);
911 maybe_set_param_value (PARAM_VECT_MAX_VERSION_FOR_ALIGNMENT_CHECKS
,
912 0, opts
->x_param_values
, opts_set
->x_param_values
);
913 maybe_set_param_value (PARAM_VECT_MAX_PEELING_FOR_ALIGNMENT
,
914 0, opts
->x_param_values
, opts_set
->x_param_values
);
917 /* Set PARAM_MAX_STORES_TO_SINK to 0 if either vectorization or if-conversion
919 if ((!opts
->x_flag_tree_loop_vectorize
&& !opts
->x_flag_tree_slp_vectorize
)
920 || !opts
->x_flag_tree_loop_if_convert
)
921 maybe_set_param_value (PARAM_MAX_STORES_TO_SINK
, 0,
922 opts
->x_param_values
, opts_set
->x_param_values
);
924 /* The -gsplit-dwarf option requires -ggnu-pubnames. */
925 if (opts
->x_dwarf_split_debug_info
)
926 opts
->x_debug_generate_pub_sections
= 2;
928 /* Userspace and kernel ASan conflict with each other. */
930 if ((opts
->x_flag_sanitize
& SANITIZE_USER_ADDRESS
)
931 && (opts
->x_flag_sanitize
& SANITIZE_KERNEL_ADDRESS
))
933 "-fsanitize=address is incompatible with "
934 "-fsanitize=kernel-address");
938 if ((opts
->x_flag_sanitize
& SANITIZE_ADDRESS
)
939 && (opts
->x_flag_sanitize
& SANITIZE_THREAD
))
941 "-fsanitize=address and -fsanitize=kernel-address "
942 "are incompatible with -fsanitize=thread");
944 /* Error recovery is not allowed for ASan and TSan. */
946 if (opts
->x_flag_sanitize_recover
& SANITIZE_USER_ADDRESS
)
947 error_at (loc
, "-fsanitize-recover=address is not supported");
949 if (opts
->x_flag_sanitize_recover
& SANITIZE_THREAD
)
950 error_at (loc
, "-fsanitize-recover=thread is not supported");
952 if (opts
->x_flag_sanitize_recover
& SANITIZE_LEAK
)
953 error_at (loc
, "-fsanitize-recover=leak is not supported");
955 /* When instrumenting the pointers, we don't want to remove
956 the null pointer checks. */
957 if (opts
->x_flag_sanitize
& (SANITIZE_NULL
| SANITIZE_NONNULL_ATTRIBUTE
958 | SANITIZE_RETURNS_NONNULL_ATTRIBUTE
))
959 opts
->x_flag_delete_null_pointer_checks
= 0;
961 /* Aggressive compiler optimizations may cause false negatives. */
962 if (opts
->x_flag_sanitize
)
964 opts
->x_flag_aggressive_loop_optimizations
= 0;
965 opts
->x_flag_strict_overflow
= 0;
969 #define LEFT_COLUMN 27
971 /* Output ITEM, of length ITEM_WIDTH, in the left column,
972 followed by word-wrapped HELP in a second column. */
974 wrap_help (const char *help
,
976 unsigned int item_width
,
977 unsigned int columns
)
979 unsigned int col_width
= LEFT_COLUMN
;
980 unsigned int remaining
, room
, len
;
982 remaining
= strlen (help
);
986 room
= columns
- 3 - MAX (col_width
, item_width
);
995 for (i
= 0; help
[i
]; i
++)
997 if (i
>= room
&& len
!= remaining
)
1001 else if ((help
[i
] == '-' || help
[i
] == '/')
1002 && help
[i
+ 1] != ' '
1003 && i
> 0 && ISALPHA (help
[i
- 1]))
1008 printf (" %-*.*s %.*s\n", col_width
, item_width
, item
, len
, help
);
1010 while (help
[len
] == ' ')
1018 /* Print help for a specific front-end, etc. */
1020 print_filtered_help (unsigned int include_flags
,
1021 unsigned int exclude_flags
,
1022 unsigned int any_flags
,
1023 unsigned int columns
,
1024 struct gcc_options
*opts
,
1025 unsigned int lang_mask
)
1030 bool displayed
= false;
1033 if (include_flags
== CL_PARAMS
)
1035 for (i
= 0; i
< LAST_PARAM
; i
++)
1037 const char *param
= compiler_params
[i
].option
;
1039 help
= compiler_params
[i
].help
;
1040 if (help
== NULL
|| *help
== '\0')
1042 if (exclude_flags
& CL_UNDOCUMENTED
)
1044 help
= undocumented_msg
;
1047 /* Get the translation. */
1050 if (!opts
->x_quiet_flag
)
1052 snprintf (new_help
, sizeof (new_help
),
1053 _("default %d minimum %d maximum %d"),
1054 compiler_params
[i
].default_value
,
1055 compiler_params
[i
].min_value
,
1056 compiler_params
[i
].max_value
);
1059 wrap_help (help
, param
, strlen (param
), columns
);
1065 if (!opts
->x_help_printed
)
1066 opts
->x_help_printed
= XCNEWVAR (char, cl_options_count
);
1068 if (!opts
->x_help_enum_printed
)
1069 opts
->x_help_enum_printed
= XCNEWVAR (char, cl_enums_count
);
1071 for (i
= 0; i
< cl_options_count
; i
++)
1073 const struct cl_option
*option
= cl_options
+ i
;
1078 if (include_flags
== 0
1079 || ((option
->flags
& include_flags
) != include_flags
))
1081 if ((option
->flags
& any_flags
) == 0)
1085 /* Skip unwanted switches. */
1086 if ((option
->flags
& exclude_flags
) != 0)
1089 /* The driver currently prints its own help text. */
1090 if ((option
->flags
& CL_DRIVER
) != 0
1091 && (option
->flags
& (((1U << cl_lang_count
) - 1)
1092 | CL_COMMON
| CL_TARGET
)) == 0)
1096 /* Skip switches that have already been printed. */
1097 if (opts
->x_help_printed
[i
])
1100 opts
->x_help_printed
[i
] = true;
1102 help
= option
->help
;
1105 if (exclude_flags
& CL_UNDOCUMENTED
)
1108 help
= undocumented_msg
;
1111 if (option
->alias_target
< N_OPTS
1112 && cl_options
[option
->alias_target
].help
)
1114 if (help
== undocumented_msg
)
1116 /* For undocumented options that are aliases for other options
1117 that are documented, point the reader to the other option in
1118 preference of the former. */
1119 snprintf (new_help
, sizeof new_help
,
1120 _("Same as %s. Use the latter option instead."),
1121 cl_options
[option
->alias_target
].opt_text
);
1125 /* For documented options with aliases, mention the aliased
1126 option's name for reference. */
1127 snprintf (new_help
, sizeof new_help
,
1128 _("%s Same as %s."),
1129 help
, cl_options
[option
->alias_target
].opt_text
);
1135 if (option
->warn_message
)
1137 /* Mention that the use of the option will trigger a warning. */
1138 if (help
== new_help
)
1139 snprintf (new_help
+ strlen (new_help
),
1140 sizeof new_help
- strlen (new_help
),
1141 " %s", _(use_diagnosed_msg
));
1143 snprintf (new_help
, sizeof new_help
,
1144 "%s %s", help
, _(use_diagnosed_msg
));
1149 /* Get the translation. */
1152 /* Find the gap between the name of the
1153 option and its descriptive text. */
1154 tab
= strchr (help
, '\t');
1163 opt
= option
->opt_text
;
1167 /* With the -Q option enabled we change the descriptive text associated
1168 with an option to be an indication of its current setting. */
1169 if (!opts
->x_quiet_flag
)
1171 void *flag_var
= option_flag_var (i
, opts
);
1173 if (len
< (LEFT_COLUMN
+ 2))
1174 strcpy (new_help
, "\t\t");
1176 strcpy (new_help
, "\t");
1178 if (flag_var
!= NULL
1179 && option
->var_type
!= CLVC_DEFER
)
1181 if (option
->flags
& CL_JOINED
)
1183 if (option
->var_type
== CLVC_STRING
)
1185 if (* (const char **) flag_var
!= NULL
)
1186 snprintf (new_help
+ strlen (new_help
),
1187 sizeof (new_help
) - strlen (new_help
),
1188 "%s", * (const char **) flag_var
);
1190 else if (option
->var_type
== CLVC_ENUM
)
1192 const struct cl_enum
*e
= &cl_enums
[option
->var_enum
];
1194 const char *arg
= NULL
;
1196 value
= e
->get (flag_var
);
1197 enum_value_to_arg (e
->values
, &arg
, value
, lang_mask
);
1199 arg
= _("[default]");
1200 snprintf (new_help
+ strlen (new_help
),
1201 sizeof (new_help
) - strlen (new_help
),
1205 sprintf (new_help
+ strlen (new_help
),
1206 "%#x", * (int *) flag_var
);
1209 strcat (new_help
, option_enabled (i
, opts
)
1210 ? _("[enabled]") : _("[disabled]"));
1216 wrap_help (help
, opt
, len
, columns
);
1219 if (option
->var_type
== CLVC_ENUM
1220 && opts
->x_help_enum_printed
[option
->var_enum
] != 2)
1221 opts
->x_help_enum_printed
[option
->var_enum
] = 1;
1226 unsigned int langs
= include_flags
& CL_LANG_ALL
;
1229 printf (_(" No options with the desired characteristics were found\n"));
1234 /* PR 31349: Tell the user how to see all of the
1235 options supported by a specific front end. */
1236 for (i
= 0; (1U << i
) < CL_LANG_ALL
; i
++)
1237 if ((1U << i
) & langs
)
1238 printf (_(" None found. Use --help=%s to show *all* the options supported by the %s front-end.\n"),
1239 lang_names
[i
], lang_names
[i
]);
1243 else if (! displayed
)
1244 printf (_(" All options with the desired characteristics have already been displayed\n"));
1248 /* Print details of enumerated option arguments, if those
1249 enumerations have help text headings provided. If no help text
1250 is provided, presume that the possible values are listed in the
1251 help text for the relevant options. */
1252 for (i
= 0; i
< cl_enums_count
; i
++)
1254 unsigned int j
, pos
;
1256 if (opts
->x_help_enum_printed
[i
] != 1)
1258 if (cl_enums
[i
].help
== NULL
)
1260 printf (" %s\n ", _(cl_enums
[i
].help
));
1262 for (j
= 0; cl_enums
[i
].values
[j
].arg
!= NULL
; j
++)
1264 unsigned int len
= strlen (cl_enums
[i
].values
[j
].arg
);
1266 if (pos
> 4 && pos
+ 1 + len
<= columns
)
1268 printf (" %s", cl_enums
[i
].values
[j
].arg
);
1278 printf ("%s", cl_enums
[i
].values
[j
].arg
);
1283 opts
->x_help_enum_printed
[i
] = 2;
1287 /* Display help for a specified type of option.
1288 The options must have ALL of the INCLUDE_FLAGS set
1289 ANY of the flags in the ANY_FLAGS set
1290 and NONE of the EXCLUDE_FLAGS set. The current option state is in
1291 OPTS; LANG_MASK is used for interpreting enumerated option state. */
1293 print_specific_help (unsigned int include_flags
,
1294 unsigned int exclude_flags
,
1295 unsigned int any_flags
,
1296 struct gcc_options
*opts
,
1297 unsigned int lang_mask
)
1299 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1300 const char * description
= NULL
;
1301 const char * descrip_extra
= "";
1305 /* Sanity check: Make sure that we do not have more
1306 languages than we have bits available to enumerate them. */
1307 gcc_assert ((1U << cl_lang_count
) <= CL_MIN_OPTION_CLASS
);
1309 /* If we have not done so already, obtain
1310 the desired maximum width of the output. */
1311 if (opts
->x_help_columns
== 0)
1313 opts
->x_help_columns
= get_terminal_width ();
1314 if (opts
->x_help_columns
== INT_MAX
)
1315 /* Use a reasonable default. */
1316 opts
->x_help_columns
= 80;
1319 /* Decide upon the title for the options that we are going to display. */
1320 for (i
= 0, flag
= 1; flag
<= CL_MAX_OPTION_CLASS
; flag
<<= 1, i
++)
1322 switch (flag
& include_flags
)
1329 description
= _("The following options are target specific");
1332 description
= _("The following options control compiler warning messages");
1334 case CL_OPTIMIZATION
:
1335 description
= _("The following options control optimizations");
1338 description
= _("The following options are language-independent");
1341 description
= _("The --param option recognizes the following as parameters");
1344 if (i
>= cl_lang_count
)
1346 if (exclude_flags
& all_langs_mask
)
1347 description
= _("The following options are specific to just the language ");
1349 description
= _("The following options are supported by the language ");
1350 descrip_extra
= lang_names
[i
];
1355 if (description
== NULL
)
1359 if (include_flags
& CL_UNDOCUMENTED
)
1360 description
= _("The following options are not documented");
1361 else if (include_flags
& CL_SEPARATE
)
1362 description
= _("The following options take separate arguments");
1363 else if (include_flags
& CL_JOINED
)
1364 description
= _("The following options take joined arguments");
1367 internal_error ("unrecognized include_flags 0x%x passed to print_specific_help",
1374 if (any_flags
& all_langs_mask
)
1375 description
= _("The following options are language-related");
1377 description
= _("The following options are language-independent");
1381 printf ("%s%s:\n", description
, descrip_extra
);
1382 print_filtered_help (include_flags
, exclude_flags
, any_flags
,
1383 opts
->x_help_columns
, opts
, lang_mask
);
1386 /* Enable FDO-related flags. */
1389 enable_fdo_optimizations (struct gcc_options
*opts
,
1390 struct gcc_options
*opts_set
,
1393 if (!opts_set
->x_flag_branch_probabilities
)
1394 opts
->x_flag_branch_probabilities
= value
;
1395 if (!opts_set
->x_flag_profile_values
)
1396 opts
->x_flag_profile_values
= value
;
1397 if (!opts_set
->x_flag_unroll_loops
)
1398 opts
->x_flag_unroll_loops
= value
;
1399 if (!opts_set
->x_flag_peel_loops
)
1400 opts
->x_flag_peel_loops
= value
;
1401 if (!opts_set
->x_flag_tracer
)
1402 opts
->x_flag_tracer
= value
;
1403 if (!opts_set
->x_flag_value_profile_transformations
)
1404 opts
->x_flag_value_profile_transformations
= value
;
1405 if (!opts_set
->x_flag_inline_functions
)
1406 opts
->x_flag_inline_functions
= value
;
1407 if (!opts_set
->x_flag_ipa_cp
)
1408 opts
->x_flag_ipa_cp
= value
;
1409 if (!opts_set
->x_flag_ipa_cp_clone
1410 && value
&& opts
->x_flag_ipa_cp
)
1411 opts
->x_flag_ipa_cp_clone
= value
;
1412 if (!opts_set
->x_flag_ipa_cp_alignment
1413 && value
&& opts
->x_flag_ipa_cp
)
1414 opts
->x_flag_ipa_cp_alignment
= value
;
1415 if (!opts_set
->x_flag_predictive_commoning
)
1416 opts
->x_flag_predictive_commoning
= value
;
1417 if (!opts_set
->x_flag_unswitch_loops
)
1418 opts
->x_flag_unswitch_loops
= value
;
1419 if (!opts_set
->x_flag_gcse_after_reload
)
1420 opts
->x_flag_gcse_after_reload
= value
;
1421 if (!opts_set
->x_flag_tree_loop_vectorize
1422 && !opts_set
->x_flag_tree_vectorize
)
1423 opts
->x_flag_tree_loop_vectorize
= value
;
1424 if (!opts_set
->x_flag_tree_slp_vectorize
1425 && !opts_set
->x_flag_tree_vectorize
)
1426 opts
->x_flag_tree_slp_vectorize
= value
;
1427 if (!opts_set
->x_flag_vect_cost_model
)
1428 opts
->x_flag_vect_cost_model
= VECT_COST_MODEL_DYNAMIC
;
1429 if (!opts_set
->x_flag_tree_loop_distribute_patterns
)
1430 opts
->x_flag_tree_loop_distribute_patterns
= value
;
1433 /* Handle target- and language-independent options. Return zero to
1434 generate an "unknown option" message. Only options that need
1435 extra handling need to be listed here; if you simply want
1436 DECODED->value assigned to a variable, it happens automatically. */
1439 common_handle_option (struct gcc_options
*opts
,
1440 struct gcc_options
*opts_set
,
1441 const struct cl_decoded_option
*decoded
,
1442 unsigned int lang_mask
, int kind ATTRIBUTE_UNUSED
,
1444 const struct cl_option_handlers
*handlers
,
1445 diagnostic_context
*dc
)
1447 size_t scode
= decoded
->opt_index
;
1448 const char *arg
= decoded
->arg
;
1449 int value
= decoded
->value
;
1450 enum opt_code code
= (enum opt_code
) scode
;
1452 gcc_assert (decoded
->canonical_option_num_elements
<= 2);
1457 handle_param (opts
, opts_set
, loc
, arg
);
1462 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1463 unsigned int undoc_mask
;
1466 if (lang_mask
== CL_DRIVER
)
1469 undoc_mask
= ((opts
->x_verbose_flag
| opts
->x_extra_warnings
)
1472 /* First display any single language specific options. */
1473 for (i
= 0; i
< cl_lang_count
; i
++)
1475 (1U << i
, (all_langs_mask
& (~ (1U << i
))) | undoc_mask
, 0, opts
,
1477 /* Next display any multi language specific options. */
1478 print_specific_help (0, undoc_mask
, all_langs_mask
, opts
, lang_mask
);
1479 /* Then display any remaining, non-language options. */
1480 for (i
= CL_MIN_OPTION_CLASS
; i
<= CL_MAX_OPTION_CLASS
; i
<<= 1)
1482 print_specific_help (i
, undoc_mask
, 0, opts
, lang_mask
);
1483 opts
->x_exit_after_options
= true;
1487 case OPT__target_help
:
1488 if (lang_mask
== CL_DRIVER
)
1491 print_specific_help (CL_TARGET
, CL_UNDOCUMENTED
, 0, opts
, lang_mask
);
1492 opts
->x_exit_after_options
= true;
1497 const char * a
= arg
;
1498 unsigned int include_flags
= 0;
1499 /* Note - by default we include undocumented options when listing
1500 specific classes. If you only want to see documented options
1501 then add ",^undocumented" to the --help= option. E.g.:
1503 --help=target,^undocumented */
1504 unsigned int exclude_flags
= 0;
1506 if (lang_mask
== CL_DRIVER
)
1509 /* Walk along the argument string, parsing each word in turn.
1511 arg = [^]{word}[,{arg}]
1512 word = {optimizers|target|warnings|undocumented|
1513 params|common|<language>} */
1518 const char * string
;
1523 { "optimizers", CL_OPTIMIZATION
},
1524 { "target", CL_TARGET
},
1525 { "warnings", CL_WARNING
},
1526 { "undocumented", CL_UNDOCUMENTED
},
1527 { "params", CL_PARAMS
},
1528 { "joined", CL_JOINED
},
1529 { "separate", CL_SEPARATE
},
1530 { "common", CL_COMMON
},
1533 unsigned int * pflags
;
1535 unsigned int lang_flag
, specific_flag
;
1542 pflags
= & exclude_flags
;
1545 pflags
= & include_flags
;
1547 comma
= strchr (a
, ',');
1558 /* Check to see if the string matches an option class name. */
1559 for (i
= 0, specific_flag
= 0; specifics
[i
].string
!= NULL
; i
++)
1560 if (strncasecmp (a
, specifics
[i
].string
, len
) == 0)
1562 specific_flag
= specifics
[i
].flag
;
1566 /* Check to see if the string matches a language name.
1567 Note - we rely upon the alpha-sorted nature of the entries in
1568 the lang_names array, specifically that shorter names appear
1569 before their longer variants. (i.e. C before C++). That way
1570 when we are attempting to match --help=c for example we will
1571 match with C first and not C++. */
1572 for (i
= 0, lang_flag
= 0; i
< cl_lang_count
; i
++)
1573 if (strncasecmp (a
, lang_names
[i
], len
) == 0)
1575 lang_flag
= 1U << i
;
1579 if (specific_flag
!= 0)
1582 * pflags
|= specific_flag
;
1585 /* The option's argument matches both the start of a
1586 language name and the start of an option class name.
1587 We have a special case for when the user has
1588 specified "--help=c", but otherwise we have to issue
1590 if (strncasecmp (a
, "c", len
) == 0)
1591 * pflags
|= lang_flag
;
1594 "--help argument %q.*s is ambiguous, "
1595 "please be more specific",
1599 else if (lang_flag
!= 0)
1600 * pflags
|= lang_flag
;
1603 "unrecognized argument to --help= option: %q.*s",
1612 print_specific_help (include_flags
, exclude_flags
, 0, opts
,
1614 opts
->x_exit_after_options
= true;
1619 if (lang_mask
== CL_DRIVER
)
1622 opts
->x_exit_after_options
= true;
1625 case OPT_fsanitize_
:
1626 case OPT_fsanitize_recover_
:
1628 const char *p
= arg
;
1630 = code
== OPT_fsanitize_
? &opts
->x_flag_sanitize
1631 : &opts
->x_flag_sanitize_recover
;
1636 const char *const name
;
1641 { "address", SANITIZE_ADDRESS
| SANITIZE_USER_ADDRESS
,
1642 sizeof "address" - 1 },
1643 { "kernel-address", SANITIZE_ADDRESS
| SANITIZE_KERNEL_ADDRESS
,
1644 sizeof "kernel-address" - 1 },
1645 { "thread", SANITIZE_THREAD
, sizeof "thread" - 1 },
1646 { "leak", SANITIZE_LEAK
, sizeof "leak" - 1 },
1647 { "shift", SANITIZE_SHIFT
, sizeof "shift" - 1 },
1648 { "integer-divide-by-zero", SANITIZE_DIVIDE
,
1649 sizeof "integer-divide-by-zero" - 1 },
1650 { "undefined", SANITIZE_UNDEFINED
, sizeof "undefined" - 1 },
1651 { "unreachable", SANITIZE_UNREACHABLE
,
1652 sizeof "unreachable" - 1 },
1653 { "vla-bound", SANITIZE_VLA
, sizeof "vla-bound" - 1 },
1654 { "return", SANITIZE_RETURN
, sizeof "return" - 1 },
1655 { "null", SANITIZE_NULL
, sizeof "null" - 1 },
1656 { "signed-integer-overflow", SANITIZE_SI_OVERFLOW
,
1657 sizeof "signed-integer-overflow" -1 },
1658 { "bool", SANITIZE_BOOL
, sizeof "bool" - 1 },
1659 { "enum", SANITIZE_ENUM
, sizeof "enum" - 1 },
1660 { "float-divide-by-zero", SANITIZE_FLOAT_DIVIDE
,
1661 sizeof "float-divide-by-zero" - 1 },
1662 { "float-cast-overflow", SANITIZE_FLOAT_CAST
,
1663 sizeof "float-cast-overflow" - 1 },
1664 { "bounds", SANITIZE_BOUNDS
, sizeof "bounds" - 1 },
1665 { "bounds-strict", SANITIZE_BOUNDS
| SANITIZE_BOUNDS_STRICT
,
1666 sizeof "bounds-strict" - 1 },
1667 { "alignment", SANITIZE_ALIGNMENT
, sizeof "alignment" - 1 },
1668 { "nonnull-attribute", SANITIZE_NONNULL_ATTRIBUTE
,
1669 sizeof "nonnull-attribute" - 1 },
1670 { "returns-nonnull-attribute",
1671 SANITIZE_RETURNS_NONNULL_ATTRIBUTE
,
1672 sizeof "returns-nonnull-attribute" - 1 },
1673 { "object-size", SANITIZE_OBJECT_SIZE
,
1674 sizeof "object-size" - 1 },
1675 { "vptr", SANITIZE_VPTR
, sizeof "vptr" - 1 },
1676 { "all", ~0, sizeof "all" - 1 },
1683 comma
= strchr (p
, ',');
1694 /* Check to see if the string matches an option class name. */
1695 for (i
= 0; spec
[i
].name
!= NULL
; ++i
)
1696 if (len
== spec
[i
].len
1697 && memcmp (p
, spec
[i
].name
, len
) == 0)
1699 /* Handle both -fsanitize and -fno-sanitize cases. */
1700 if (value
&& spec
[i
].flag
== ~0U)
1702 if (code
== OPT_fsanitize_
)
1703 error_at (loc
, "-fsanitize=all option is not valid");
1705 *flag
|= ~(SANITIZE_USER_ADDRESS
| SANITIZE_THREAD
1709 *flag
|= spec
[i
].flag
;
1711 *flag
&= ~spec
[i
].flag
;
1718 "unrecognized argument to -fsanitize%s= option: %q.*s",
1719 code
== OPT_fsanitize_
? "" : "-recover", (int) len
, p
);
1726 if (code
!= OPT_fsanitize_
)
1729 /* Kernel ASan implies normal ASan but does not yet support
1731 if (opts
->x_flag_sanitize
& SANITIZE_KERNEL_ADDRESS
)
1733 maybe_set_param_value (PARAM_ASAN_INSTRUMENTATION_WITH_CALL_THRESHOLD
, 0,
1734 opts
->x_param_values
,
1735 opts_set
->x_param_values
);
1736 maybe_set_param_value (PARAM_ASAN_GLOBALS
, 0,
1737 opts
->x_param_values
,
1738 opts_set
->x_param_values
);
1739 maybe_set_param_value (PARAM_ASAN_STACK
, 0,
1740 opts
->x_param_values
,
1741 opts_set
->x_param_values
);
1742 maybe_set_param_value (PARAM_ASAN_USE_AFTER_RETURN
, 0,
1743 opts
->x_param_values
,
1744 opts_set
->x_param_values
);
1750 case OPT_fasan_shadow_offset_
:
1754 case OPT_fsanitize_recover
:
1756 opts
->x_flag_sanitize_recover
1757 |= SANITIZE_UNDEFINED
| SANITIZE_NONDEFAULT
;
1759 opts
->x_flag_sanitize_recover
1760 &= ~(SANITIZE_UNDEFINED
| SANITIZE_NONDEFAULT
);
1767 /* Currently handled in a prescan. */
1771 dc
->warning_as_error_requested
= value
;
1775 if (lang_mask
== CL_DRIVER
)
1778 enable_warning_as_error (arg
, value
, lang_mask
, handlers
,
1779 opts
, opts_set
, loc
, dc
);
1782 case OPT_Wlarger_than_
:
1783 opts
->x_larger_than_size
= value
;
1784 opts
->x_warn_larger_than
= value
!= -1;
1787 case OPT_Wfatal_errors
:
1788 dc
->fatal_errors
= value
;
1791 case OPT_Wframe_larger_than_
:
1792 opts
->x_frame_larger_than_size
= value
;
1793 opts
->x_warn_frame_larger_than
= value
!= -1;
1796 case OPT_Wstack_usage_
:
1797 opts
->x_warn_stack_usage
= value
;
1798 opts
->x_flag_stack_usage_info
= value
!= -1;
1801 case OPT_Wstrict_aliasing
:
1802 set_Wstrict_aliasing (opts
, value
);
1805 case OPT_Wstrict_overflow
:
1806 opts
->x_warn_strict_overflow
= (value
1807 ? (int) WARN_STRICT_OVERFLOW_CONDITIONAL
1811 case OPT_Wsystem_headers
:
1812 dc
->dc_warn_system_headers
= value
;
1816 opts
->x_flag_gen_aux_info
= 1;
1819 case OPT_auxbase_strip
:
1821 char *tmp
= xstrdup (arg
);
1822 strip_off_ending (tmp
, strlen (tmp
));
1824 opts
->x_aux_base_name
= tmp
;
1831 decode_d_option (arg
, opts
, loc
, dc
);
1834 case OPT_fcall_used_
:
1835 case OPT_fcall_saved_
:
1843 case OPT_fdbg_cnt_list
:
1845 opts
->x_exit_after_options
= true;
1848 case OPT_fdebug_prefix_map_
:
1852 case OPT_fdiagnostics_show_location_
:
1853 diagnostic_prefixing_rule (dc
) = (diagnostic_prefixing_rule_t
) value
;
1856 case OPT_fdiagnostics_show_caret
:
1857 dc
->show_caret
= value
;
1860 case OPT_fdiagnostics_color_
:
1861 diagnostic_color_init (dc
, value
);
1864 case OPT_fdiagnostics_show_option
:
1865 dc
->show_option_requested
= value
;
1872 case OPT_ffast_math
:
1873 set_fast_math_flags (opts
, value
);
1876 case OPT_funsafe_math_optimizations
:
1877 set_unsafe_math_optimizations_flags (opts
, value
);
1884 case OPT_finline_limit_
:
1885 set_param_value ("max-inline-insns-single", value
/ 2,
1886 opts
->x_param_values
, opts_set
->x_param_values
);
1887 set_param_value ("max-inline-insns-auto", value
/ 2,
1888 opts
->x_param_values
, opts_set
->x_param_values
);
1891 case OPT_finstrument_functions_exclude_function_list_
:
1892 add_comma_separated_to_vector
1893 (&opts
->x_flag_instrument_functions_exclude_functions
, arg
);
1896 case OPT_finstrument_functions_exclude_file_list_
:
1897 add_comma_separated_to_vector
1898 (&opts
->x_flag_instrument_functions_exclude_files
, arg
);
1901 case OPT_fmessage_length_
:
1902 pp_set_line_maximum_length (dc
->printer
, value
);
1903 diagnostic_set_caret_max_width (dc
, value
);
1907 case OPT_fopt_info_
:
1915 #ifndef ACCEL_COMPILER
1916 case OPT_foffload_abi_
:
1917 error_at (loc
, "-foffload-abi option can be specified only for "
1918 "offload compiler");
1922 case OPT_fpack_struct_
:
1923 if (value
<= 0 || (value
& (value
- 1)) || value
> 16)
1925 "structure alignment must be a small power of two, not %d",
1928 opts
->x_initial_max_fld_align
= value
;
1932 case OPT_fplugin_arg_
:
1936 case OPT_fprofile_use_
:
1937 opts
->x_profile_data_prefix
= xstrdup (arg
);
1938 opts
->x_flag_profile_use
= true;
1940 /* No break here - do -fprofile-use processing. */
1941 case OPT_fprofile_use
:
1942 enable_fdo_optimizations (opts
, opts_set
, value
);
1943 if (!opts_set
->x_flag_profile_reorder_functions
)
1944 opts
->x_flag_profile_reorder_functions
= value
;
1945 /* Indirect call profiling should do all useful transformations
1946 speculative devirtualization does. */
1947 if (!opts_set
->x_flag_devirtualize_speculatively
1948 && opts
->x_flag_value_profile_transformations
)
1949 opts
->x_flag_devirtualize_speculatively
= false;
1952 case OPT_fauto_profile_
:
1953 opts
->x_auto_profile_file
= xstrdup (arg
);
1954 opts
->x_flag_auto_profile
= true;
1956 /* No break here - do -fauto-profile processing. */
1957 case OPT_fauto_profile
:
1958 enable_fdo_optimizations (opts
, opts_set
, value
);
1959 if (!opts_set
->x_flag_profile_correction
)
1960 opts
->x_flag_profile_correction
= value
;
1961 maybe_set_param_value (
1962 PARAM_EARLY_INLINER_MAX_ITERATIONS
, 10,
1963 opts
->x_param_values
, opts_set
->x_param_values
);
1966 case OPT_fprofile_generate_
:
1967 opts
->x_profile_data_prefix
= xstrdup (arg
);
1969 /* No break here - do -fprofile-generate processing. */
1970 case OPT_fprofile_generate
:
1971 if (!opts_set
->x_profile_arc_flag
)
1972 opts
->x_profile_arc_flag
= value
;
1973 if (!opts_set
->x_flag_profile_values
)
1974 opts
->x_flag_profile_values
= value
;
1975 if (!opts_set
->x_flag_inline_functions
)
1976 opts
->x_flag_inline_functions
= value
;
1977 /* FIXME: Instrumentation we insert makes ipa-reference bitmaps
1978 quadratic. Disable the pass until better memory representation
1980 if (!opts_set
->x_flag_ipa_reference
)
1981 opts
->x_flag_ipa_reference
= false;
1984 case OPT_ftree_vectorize
:
1985 if (!opts_set
->x_flag_tree_loop_vectorize
)
1986 opts
->x_flag_tree_loop_vectorize
= value
;
1987 if (!opts_set
->x_flag_tree_slp_vectorize
)
1988 opts
->x_flag_tree_slp_vectorize
= value
;
1990 case OPT_fshow_column
:
1991 dc
->show_column
= value
;
1994 case OPT_frandom_seed
:
1995 /* The real switch is -fno-random-seed. */
2001 case OPT_frandom_seed_
:
2005 case OPT_fsched_verbose_
:
2006 #ifdef INSN_SCHEDULING
2007 /* Handled with Var in common.opt. */
2013 case OPT_fsched_stalled_insns_
:
2014 opts
->x_flag_sched_stalled_insns
= value
;
2015 if (opts
->x_flag_sched_stalled_insns
== 0)
2016 opts
->x_flag_sched_stalled_insns
= -1;
2019 case OPT_fsched_stalled_insns_dep_
:
2020 opts
->x_flag_sched_stalled_insns_dep
= value
;
2023 case OPT_fstack_check_
:
2024 if (!strcmp (arg
, "no"))
2025 opts
->x_flag_stack_check
= NO_STACK_CHECK
;
2026 else if (!strcmp (arg
, "generic"))
2027 /* This is the old stack checking method. */
2028 opts
->x_flag_stack_check
= STACK_CHECK_BUILTIN
2029 ? FULL_BUILTIN_STACK_CHECK
2030 : GENERIC_STACK_CHECK
;
2031 else if (!strcmp (arg
, "specific"))
2032 /* This is the new stack checking method. */
2033 opts
->x_flag_stack_check
= STACK_CHECK_BUILTIN
2034 ? FULL_BUILTIN_STACK_CHECK
2035 : STACK_CHECK_STATIC_BUILTIN
2036 ? STATIC_BUILTIN_STACK_CHECK
2037 : GENERIC_STACK_CHECK
;
2039 warning_at (loc
, 0, "unknown stack check parameter %qs", arg
);
2042 case OPT_fstack_limit
:
2043 /* The real switch is -fno-stack-limit. */
2049 case OPT_fstack_limit_register_
:
2050 case OPT_fstack_limit_symbol_
:
2054 case OPT_fstack_usage
:
2055 opts
->x_flag_stack_usage
= value
;
2056 opts
->x_flag_stack_usage_info
= value
!= 0;
2060 set_debug_level (NO_DEBUG
, DEFAULT_GDB_EXTENSIONS
, arg
, opts
, opts_set
,
2065 set_debug_level (SDB_DEBUG
, false, arg
, opts
, opts_set
, loc
);
2069 if (arg
&& strlen (arg
) != 0)
2071 error_at (loc
, "%<-gdwarf%s%> is ambiguous; "
2072 "use %<-gdwarf-%s%> for DWARF version "
2073 "or %<-gdwarf -g%s%> for debug level", arg
, arg
, arg
);
2077 value
= opts
->x_dwarf_version
;
2081 if (value
< 2 || value
> 5)
2082 error_at (loc
, "dwarf version %d is not supported", value
);
2084 opts
->x_dwarf_version
= value
;
2085 set_debug_level (DWARF2_DEBUG
, false, "", opts
, opts_set
, loc
);
2088 case OPT_gsplit_dwarf
:
2089 set_debug_level (NO_DEBUG
, DEFAULT_GDB_EXTENSIONS
, "", opts
, opts_set
,
2094 set_debug_level (NO_DEBUG
, 2, arg
, opts
, opts_set
, loc
);
2099 set_debug_level (DBX_DEBUG
, code
== OPT_gstabs_
, arg
, opts
, opts_set
,
2104 set_debug_level (VMS_DEBUG
, false, arg
, opts
, opts_set
, loc
);
2109 set_debug_level (XCOFF_DEBUG
, code
== OPT_gxcoff_
, arg
, opts
, opts_set
,
2115 /* Handled completely via specs. */
2118 case OPT_pedantic_errors
:
2119 dc
->pedantic_errors
= 1;
2120 control_warning_option (OPT_Wpedantic
, DK_ERROR
, value
,
2122 handlers
, opts
, opts_set
,
2127 opts
->x_flag_lto
= value
? "" : NULL
;
2131 dc
->dc_inhibit_warnings
= true;
2134 case OPT_fmax_errors_
:
2135 dc
->max_errors
= value
;
2138 case OPT_fuse_ld_bfd
:
2139 case OPT_fuse_ld_gold
:
2140 case OPT_fuse_linker_plugin
:
2141 /* No-op. Used by the driver and passed to us because it starts with f.*/
2146 opts
->x_flag_trapv
= 0;
2151 opts
->x_flag_wrapv
= 0;
2155 opts
->x_flag_ipa_icf_functions
= value
;
2156 opts
->x_flag_ipa_icf_variables
= value
;
2160 /* If the flag was handled in a standard way, assume the lack of
2161 processing here is intentional. */
2162 gcc_assert (option_flag_var (scode
, opts
));
2166 common_handle_option_auto (opts
, opts_set
, decoded
, lang_mask
, kind
,
2171 /* Handle --param NAME=VALUE. */
2173 handle_param (struct gcc_options
*opts
, struct gcc_options
*opts_set
,
2174 location_t loc
, const char *carg
)
2179 arg
= xstrdup (carg
);
2180 equal
= strchr (arg
, '=');
2182 error_at (loc
, "%s: --param arguments should be of the form NAME=VALUE",
2188 enum compiler_param index
;
2189 if (!find_param (arg
, &index
))
2190 error_at (loc
, "invalid --param name %qs", arg
);
2193 if (!param_string_value_p (index
, equal
+ 1, &value
))
2194 value
= integral_argument (equal
+ 1);
2197 error_at (loc
, "invalid --param value %qs", equal
+ 1);
2199 set_param_value (arg
, value
,
2200 opts
->x_param_values
, opts_set
->x_param_values
);
2207 /* Used to set the level of strict aliasing warnings in OPTS,
2208 when no level is specified (i.e., when -Wstrict-aliasing, and not
2209 -Wstrict-aliasing=level was given).
2210 ONOFF is assumed to take value 1 when -Wstrict-aliasing is specified,
2211 and 0 otherwise. After calling this function, wstrict_aliasing will be
2212 set to the default value of -Wstrict_aliasing=level, currently 3. */
2214 set_Wstrict_aliasing (struct gcc_options
*opts
, int onoff
)
2216 gcc_assert (onoff
== 0 || onoff
== 1);
2218 opts
->x_warn_strict_aliasing
= 3;
2220 opts
->x_warn_strict_aliasing
= 0;
2223 /* The following routines are useful in setting all the flags that
2224 -ffast-math and -fno-fast-math imply. */
2226 set_fast_math_flags (struct gcc_options
*opts
, int set
)
2228 if (!opts
->frontend_set_flag_unsafe_math_optimizations
)
2230 opts
->x_flag_unsafe_math_optimizations
= set
;
2231 set_unsafe_math_optimizations_flags (opts
, set
);
2233 if (!opts
->frontend_set_flag_finite_math_only
)
2234 opts
->x_flag_finite_math_only
= set
;
2235 if (!opts
->frontend_set_flag_errno_math
)
2236 opts
->x_flag_errno_math
= !set
;
2239 if (!opts
->frontend_set_flag_signaling_nans
)
2240 opts
->x_flag_signaling_nans
= 0;
2241 if (!opts
->frontend_set_flag_rounding_math
)
2242 opts
->x_flag_rounding_math
= 0;
2243 if (!opts
->frontend_set_flag_cx_limited_range
)
2244 opts
->x_flag_cx_limited_range
= 1;
2248 /* When -funsafe-math-optimizations is set the following
2249 flags are set as well. */
2251 set_unsafe_math_optimizations_flags (struct gcc_options
*opts
, int set
)
2253 if (!opts
->frontend_set_flag_trapping_math
)
2254 opts
->x_flag_trapping_math
= !set
;
2255 if (!opts
->frontend_set_flag_signed_zeros
)
2256 opts
->x_flag_signed_zeros
= !set
;
2257 if (!opts
->frontend_set_flag_associative_math
)
2258 opts
->x_flag_associative_math
= set
;
2259 if (!opts
->frontend_set_flag_reciprocal_math
)
2260 opts
->x_flag_reciprocal_math
= set
;
2263 /* Return true iff flags in OPTS are set as if -ffast-math. */
2265 fast_math_flags_set_p (const struct gcc_options
*opts
)
2267 return (!opts
->x_flag_trapping_math
2268 && opts
->x_flag_unsafe_math_optimizations
2269 && opts
->x_flag_finite_math_only
2270 && !opts
->x_flag_signed_zeros
2271 && !opts
->x_flag_errno_math
);
2274 /* Return true iff flags are set as if -ffast-math but using the flags stored
2275 in the struct cl_optimization structure. */
2277 fast_math_flags_struct_set_p (struct cl_optimization
*opt
)
2279 return (!opt
->x_flag_trapping_math
2280 && opt
->x_flag_unsafe_math_optimizations
2281 && opt
->x_flag_finite_math_only
2282 && !opt
->x_flag_signed_zeros
2283 && !opt
->x_flag_errno_math
);
2286 /* Handle a debug output -g switch for options OPTS
2287 (OPTS_SET->x_write_symbols storing whether a debug type was passed
2288 explicitly), location LOC. EXTENDED is true or false to support
2289 extended output (2 is special and means "-ggdb" was given). */
2291 set_debug_level (enum debug_info_type type
, int extended
, const char *arg
,
2292 struct gcc_options
*opts
, struct gcc_options
*opts_set
,
2295 opts
->x_use_gnu_debug_info_extensions
= extended
;
2297 if (type
== NO_DEBUG
)
2299 if (opts
->x_write_symbols
== NO_DEBUG
)
2301 opts
->x_write_symbols
= PREFERRED_DEBUGGING_TYPE
;
2305 #if defined DWARF2_DEBUGGING_INFO || defined DWARF2_LINENO_DEBUGGING_INFO
2306 opts
->x_write_symbols
= DWARF2_DEBUG
;
2307 #elif defined DBX_DEBUGGING_INFO
2308 opts
->x_write_symbols
= DBX_DEBUG
;
2312 if (opts
->x_write_symbols
== NO_DEBUG
)
2313 warning_at (loc
, 0, "target system does not support debug output");
2318 /* Does it conflict with an already selected type? */
2319 if (opts_set
->x_write_symbols
!= NO_DEBUG
2320 && opts
->x_write_symbols
!= NO_DEBUG
2321 && type
!= opts
->x_write_symbols
)
2322 error_at (loc
, "debug format %qs conflicts with prior selection",
2323 debug_type_names
[type
]);
2324 opts
->x_write_symbols
= type
;
2325 opts_set
->x_write_symbols
= type
;
2328 /* A debug flag without a level defaults to level 2.
2329 If off or at level 1, set it to level 2, but if already
2330 at level 3, don't lower it. */
2333 if (opts
->x_debug_info_level
< DINFO_LEVEL_NORMAL
)
2334 opts
->x_debug_info_level
= DINFO_LEVEL_NORMAL
;
2338 int argval
= integral_argument (arg
);
2340 error_at (loc
, "unrecognised debug output level %qs", arg
);
2341 else if (argval
> 3)
2342 error_at (loc
, "debug output level %qs is too high", arg
);
2344 opts
->x_debug_info_level
= (enum debug_info_levels
) argval
;
2348 /* Arrange to dump core on error for diagnostic context DC. (The
2349 regular error message is still printed first, except in the case of
2353 setup_core_dumping (diagnostic_context
*dc
)
2356 signal (SIGABRT
, SIG_DFL
);
2358 #if defined(HAVE_SETRLIMIT)
2361 if (getrlimit (RLIMIT_CORE
, &rlim
) != 0)
2362 fatal_error (input_location
, "getting core file size maximum limit: %m");
2363 rlim
.rlim_cur
= rlim
.rlim_max
;
2364 if (setrlimit (RLIMIT_CORE
, &rlim
) != 0)
2365 fatal_error (input_location
,
2366 "setting core file size limit to maximum: %m");
2369 diagnostic_abort_on_error (dc
);
2372 /* Parse a -d<ARG> command line switch for OPTS, location LOC,
2373 diagnostic context DC. */
2376 decode_d_option (const char *arg
, struct gcc_options
*opts
,
2377 location_t loc
, diagnostic_context
*dc
)
2385 opts
->x_flag_debug_asm
= 1;
2388 opts
->x_flag_print_asm_name
= 1;
2391 opts
->x_flag_dump_rtl_in_asm
= 1;
2392 opts
->x_flag_print_asm_name
= 1;
2395 opts
->x_rtl_dump_and_exit
= 1;
2397 case 'D': /* These are handled by the preprocessor. */
2404 setup_core_dumping (dc
);
2407 opts
->x_flag_dump_all_passed
= true;
2411 warning_at (loc
, 0, "unrecognized gcc debugging option: %c", c
);
2416 /* Enable (or disable if VALUE is 0) a warning option ARG (language
2417 mask LANG_MASK, option handlers HANDLERS) as an error for option
2418 structures OPTS and OPTS_SET, diagnostic context DC (possibly
2419 NULL), location LOC. This is used by -Werror=. */
2422 enable_warning_as_error (const char *arg
, int value
, unsigned int lang_mask
,
2423 const struct cl_option_handlers
*handlers
,
2424 struct gcc_options
*opts
,
2425 struct gcc_options
*opts_set
,
2426 location_t loc
, diagnostic_context
*dc
)
2431 new_option
= XNEWVEC (char, strlen (arg
) + 2);
2432 new_option
[0] = 'W';
2433 strcpy (new_option
+ 1, arg
);
2434 option_index
= find_opt (new_option
, lang_mask
);
2435 if (option_index
== OPT_SPECIAL_unknown
)
2436 error_at (loc
, "-Werror=%s: no option -%s", arg
, new_option
);
2437 else if (!(cl_options
[option_index
].flags
& CL_WARNING
))
2438 error_at (loc
, "-Werror=%s: -%s is not an option that controls warnings",
2442 const diagnostic_t kind
= value
? DK_ERROR
: DK_WARNING
;
2444 control_warning_option (option_index
, (int) kind
, value
,
2446 handlers
, opts
, opts_set
, dc
);
2451 /* Return malloced memory for the name of the option OPTION_INDEX
2452 which enabled a diagnostic (context CONTEXT), originally of type
2453 ORIG_DIAG_KIND but possibly converted to DIAG_KIND by options such
2457 option_name (diagnostic_context
*context
, int option_index
,
2458 diagnostic_t orig_diag_kind
, diagnostic_t diag_kind
)
2462 /* A warning classified as an error. */
2463 if ((orig_diag_kind
== DK_WARNING
|| orig_diag_kind
== DK_PEDWARN
)
2464 && diag_kind
== DK_ERROR
)
2465 return concat (cl_options
[OPT_Werror_
].opt_text
,
2466 /* Skip over "-W". */
2467 cl_options
[option_index
].opt_text
+ 2,
2469 /* A warning with option. */
2471 return xstrdup (cl_options
[option_index
].opt_text
);
2473 /* A warning without option classified as an error. */
2474 else if ((orig_diag_kind
== DK_WARNING
|| orig_diag_kind
== DK_PEDWARN
2475 || diag_kind
== DK_WARNING
)
2476 && context
->warning_as_error_requested
)
2477 return xstrdup (cl_options
[OPT_Werror
].opt_text
);