1 /* Command line option handling.
2 Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011,
5 Free Software Foundation, Inc.
6 Contributed by Neil Booth.
8 This file is part of GCC.
10 GCC is free software; you can redistribute it and/or modify it under
11 the terms of the GNU General Public License as published by the Free
12 Software Foundation; either version 3, or (at your option) any later
15 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
16 WARRANTY; without even the implied warranty of MERCHANTABILITY or
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
20 You should have received a copy of the GNU General Public License
21 along with GCC; see the file COPYING3. If not see
22 <http://www.gnu.org/licenses/>. */
27 #include "coretypes.h"
30 #include "tm.h" /* For STACK_CHECK_BUILTIN,
31 STACK_CHECK_STATIC_BUILTIN, DEFAULT_GDB_EXTENSIONS,
32 DWARF2_DEBUGGING_INFO and DBX_DEBUGGING_INFO. */
35 #include "diagnostic.h"
36 #include "opts-diagnostic.h"
37 #include "insn-attr-common.h"
38 #include "common/common-target.h"
40 /* Indexed by enum debug_info_type. */
41 const char *const debug_type_names
[] =
43 "none", "stabs", "coff", "dwarf-2", "xcoff", "vms"
46 /* Parse the -femit-struct-debug-detailed option value
47 and set the flag variables. */
49 #define MATCH( prefix, string ) \
50 ((strncmp (prefix, string, sizeof prefix - 1) == 0) \
51 ? ((string += sizeof prefix - 1), 1) : 0)
54 set_struct_debug_option (struct gcc_options
*opts
, location_t loc
,
57 /* various labels for comparison */
58 static const char dfn_lbl
[] = "dfn:", dir_lbl
[] = "dir:", ind_lbl
[] = "ind:";
59 static const char ord_lbl
[] = "ord:", gen_lbl
[] = "gen:";
60 static const char none_lbl
[] = "none", any_lbl
[] = "any";
61 static const char base_lbl
[] = "base", sys_lbl
[] = "sys";
63 enum debug_struct_file files
= DINFO_STRUCT_FILE_ANY
;
64 /* Default is to apply to as much as possible. */
65 enum debug_info_usage usage
= DINFO_USAGE_NUM_ENUMS
;
69 if (MATCH (dfn_lbl
, spec
))
70 usage
= DINFO_USAGE_DFN
;
71 else if (MATCH (dir_lbl
, spec
))
72 usage
= DINFO_USAGE_DIR_USE
;
73 else if (MATCH (ind_lbl
, spec
))
74 usage
= DINFO_USAGE_IND_USE
;
76 /* Generics or not? */
77 if (MATCH (ord_lbl
, spec
))
79 else if (MATCH (gen_lbl
, spec
))
82 /* What allowable environment? */
83 if (MATCH (none_lbl
, spec
))
84 files
= DINFO_STRUCT_FILE_NONE
;
85 else if (MATCH (any_lbl
, spec
))
86 files
= DINFO_STRUCT_FILE_ANY
;
87 else if (MATCH (sys_lbl
, spec
))
88 files
= DINFO_STRUCT_FILE_SYS
;
89 else if (MATCH (base_lbl
, spec
))
90 files
= DINFO_STRUCT_FILE_BASE
;
93 "argument %qs to %<-femit-struct-debug-detailed%> "
97 /* Effect the specification. */
98 if (usage
== DINFO_USAGE_NUM_ENUMS
)
102 opts
->x_debug_struct_ordinary
[DINFO_USAGE_DFN
] = files
;
103 opts
->x_debug_struct_ordinary
[DINFO_USAGE_DIR_USE
] = files
;
104 opts
->x_debug_struct_ordinary
[DINFO_USAGE_IND_USE
] = files
;
108 opts
->x_debug_struct_generic
[DINFO_USAGE_DFN
] = files
;
109 opts
->x_debug_struct_generic
[DINFO_USAGE_DIR_USE
] = files
;
110 opts
->x_debug_struct_generic
[DINFO_USAGE_IND_USE
] = files
;
116 opts
->x_debug_struct_ordinary
[usage
] = files
;
118 opts
->x_debug_struct_generic
[usage
] = files
;
122 set_struct_debug_option (opts
, loc
, spec
+1);
125 /* No more -femit-struct-debug-detailed specifications.
129 "argument %qs to %<-femit-struct-debug-detailed%> unknown",
131 if (opts
->x_debug_struct_ordinary
[DINFO_USAGE_DIR_USE
]
132 < opts
->x_debug_struct_ordinary
[DINFO_USAGE_IND_USE
]
133 || opts
->x_debug_struct_generic
[DINFO_USAGE_DIR_USE
]
134 < opts
->x_debug_struct_generic
[DINFO_USAGE_IND_USE
])
136 "%<-femit-struct-debug-detailed=dir:...%> must allow "
137 "at least as much as "
138 "%<-femit-struct-debug-detailed=ind:...%>");
142 /* Handle -ftree-vectorizer-verbose=VAL for options OPTS. */
145 vect_set_verbosity_level (struct gcc_options
*opts
, int val
)
147 if (val
< MAX_VERBOSITY_LEVEL
)
148 opts
->x_user_vect_verbosity_level
= (enum vect_verbosity_levels
) val
;
150 opts
->x_user_vect_verbosity_level
151 = (enum vect_verbosity_levels
) (MAX_VERBOSITY_LEVEL
- 1);
155 /* Strip off a legitimate source ending from the input string NAME of
156 length LEN. Rather than having to know the names used by all of
157 our front ends, we strip off an ending of a period followed by
158 up to five characters. (Java uses ".class".) */
161 strip_off_ending (char *name
, int len
)
164 for (i
= 2; i
< 6 && len
> i
; i
++)
166 if (name
[len
- i
] == '.')
168 name
[len
- i
] = '\0';
174 /* Find the base name of a path, stripping off both directories and
175 a single final extension. */
177 base_of_path (const char *path
, const char **base_out
)
179 const char *base
= path
;
181 const char *p
= path
;
185 if (IS_DIR_SEPARATOR(c
))
200 /* What to print when a switch has no documentation. */
201 static const char undocumented_msg
[] = N_("This switch lacks documentation");
203 typedef char *char_p
; /* For DEF_VEC_P. */
205 DEF_VEC_ALLOC_P(char_p
,heap
);
207 static void handle_param (struct gcc_options
*opts
,
208 struct gcc_options
*opts_set
, location_t loc
,
210 static void set_debug_level (enum debug_info_type type
, int extended
,
211 const char *arg
, struct gcc_options
*opts
,
212 struct gcc_options
*opts_set
,
214 static void set_fast_math_flags (struct gcc_options
*opts
, int set
);
215 static void decode_d_option (const char *arg
, struct gcc_options
*opts
,
216 location_t loc
, diagnostic_context
*dc
);
217 static void set_unsafe_math_optimizations_flags (struct gcc_options
*opts
,
219 static void enable_warning_as_error (const char *arg
, int value
,
220 unsigned int lang_mask
,
221 const struct cl_option_handlers
*handlers
,
222 struct gcc_options
*opts
,
223 struct gcc_options
*opts_set
,
225 diagnostic_context
*dc
);
227 /* Handle a back-end option; arguments and return value as for
231 target_handle_option (struct gcc_options
*opts
,
232 struct gcc_options
*opts_set
,
233 const struct cl_decoded_option
*decoded
,
234 unsigned int lang_mask ATTRIBUTE_UNUSED
, int kind
,
236 const struct cl_option_handlers
*handlers ATTRIBUTE_UNUSED
,
237 diagnostic_context
*dc
)
239 gcc_assert (dc
== global_dc
);
240 gcc_assert (kind
== DK_UNSPECIFIED
);
241 return targetm_common
.handle_option (opts
, opts_set
, decoded
, loc
);
244 /* Add comma-separated strings to a char_p vector. */
247 add_comma_separated_to_vector (void **pvec
, const char *arg
)
253 VEC(char_p
,heap
) *vec
= (VEC(char_p
,heap
) *) *pvec
;
255 /* We never free this string. */
268 VEC_safe_push (char_p
, heap
, vec
, token_start
);
271 if (*r
== '\\' && r
[1] == ',')
279 if (*token_start
!= '\0')
280 VEC_safe_push (char_p
, heap
, vec
, token_start
);
285 /* Initialize OPTS and OPTS_SET before using them in parsing options. */
288 init_options_struct (struct gcc_options
*opts
, struct gcc_options
*opts_set
)
290 size_t num_params
= get_num_compiler_params ();
292 *opts
= global_options_init
;
293 memset (opts_set
, 0, sizeof (*opts_set
));
295 opts
->x_param_values
= XNEWVEC (int, num_params
);
296 opts_set
->x_param_values
= XCNEWVEC (int, num_params
);
297 init_param_values (opts
->x_param_values
);
299 /* Initialize whether `char' is signed. */
300 opts
->x_flag_signed_char
= DEFAULT_SIGNED_CHAR
;
301 /* Set this to a special "uninitialized" value. The actual default
302 is set after target options have been processed. */
303 opts
->x_flag_short_enums
= 2;
305 /* Initialize target_flags before default_options_optimization
306 so the latter can modify it. */
307 opts
->x_target_flags
= targetm_common
.default_target_flags
;
309 /* Some targets have ABI-specified unwind tables. */
310 opts
->x_flag_unwind_tables
= targetm_common
.unwind_tables_default
;
312 /* Some targets have other target-specific initialization. */
313 targetm_common
.option_init_struct (opts
);
316 /* If indicated by the optimization level LEVEL (-Os if SIZE is set,
317 -Ofast if FAST is set), apply the option DEFAULT_OPT to OPTS and
318 OPTS_SET, diagnostic context DC, location LOC, with language mask
319 LANG_MASK and option handlers HANDLERS. */
322 maybe_default_option (struct gcc_options
*opts
,
323 struct gcc_options
*opts_set
,
324 const struct default_options
*default_opt
,
325 int level
, bool size
, bool fast
,
326 unsigned int lang_mask
,
327 const struct cl_option_handlers
*handlers
,
329 diagnostic_context
*dc
)
331 const struct cl_option
*option
= &cl_options
[default_opt
->opt_index
];
335 gcc_assert (level
== 2);
337 gcc_assert (level
== 3);
339 switch (default_opt
->levels
)
345 case OPT_LEVELS_0_ONLY
:
346 enabled
= (level
== 0);
349 case OPT_LEVELS_1_PLUS
:
350 enabled
= (level
>= 1);
353 case OPT_LEVELS_1_PLUS_SPEED_ONLY
:
354 enabled
= (level
>= 1 && !size
);
357 case OPT_LEVELS_2_PLUS
:
358 enabled
= (level
>= 2);
361 case OPT_LEVELS_2_PLUS_SPEED_ONLY
:
362 enabled
= (level
>= 2 && !size
);
365 case OPT_LEVELS_3_PLUS
:
366 enabled
= (level
>= 3);
369 case OPT_LEVELS_3_PLUS_AND_SIZE
:
370 enabled
= (level
>= 3 || size
);
373 case OPT_LEVELS_SIZE
:
377 case OPT_LEVELS_FAST
:
381 case OPT_LEVELS_NONE
:
387 handle_generated_option (opts
, opts_set
, default_opt
->opt_index
,
388 default_opt
->arg
, default_opt
->value
,
389 lang_mask
, DK_UNSPECIFIED
, loc
,
391 else if (default_opt
->arg
== NULL
392 && !option
->cl_reject_negative
)
393 handle_generated_option (opts
, opts_set
, default_opt
->opt_index
,
394 default_opt
->arg
, !default_opt
->value
,
395 lang_mask
, DK_UNSPECIFIED
, loc
,
399 /* As indicated by the optimization level LEVEL (-Os if SIZE is set,
400 -Ofast if FAST is set), apply the options in array DEFAULT_OPTS to
401 OPTS and OPTS_SET, diagnostic context DC, location LOC, with
402 language mask LANG_MASK and option handlers HANDLERS. */
405 maybe_default_options (struct gcc_options
*opts
,
406 struct gcc_options
*opts_set
,
407 const struct default_options
*default_opts
,
408 int level
, bool size
, bool fast
,
409 unsigned int lang_mask
,
410 const struct cl_option_handlers
*handlers
,
412 diagnostic_context
*dc
)
416 for (i
= 0; default_opts
[i
].levels
!= OPT_LEVELS_NONE
; i
++)
417 maybe_default_option (opts
, opts_set
, &default_opts
[i
],
418 level
, size
, fast
, lang_mask
, handlers
, loc
, dc
);
421 /* Table of options enabled by default at different levels. */
423 static const struct default_options default_options_table
[] =
425 /* -O1 optimizations. */
426 { OPT_LEVELS_1_PLUS
, OPT_fdefer_pop
, NULL
, 1 },
428 { OPT_LEVELS_1_PLUS
, OPT_fdelayed_branch
, NULL
, 1 },
430 { OPT_LEVELS_1_PLUS
, OPT_fguess_branch_probability
, NULL
, 1 },
431 { OPT_LEVELS_1_PLUS
, OPT_fcprop_registers
, NULL
, 1 },
432 { OPT_LEVELS_1_PLUS
, OPT_fforward_propagate
, NULL
, 1 },
433 { OPT_LEVELS_1_PLUS
, OPT_fif_conversion
, NULL
, 1 },
434 { OPT_LEVELS_1_PLUS
, OPT_fif_conversion2
, NULL
, 1 },
435 { OPT_LEVELS_1_PLUS
, OPT_fipa_pure_const
, NULL
, 1 },
436 { OPT_LEVELS_1_PLUS
, OPT_fipa_reference
, NULL
, 1 },
437 { OPT_LEVELS_1_PLUS
, OPT_fipa_profile
, NULL
, 1 },
438 { OPT_LEVELS_1_PLUS
, OPT_fmerge_constants
, NULL
, 1 },
439 { OPT_LEVELS_1_PLUS
, OPT_fshrink_wrap
, NULL
, 1 },
440 { OPT_LEVELS_1_PLUS
, OPT_fsplit_wide_types
, NULL
, 1 },
441 { OPT_LEVELS_1_PLUS
, OPT_ftree_ccp
, NULL
, 1 },
442 { OPT_LEVELS_1_PLUS
, OPT_ftree_bit_ccp
, NULL
, 1 },
443 { OPT_LEVELS_1_PLUS
, OPT_ftree_dce
, NULL
, 1 },
444 { OPT_LEVELS_1_PLUS
, OPT_ftree_dominator_opts
, NULL
, 1 },
445 { OPT_LEVELS_1_PLUS
, OPT_ftree_dse
, NULL
, 1 },
446 { OPT_LEVELS_1_PLUS
, OPT_ftree_ter
, NULL
, 1 },
447 { OPT_LEVELS_1_PLUS
, OPT_ftree_sra
, NULL
, 1 },
448 { OPT_LEVELS_1_PLUS
, OPT_ftree_copyrename
, NULL
, 1 },
449 { OPT_LEVELS_1_PLUS
, OPT_ftree_fre
, NULL
, 1 },
450 { OPT_LEVELS_1_PLUS
, OPT_ftree_copy_prop
, NULL
, 1 },
451 { OPT_LEVELS_1_PLUS
, OPT_ftree_sink
, NULL
, 1 },
452 { OPT_LEVELS_1_PLUS
, OPT_ftree_ch
, NULL
, 1 },
453 { OPT_LEVELS_1_PLUS
, OPT_fcombine_stack_adjustments
, NULL
, 1 },
454 { OPT_LEVELS_1_PLUS
, OPT_fcompare_elim
, NULL
, 1 },
456 /* -O2 optimizations. */
457 { OPT_LEVELS_2_PLUS
, OPT_finline_small_functions
, NULL
, 1 },
458 { OPT_LEVELS_2_PLUS
, OPT_findirect_inlining
, NULL
, 1 },
459 { OPT_LEVELS_2_PLUS
, OPT_fpartial_inlining
, NULL
, 1 },
460 { OPT_LEVELS_2_PLUS
, OPT_fthread_jumps
, NULL
, 1 },
461 { OPT_LEVELS_2_PLUS
, OPT_fcrossjumping
, NULL
, 1 },
462 { OPT_LEVELS_2_PLUS
, OPT_foptimize_sibling_calls
, NULL
, 1 },
463 { OPT_LEVELS_2_PLUS
, OPT_fcse_follow_jumps
, NULL
, 1 },
464 { OPT_LEVELS_2_PLUS
, OPT_fgcse
, NULL
, 1 },
465 { OPT_LEVELS_2_PLUS
, OPT_fexpensive_optimizations
, NULL
, 1 },
466 { OPT_LEVELS_2_PLUS
, OPT_frerun_cse_after_loop
, NULL
, 1 },
467 { OPT_LEVELS_2_PLUS
, OPT_fcaller_saves
, NULL
, 1 },
468 { OPT_LEVELS_2_PLUS
, OPT_fpeephole2
, NULL
, 1 },
469 #ifdef INSN_SCHEDULING
470 /* Only run the pre-regalloc scheduling pass if optimizing for speed. */
471 { OPT_LEVELS_2_PLUS_SPEED_ONLY
, OPT_fschedule_insns
, NULL
, 1 },
472 { OPT_LEVELS_2_PLUS
, OPT_fschedule_insns2
, NULL
, 1 },
474 { OPT_LEVELS_2_PLUS
, OPT_fregmove
, NULL
, 1 },
475 { OPT_LEVELS_2_PLUS
, OPT_fstrict_aliasing
, NULL
, 1 },
476 { OPT_LEVELS_2_PLUS
, OPT_fstrict_overflow
, NULL
, 1 },
477 { OPT_LEVELS_2_PLUS
, OPT_freorder_blocks
, NULL
, 1 },
478 { OPT_LEVELS_2_PLUS
, OPT_freorder_functions
, NULL
, 1 },
479 { OPT_LEVELS_2_PLUS
, OPT_ftree_vrp
, NULL
, 1 },
480 { OPT_LEVELS_2_PLUS
, OPT_ftree_builtin_call_dce
, NULL
, 1 },
481 { OPT_LEVELS_2_PLUS
, OPT_ftree_pre
, NULL
, 1 },
482 { OPT_LEVELS_2_PLUS
, OPT_ftree_switch_conversion
, NULL
, 1 },
483 { OPT_LEVELS_2_PLUS
, OPT_fipa_cp
, NULL
, 1 },
484 { OPT_LEVELS_2_PLUS
, OPT_fdevirtualize
, NULL
, 1 },
485 { OPT_LEVELS_2_PLUS
, OPT_fipa_sra
, NULL
, 1 },
486 { OPT_LEVELS_2_PLUS
, OPT_falign_loops
, NULL
, 1 },
487 { OPT_LEVELS_2_PLUS
, OPT_falign_jumps
, NULL
, 1 },
488 { OPT_LEVELS_2_PLUS
, OPT_falign_labels
, NULL
, 1 },
489 { OPT_LEVELS_2_PLUS
, OPT_falign_functions
, NULL
, 1 },
490 { OPT_LEVELS_2_PLUS
, OPT_ftree_tail_merge
, NULL
, 1 },
491 { OPT_LEVELS_2_PLUS_SPEED_ONLY
, OPT_foptimize_strlen
, NULL
, 1 },
492 { OPT_LEVELS_2_PLUS
, OPT_fhoist_adjacent_loads
, NULL
, 1 },
494 /* -O3 optimizations. */
495 { OPT_LEVELS_3_PLUS
, OPT_ftree_loop_distribute_patterns
, NULL
, 1 },
496 { OPT_LEVELS_3_PLUS
, OPT_fpredictive_commoning
, NULL
, 1 },
497 /* Inlining of functions reducing size is a good idea with -Os
498 regardless of them being declared inline. */
499 { OPT_LEVELS_3_PLUS_AND_SIZE
, OPT_finline_functions
, NULL
, 1 },
500 { OPT_LEVELS_1_PLUS
, OPT_finline_functions_called_once
, NULL
, 1 },
501 { OPT_LEVELS_3_PLUS
, OPT_funswitch_loops
, NULL
, 1 },
502 { OPT_LEVELS_3_PLUS
, OPT_fgcse_after_reload
, NULL
, 1 },
503 { OPT_LEVELS_3_PLUS
, OPT_ftree_vectorize
, NULL
, 1 },
504 { OPT_LEVELS_3_PLUS
, OPT_fipa_cp_clone
, NULL
, 1 },
505 { OPT_LEVELS_3_PLUS
, OPT_ftree_partial_pre
, NULL
, 1 },
507 /* -Ofast adds optimizations to -O3. */
508 { OPT_LEVELS_FAST
, OPT_ffast_math
, NULL
, 1 },
510 { OPT_LEVELS_NONE
, 0, NULL
, 0 }
513 /* Default the options in OPTS and OPTS_SET based on the optimization
514 settings in DECODED_OPTIONS and DECODED_OPTIONS_COUNT. */
516 default_options_optimization (struct gcc_options
*opts
,
517 struct gcc_options
*opts_set
,
518 struct cl_decoded_option
*decoded_options
,
519 unsigned int decoded_options_count
,
521 unsigned int lang_mask
,
522 const struct cl_option_handlers
*handlers
,
523 diagnostic_context
*dc
)
528 /* Scan to see what optimization level has been specified. That will
529 determine the default value of many flags. */
530 for (i
= 1; i
< decoded_options_count
; i
++)
532 struct cl_decoded_option
*opt
= &decoded_options
[i
];
533 switch (opt
->opt_index
)
536 if (*opt
->arg
== '\0')
538 opts
->x_optimize
= 1;
539 opts
->x_optimize_size
= 0;
540 opts
->x_optimize_fast
= 0;
544 const int optimize_val
= integral_argument (opt
->arg
);
545 if (optimize_val
== -1)
547 "argument to %qs should be a non-negative integer",
551 opts
->x_optimize
= optimize_val
;
552 if ((unsigned int) opts
->x_optimize
> 255)
553 opts
->x_optimize
= 255;
554 opts
->x_optimize_size
= 0;
555 opts
->x_optimize_fast
= 0;
561 opts
->x_optimize_size
= 1;
563 /* Optimizing for size forces optimize to be 2. */
564 opts
->x_optimize
= 2;
565 opts
->x_optimize_fast
= 0;
569 /* -Ofast only adds flags to -O3. */
570 opts
->x_optimize_size
= 0;
571 opts
->x_optimize
= 3;
572 opts
->x_optimize_fast
= 1;
576 /* Ignore other options in this prescan. */
581 maybe_default_options (opts
, opts_set
, default_options_table
,
582 opts
->x_optimize
, opts
->x_optimize_size
,
583 opts
->x_optimize_fast
, lang_mask
, handlers
, loc
, dc
);
585 /* -O2 param settings. */
586 opt2
= (opts
->x_optimize
>= 2);
588 /* Track fields in field-sensitive alias analysis. */
589 maybe_set_param_value
590 (PARAM_MAX_FIELDS_FOR_FIELD_SENSITIVE
,
591 opt2
? 100 : default_param_value (PARAM_MAX_FIELDS_FOR_FIELD_SENSITIVE
),
592 opts
->x_param_values
, opts_set
->x_param_values
);
594 /* For -O1 only do loop invariant motion for very small loops. */
595 maybe_set_param_value
596 (PARAM_LOOP_INVARIANT_MAX_BBS_IN_LOOP
,
597 opt2
? default_param_value (PARAM_LOOP_INVARIANT_MAX_BBS_IN_LOOP
) : 1000,
598 opts
->x_param_values
, opts_set
->x_param_values
);
600 if (opts
->x_optimize_size
)
601 /* We want to crossjump as much as possible. */
602 maybe_set_param_value (PARAM_MIN_CROSSJUMP_INSNS
, 1,
603 opts
->x_param_values
, opts_set
->x_param_values
);
605 maybe_set_param_value (PARAM_MIN_CROSSJUMP_INSNS
,
606 default_param_value (PARAM_MIN_CROSSJUMP_INSNS
),
607 opts
->x_param_values
, opts_set
->x_param_values
);
609 /* Allow default optimizations to be specified on a per-machine basis. */
610 maybe_default_options (opts
, opts_set
,
611 targetm_common
.option_optimization_table
,
612 opts
->x_optimize
, opts
->x_optimize_size
,
613 opts
->x_optimize_fast
, lang_mask
, handlers
, loc
, dc
);
616 /* After all options at LOC have been read into OPTS and OPTS_SET,
617 finalize settings of those options and diagnose incompatible
620 finish_options (struct gcc_options
*opts
, struct gcc_options
*opts_set
,
623 enum unwind_info_type ui_except
;
625 if (opts
->x_dump_base_name
&& ! IS_ABSOLUTE_PATH (opts
->x_dump_base_name
))
627 /* First try to make OPTS->X_DUMP_BASE_NAME relative to the
628 OPTS->X_DUMP_DIR_NAME directory. Then try to make
629 OPTS->X_DUMP_BASE_NAME relative to the OPTS->X_AUX_BASE_NAME
630 directory, typically the directory to contain the object
632 if (opts
->x_dump_dir_name
)
633 opts
->x_dump_base_name
= concat (opts
->x_dump_dir_name
,
634 opts
->x_dump_base_name
, NULL
);
635 else if (opts
->x_aux_base_name
636 && strcmp (opts
->x_aux_base_name
, HOST_BIT_BUCKET
) != 0)
638 const char *aux_base
;
640 base_of_path (opts
->x_aux_base_name
, &aux_base
);
641 if (opts
->x_aux_base_name
!= aux_base
)
643 int dir_len
= aux_base
- opts
->x_aux_base_name
;
644 char *new_dump_base_name
=
645 XNEWVEC (char, strlen (opts
->x_dump_base_name
) + dir_len
+ 1);
647 /* Copy directory component from OPTS->X_AUX_BASE_NAME. */
648 memcpy (new_dump_base_name
, opts
->x_aux_base_name
, dir_len
);
649 /* Append existing OPTS->X_DUMP_BASE_NAME. */
650 strcpy (new_dump_base_name
+ dir_len
, opts
->x_dump_base_name
);
651 opts
->x_dump_base_name
= new_dump_base_name
;
656 /* Handle related options for unit-at-a-time, toplevel-reorder, and
658 if (!opts
->x_flag_unit_at_a_time
)
660 if (opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
)
661 error_at (loc
, "section anchors must be disabled when unit-at-a-time "
663 opts
->x_flag_section_anchors
= 0;
664 if (opts
->x_flag_toplevel_reorder
== 1)
665 error_at (loc
, "toplevel reorder must be disabled when unit-at-a-time "
667 opts
->x_flag_toplevel_reorder
= 0;
670 if (opts
->x_flag_tm
&& opts
->x_flag_non_call_exceptions
)
671 sorry ("transactional memory is not supported with non-call exceptions");
673 /* Unless the user has asked for section anchors, we disable toplevel
674 reordering at -O0 to disable transformations that might be surprising
675 to end users and to get -fno-toplevel-reorder tested. */
676 if (!opts
->x_optimize
677 && opts
->x_flag_toplevel_reorder
== 2
678 && !(opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
))
680 opts
->x_flag_toplevel_reorder
= 0;
681 opts
->x_flag_section_anchors
= 0;
683 if (!opts
->x_flag_toplevel_reorder
)
685 if (opts
->x_flag_section_anchors
&& opts_set
->x_flag_section_anchors
)
686 error_at (loc
, "section anchors must be disabled when toplevel reorder"
688 opts
->x_flag_section_anchors
= 0;
691 if (!opts
->x_flag_opts_finished
)
693 if (opts
->x_flag_pie
)
694 opts
->x_flag_pic
= opts
->x_flag_pie
;
695 if (opts
->x_flag_pic
&& !opts
->x_flag_pie
)
696 opts
->x_flag_shlib
= 1;
697 opts
->x_flag_opts_finished
= true;
700 if (opts
->x_optimize
== 0)
702 /* Inlining does not work if not optimizing,
703 so force it not to be done. */
704 opts
->x_warn_inline
= 0;
705 opts
->x_flag_no_inline
= 1;
708 /* The optimization to partition hot and cold basic blocks into separate
709 sections of the .o and executable files does not work (currently)
710 with exception handling. This is because there is no support for
711 generating unwind info. If opts->x_flag_exceptions is turned on
712 we need to turn off the partitioning optimization. */
714 ui_except
= targetm_common
.except_unwind_info (opts
);
716 if (opts
->x_flag_exceptions
717 && opts
->x_flag_reorder_blocks_and_partition
718 && (ui_except
== UI_SJLJ
|| ui_except
== UI_TARGET
))
721 "-freorder-blocks-and-partition does not work "
722 "with exceptions on this architecture");
723 opts
->x_flag_reorder_blocks_and_partition
= 0;
724 opts
->x_flag_reorder_blocks
= 1;
727 /* If user requested unwind info, then turn off the partitioning
730 if (opts
->x_flag_unwind_tables
731 && !targetm_common
.unwind_tables_default
732 && opts
->x_flag_reorder_blocks_and_partition
733 && (ui_except
== UI_SJLJ
|| ui_except
== UI_TARGET
))
736 "-freorder-blocks-and-partition does not support "
737 "unwind info on this architecture");
738 opts
->x_flag_reorder_blocks_and_partition
= 0;
739 opts
->x_flag_reorder_blocks
= 1;
742 /* If the target requested unwind info, then turn off the partitioning
743 optimization with a different message. Likewise, if the target does not
744 support named sections. */
746 if (opts
->x_flag_reorder_blocks_and_partition
747 && (!targetm_common
.have_named_sections
748 || (opts
->x_flag_unwind_tables
749 && targetm_common
.unwind_tables_default
750 && (ui_except
== UI_SJLJ
|| ui_except
== UI_TARGET
))))
753 "-freorder-blocks-and-partition does not work "
754 "on this architecture");
755 opts
->x_flag_reorder_blocks_and_partition
= 0;
756 opts
->x_flag_reorder_blocks
= 1;
759 if (opts
->x_flag_reorder_blocks_and_partition
760 && !opts_set
->x_flag_reorder_functions
)
761 opts
->x_flag_reorder_functions
= 1;
763 /* Pipelining of outer loops is only possible when general pipelining
764 capabilities are requested. */
765 if (!opts
->x_flag_sel_sched_pipelining
)
766 opts
->x_flag_sel_sched_pipelining_outer_loops
= 0;
768 if (opts
->x_flag_conserve_stack
)
770 maybe_set_param_value (PARAM_LARGE_STACK_FRAME
, 100,
771 opts
->x_param_values
, opts_set
->x_param_values
);
772 maybe_set_param_value (PARAM_STACK_FRAME_GROWTH
, 40,
773 opts
->x_param_values
, opts_set
->x_param_values
);
776 if (opts
->x_flag_lto
)
779 opts
->x_flag_generate_lto
= 1;
781 /* When generating IL, do not operate in whole-program mode.
782 Otherwise, symbols will be privatized too early, causing link
784 opts
->x_flag_whole_program
= 0;
786 error_at (loc
, "LTO support has not been enabled in this configuration");
788 if (!opts
->x_flag_fat_lto_objects
&& !HAVE_LTO_PLUGIN
)
789 error_at (loc
, "-fno-fat-lto-objects are supported only with linker plugin.");
791 if ((opts
->x_flag_lto_partition_balanced
!= 0) + (opts
->x_flag_lto_partition_1to1
!= 0)
792 + (opts
->x_flag_lto_partition_none
!= 0) >= 1)
794 if ((opts
->x_flag_lto_partition_balanced
!= 0)
795 + (opts
->x_flag_lto_partition_1to1
!= 0)
796 + (opts
->x_flag_lto_partition_none
!= 0) > 1)
797 error_at (loc
, "only one -flto-partition value can be specified");
800 /* We initialize opts->x_flag_split_stack to -1 so that targets can set a
801 default value if they choose based on other options. */
802 if (opts
->x_flag_split_stack
== -1)
803 opts
->x_flag_split_stack
= 0;
804 else if (opts
->x_flag_split_stack
)
806 if (!targetm_common
.supports_split_stack (true, opts
))
808 error_at (loc
, "%<-fsplit-stack%> is not supported by "
809 "this compiler configuration");
810 opts
->x_flag_split_stack
= 0;
814 /* Set PARAM_MAX_STORES_TO_SINK to 0 if either vectorization or if-conversion
816 if (!opts
->x_flag_tree_vectorize
|| !opts
->x_flag_tree_loop_if_convert
)
817 maybe_set_param_value (PARAM_MAX_STORES_TO_SINK
, 0,
818 opts
->x_param_values
, opts_set
->x_param_values
);
820 /* This replaces set_Wunused. */
821 /* Wunused-parameter is enabled if both -Wunused -Wextra are enabled. */
822 if (opts
->x_warn_unused_parameter
== -1)
823 opts
->x_warn_unused_parameter
= (opts
->x_warn_unused
824 && opts
->x_extra_warnings
);
825 /* Wunused-but-set-parameter is enabled if both -Wunused -Wextra are
827 if (opts
->x_warn_unused_but_set_parameter
== -1)
828 opts
->x_warn_unused_but_set_parameter
= (opts
->x_warn_unused
829 && opts
->x_extra_warnings
);
830 /* Wunused-local-typedefs is enabled by -Wunused or -Wall. */
831 if (opts
->x_warn_unused_local_typedefs
== -1)
832 opts
->x_warn_unused_local_typedefs
= opts
->x_warn_unused
;
835 #define LEFT_COLUMN 27
837 /* Output ITEM, of length ITEM_WIDTH, in the left column,
838 followed by word-wrapped HELP in a second column. */
840 wrap_help (const char *help
,
842 unsigned int item_width
,
843 unsigned int columns
)
845 unsigned int col_width
= LEFT_COLUMN
;
846 unsigned int remaining
, room
, len
;
848 remaining
= strlen (help
);
852 room
= columns
- 3 - MAX (col_width
, item_width
);
861 for (i
= 0; help
[i
]; i
++)
863 if (i
>= room
&& len
!= remaining
)
867 else if ((help
[i
] == '-' || help
[i
] == '/')
868 && help
[i
+ 1] != ' '
869 && i
> 0 && ISALPHA (help
[i
- 1]))
874 printf( " %-*.*s %.*s\n", col_width
, item_width
, item
, len
, help
);
876 while (help
[len
] == ' ')
884 /* Print help for a specific front-end, etc. */
886 print_filtered_help (unsigned int include_flags
,
887 unsigned int exclude_flags
,
888 unsigned int any_flags
,
889 unsigned int columns
,
890 struct gcc_options
*opts
,
891 unsigned int lang_mask
)
896 bool displayed
= false;
898 if (include_flags
== CL_PARAMS
)
900 for (i
= 0; i
< LAST_PARAM
; i
++)
902 const char *param
= compiler_params
[i
].option
;
904 help
= compiler_params
[i
].help
;
905 if (help
== NULL
|| *help
== '\0')
907 if (exclude_flags
& CL_UNDOCUMENTED
)
909 help
= undocumented_msg
;
912 /* Get the translation. */
915 wrap_help (help
, param
, strlen (param
), columns
);
921 if (!opts
->x_help_printed
)
922 opts
->x_help_printed
= XCNEWVAR (char, cl_options_count
);
924 if (!opts
->x_help_enum_printed
)
925 opts
->x_help_enum_printed
= XCNEWVAR (char, cl_enums_count
);
927 for (i
= 0; i
< cl_options_count
; i
++)
930 const struct cl_option
*option
= cl_options
+ i
;
935 if (include_flags
== 0
936 || ((option
->flags
& include_flags
) != include_flags
))
938 if ((option
->flags
& any_flags
) == 0)
942 /* Skip unwanted switches. */
943 if ((option
->flags
& exclude_flags
) != 0)
946 /* The driver currently prints its own help text. */
947 if ((option
->flags
& CL_DRIVER
) != 0
948 && (option
->flags
& (((1U << cl_lang_count
) - 1)
949 | CL_COMMON
| CL_TARGET
)) == 0)
953 /* Skip switches that have already been printed. */
954 if (opts
->x_help_printed
[i
])
957 opts
->x_help_printed
[i
] = true;
962 if (exclude_flags
& CL_UNDOCUMENTED
)
964 help
= undocumented_msg
;
967 /* Get the translation. */
970 /* Find the gap between the name of the
971 option and its descriptive text. */
972 tab
= strchr (help
, '\t');
981 opt
= option
->opt_text
;
985 /* With the -Q option enabled we change the descriptive text associated
986 with an option to be an indication of its current setting. */
987 if (!opts
->x_quiet_flag
)
989 void *flag_var
= option_flag_var (i
, opts
);
991 if (len
< (LEFT_COLUMN
+ 2))
992 strcpy (new_help
, "\t\t");
994 strcpy (new_help
, "\t");
997 && option
->var_type
!= CLVC_DEFER
)
999 if (option
->flags
& CL_JOINED
)
1001 if (option
->var_type
== CLVC_STRING
)
1003 if (* (const char **) flag_var
!= NULL
)
1004 snprintf (new_help
+ strlen (new_help
),
1005 sizeof (new_help
) - strlen (new_help
),
1006 * (const char **) flag_var
);
1008 else if (option
->var_type
== CLVC_ENUM
)
1010 const struct cl_enum
*e
= &cl_enums
[option
->var_enum
];
1012 const char *arg
= NULL
;
1014 value
= e
->get (flag_var
);
1015 enum_value_to_arg (e
->values
, &arg
, value
, lang_mask
);
1017 arg
= _("[default]");
1018 snprintf (new_help
+ strlen (new_help
),
1019 sizeof (new_help
) - strlen (new_help
),
1023 sprintf (new_help
+ strlen (new_help
),
1024 "%#x", * (int *) flag_var
);
1027 strcat (new_help
, option_enabled (i
, opts
)
1028 ? _("[enabled]") : _("[disabled]"));
1034 wrap_help (help
, opt
, len
, columns
);
1037 if (option
->var_type
== CLVC_ENUM
1038 && opts
->x_help_enum_printed
[option
->var_enum
] != 2)
1039 opts
->x_help_enum_printed
[option
->var_enum
] = 1;
1044 unsigned int langs
= include_flags
& CL_LANG_ALL
;
1047 printf (_(" No options with the desired characteristics were found\n"));
1052 /* PR 31349: Tell the user how to see all of the
1053 options supported by a specific front end. */
1054 for (i
= 0; (1U << i
) < CL_LANG_ALL
; i
++)
1055 if ((1U << i
) & langs
)
1056 printf (_(" None found. Use --help=%s to show *all* the options supported by the %s front-end\n"),
1057 lang_names
[i
], lang_names
[i
]);
1061 else if (! displayed
)
1062 printf (_(" All options with the desired characteristics have already been displayed\n"));
1066 /* Print details of enumerated option arguments, if those
1067 enumerations have help text headings provided. If no help text
1068 is provided, presume that the possible values are listed in the
1069 help text for the relevant options. */
1070 for (i
= 0; i
< cl_enums_count
; i
++)
1072 unsigned int j
, pos
;
1074 if (opts
->x_help_enum_printed
[i
] != 1)
1076 if (cl_enums
[i
].help
== NULL
)
1078 printf (" %s\n ", _(cl_enums
[i
].help
));
1080 for (j
= 0; cl_enums
[i
].values
[j
].arg
!= NULL
; j
++)
1082 unsigned int len
= strlen (cl_enums
[i
].values
[j
].arg
);
1084 if (pos
> 4 && pos
+ 1 + len
<= columns
)
1086 printf (" %s", cl_enums
[i
].values
[j
].arg
);
1096 printf ("%s", cl_enums
[i
].values
[j
].arg
);
1101 opts
->x_help_enum_printed
[i
] = 2;
1105 /* Display help for a specified type of option.
1106 The options must have ALL of the INCLUDE_FLAGS set
1107 ANY of the flags in the ANY_FLAGS set
1108 and NONE of the EXCLUDE_FLAGS set. The current option state is in
1109 OPTS; LANG_MASK is used for interpreting enumerated option state. */
1111 print_specific_help (unsigned int include_flags
,
1112 unsigned int exclude_flags
,
1113 unsigned int any_flags
,
1114 struct gcc_options
*opts
,
1115 unsigned int lang_mask
)
1117 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1118 const char * description
= NULL
;
1119 const char * descrip_extra
= "";
1123 /* Sanity check: Make sure that we do not have more
1124 languages than we have bits available to enumerate them. */
1125 gcc_assert ((1U << cl_lang_count
) <= CL_MIN_OPTION_CLASS
);
1127 /* If we have not done so already, obtain
1128 the desired maximum width of the output. */
1129 if (opts
->x_help_columns
== 0)
1133 p
= getenv ("COLUMNS");
1136 int value
= atoi (p
);
1139 opts
->x_help_columns
= value
;
1142 if (opts
->x_help_columns
== 0)
1143 /* Use a reasonable default. */
1144 opts
->x_help_columns
= 80;
1147 /* Decide upon the title for the options that we are going to display. */
1148 for (i
= 0, flag
= 1; flag
<= CL_MAX_OPTION_CLASS
; flag
<<= 1, i
++)
1150 switch (flag
& include_flags
)
1157 description
= _("The following options are target specific");
1160 description
= _("The following options control compiler warning messages");
1162 case CL_OPTIMIZATION
:
1163 description
= _("The following options control optimizations");
1166 description
= _("The following options are language-independent");
1169 description
= _("The --param option recognizes the following as parameters");
1172 if (i
>= cl_lang_count
)
1174 if (exclude_flags
& all_langs_mask
)
1175 description
= _("The following options are specific to just the language ");
1177 description
= _("The following options are supported by the language ");
1178 descrip_extra
= lang_names
[i
];
1183 if (description
== NULL
)
1187 if (include_flags
& CL_UNDOCUMENTED
)
1188 description
= _("The following options are not documented");
1189 else if (include_flags
& CL_SEPARATE
)
1190 description
= _("The following options take separate arguments");
1191 else if (include_flags
& CL_JOINED
)
1192 description
= _("The following options take joined arguments");
1195 internal_error ("unrecognized include_flags 0x%x passed to print_specific_help",
1202 if (any_flags
& all_langs_mask
)
1203 description
= _("The following options are language-related");
1205 description
= _("The following options are language-independent");
1209 printf ("%s%s:\n", description
, descrip_extra
);
1210 print_filtered_help (include_flags
, exclude_flags
, any_flags
,
1211 opts
->x_help_columns
, opts
, lang_mask
);
1214 /* Handle target- and language-independent options. Return zero to
1215 generate an "unknown option" message. Only options that need
1216 extra handling need to be listed here; if you simply want
1217 DECODED->value assigned to a variable, it happens automatically. */
1220 common_handle_option (struct gcc_options
*opts
,
1221 struct gcc_options
*opts_set
,
1222 const struct cl_decoded_option
*decoded
,
1223 unsigned int lang_mask
, int kind ATTRIBUTE_UNUSED
,
1225 const struct cl_option_handlers
*handlers
,
1226 diagnostic_context
*dc
)
1228 size_t scode
= decoded
->opt_index
;
1229 const char *arg
= decoded
->arg
;
1230 int value
= decoded
->value
;
1231 enum opt_code code
= (enum opt_code
) scode
;
1233 gcc_assert (decoded
->canonical_option_num_elements
<= 2);
1238 handle_param (opts
, opts_set
, loc
, arg
);
1243 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1244 unsigned int undoc_mask
;
1247 if (lang_mask
== CL_DRIVER
)
1250 undoc_mask
= ((opts
->x_verbose_flag
| opts
->x_extra_warnings
)
1253 /* First display any single language specific options. */
1254 for (i
= 0; i
< cl_lang_count
; i
++)
1256 (1U << i
, (all_langs_mask
& (~ (1U << i
))) | undoc_mask
, 0, opts
,
1258 /* Next display any multi language specific options. */
1259 print_specific_help (0, undoc_mask
, all_langs_mask
, opts
, lang_mask
);
1260 /* Then display any remaining, non-language options. */
1261 for (i
= CL_MIN_OPTION_CLASS
; i
<= CL_MAX_OPTION_CLASS
; i
<<= 1)
1263 print_specific_help (i
, undoc_mask
, 0, opts
, lang_mask
);
1264 opts
->x_exit_after_options
= true;
1268 case OPT__target_help
:
1269 if (lang_mask
== CL_DRIVER
)
1272 print_specific_help (CL_TARGET
, CL_UNDOCUMENTED
, 0, opts
, lang_mask
);
1273 opts
->x_exit_after_options
= true;
1278 const char * a
= arg
;
1279 unsigned int include_flags
= 0;
1280 /* Note - by default we include undocumented options when listing
1281 specific classes. If you only want to see documented options
1282 then add ",^undocumented" to the --help= option. E.g.:
1284 --help=target,^undocumented */
1285 unsigned int exclude_flags
= 0;
1287 if (lang_mask
== CL_DRIVER
)
1290 /* Walk along the argument string, parsing each word in turn.
1292 arg = [^]{word}[,{arg}]
1293 word = {optimizers|target|warnings|undocumented|
1294 params|common|<language>} */
1299 const char * string
;
1304 { "optimizers", CL_OPTIMIZATION
},
1305 { "target", CL_TARGET
},
1306 { "warnings", CL_WARNING
},
1307 { "undocumented", CL_UNDOCUMENTED
},
1308 { "params", CL_PARAMS
},
1309 { "joined", CL_JOINED
},
1310 { "separate", CL_SEPARATE
},
1311 { "common", CL_COMMON
},
1314 unsigned int * pflags
;
1316 unsigned int lang_flag
, specific_flag
;
1323 pflags
= & exclude_flags
;
1326 pflags
= & include_flags
;
1328 comma
= strchr (a
, ',');
1339 /* Check to see if the string matches an option class name. */
1340 for (i
= 0, specific_flag
= 0; specifics
[i
].string
!= NULL
; i
++)
1341 if (strncasecmp (a
, specifics
[i
].string
, len
) == 0)
1343 specific_flag
= specifics
[i
].flag
;
1347 /* Check to see if the string matches a language name.
1348 Note - we rely upon the alpha-sorted nature of the entries in
1349 the lang_names array, specifically that shorter names appear
1350 before their longer variants. (i.e. C before C++). That way
1351 when we are attempting to match --help=c for example we will
1352 match with C first and not C++. */
1353 for (i
= 0, lang_flag
= 0; i
< cl_lang_count
; i
++)
1354 if (strncasecmp (a
, lang_names
[i
], len
) == 0)
1356 lang_flag
= 1U << i
;
1360 if (specific_flag
!= 0)
1363 * pflags
|= specific_flag
;
1366 /* The option's argument matches both the start of a
1367 language name and the start of an option class name.
1368 We have a special case for when the user has
1369 specified "--help=c", but otherwise we have to issue
1371 if (strncasecmp (a
, "c", len
) == 0)
1372 * pflags
|= lang_flag
;
1375 "--help argument %q.*s is ambiguous, "
1376 "please be more specific",
1380 else if (lang_flag
!= 0)
1381 * pflags
|= lang_flag
;
1384 "unrecognized argument to --help= option: %q.*s",
1393 print_specific_help (include_flags
, exclude_flags
, 0, opts
,
1395 opts
->x_exit_after_options
= true;
1400 if (lang_mask
== CL_DRIVER
)
1403 opts
->x_exit_after_options
= true;
1409 /* Currently handled in a prescan. */
1413 dc
->warning_as_error_requested
= value
;
1417 if (lang_mask
== CL_DRIVER
)
1420 enable_warning_as_error (arg
, value
, lang_mask
, handlers
,
1421 opts
, opts_set
, loc
, dc
);
1424 case OPT_Wlarger_than_
:
1425 opts
->x_larger_than_size
= value
;
1426 opts
->x_warn_larger_than
= value
!= -1;
1429 case OPT_Wfatal_errors
:
1430 dc
->fatal_errors
= value
;
1433 case OPT_Wframe_larger_than_
:
1434 opts
->x_frame_larger_than_size
= value
;
1435 opts
->x_warn_frame_larger_than
= value
!= -1;
1438 case OPT_Wstack_usage_
:
1439 opts
->x_warn_stack_usage
= value
;
1440 opts
->x_flag_stack_usage_info
= value
!= -1;
1443 case OPT_Wstrict_aliasing
:
1444 set_Wstrict_aliasing (opts
, value
);
1447 case OPT_Wstrict_overflow
:
1448 opts
->x_warn_strict_overflow
= (value
1449 ? (int) WARN_STRICT_OVERFLOW_CONDITIONAL
1453 case OPT_Wsystem_headers
:
1454 dc
->dc_warn_system_headers
= value
;
1458 opts
->x_flag_gen_aux_info
= 1;
1461 case OPT_auxbase_strip
:
1463 char *tmp
= xstrdup (arg
);
1464 strip_off_ending (tmp
, strlen (tmp
));
1466 opts
->x_aux_base_name
= tmp
;
1471 decode_d_option (arg
, opts
, loc
, dc
);
1474 case OPT_fcall_used_
:
1475 case OPT_fcall_saved_
:
1480 case OPT_fdbg_cnt_list
:
1484 case OPT_fdebug_prefix_map_
:
1488 case OPT_fdiagnostics_show_location_
:
1489 diagnostic_prefixing_rule (dc
) = (diagnostic_prefixing_rule_t
) value
;
1492 case OPT_fdiagnostics_show_caret
:
1493 dc
->show_caret
= value
;
1496 case OPT_fdiagnostics_show_option
:
1497 dc
->show_option_requested
= value
;
1504 case OPT_ffast_math
:
1505 set_fast_math_flags (opts
, value
);
1508 case OPT_funsafe_math_optimizations
:
1509 set_unsafe_math_optimizations_flags (opts
, value
);
1516 case OPT_finline_limit_
:
1517 set_param_value ("max-inline-insns-single", value
/ 2,
1518 opts
->x_param_values
, opts_set
->x_param_values
);
1519 set_param_value ("max-inline-insns-auto", value
/ 2,
1520 opts
->x_param_values
, opts_set
->x_param_values
);
1523 case OPT_finstrument_functions_exclude_function_list_
:
1524 add_comma_separated_to_vector
1525 (&opts
->x_flag_instrument_functions_exclude_functions
, arg
);
1528 case OPT_finstrument_functions_exclude_file_list_
:
1529 add_comma_separated_to_vector
1530 (&opts
->x_flag_instrument_functions_exclude_files
, arg
);
1533 case OPT_fmessage_length_
:
1534 pp_set_line_maximum_length (dc
->printer
, value
);
1535 diagnostic_set_caret_max_width (dc
, value
);
1538 case OPT_fpack_struct_
:
1539 if (value
<= 0 || (value
& (value
- 1)) || value
> 16)
1541 "structure alignment must be a small power of two, not %d",
1544 opts
->x_initial_max_fld_align
= value
;
1548 case OPT_fplugin_arg_
:
1552 case OPT_fprofile_use_
:
1553 opts
->x_profile_data_prefix
= xstrdup (arg
);
1554 opts
->x_flag_profile_use
= true;
1556 /* No break here - do -fprofile-use processing. */
1557 case OPT_fprofile_use
:
1558 if (!opts_set
->x_flag_branch_probabilities
)
1559 opts
->x_flag_branch_probabilities
= value
;
1560 if (!opts_set
->x_flag_profile_values
)
1561 opts
->x_flag_profile_values
= value
;
1562 if (!opts_set
->x_flag_unroll_loops
)
1563 opts
->x_flag_unroll_loops
= value
;
1564 if (!opts_set
->x_flag_peel_loops
)
1565 opts
->x_flag_peel_loops
= value
;
1566 if (!opts_set
->x_flag_tracer
)
1567 opts
->x_flag_tracer
= value
;
1568 if (!opts_set
->x_flag_value_profile_transformations
)
1569 opts
->x_flag_value_profile_transformations
= value
;
1570 if (!opts_set
->x_flag_inline_functions
)
1571 opts
->x_flag_inline_functions
= value
;
1572 if (!opts_set
->x_flag_ipa_cp
)
1573 opts
->x_flag_ipa_cp
= value
;
1574 if (!opts_set
->x_flag_ipa_cp_clone
1575 && value
&& opts
->x_flag_ipa_cp
)
1576 opts
->x_flag_ipa_cp_clone
= value
;
1577 if (!opts_set
->x_flag_predictive_commoning
)
1578 opts
->x_flag_predictive_commoning
= value
;
1579 if (!opts_set
->x_flag_unswitch_loops
)
1580 opts
->x_flag_unswitch_loops
= value
;
1581 if (!opts_set
->x_flag_gcse_after_reload
)
1582 opts
->x_flag_gcse_after_reload
= value
;
1585 case OPT_fprofile_generate_
:
1586 opts
->x_profile_data_prefix
= xstrdup (arg
);
1588 /* No break here - do -fprofile-generate processing. */
1589 case OPT_fprofile_generate
:
1590 if (!opts_set
->x_profile_arc_flag
)
1591 opts
->x_profile_arc_flag
= value
;
1592 if (!opts_set
->x_flag_profile_values
)
1593 opts
->x_flag_profile_values
= value
;
1594 if (!opts_set
->x_flag_value_profile_transformations
)
1595 opts
->x_flag_value_profile_transformations
= value
;
1596 if (!opts_set
->x_flag_inline_functions
)
1597 opts
->x_flag_inline_functions
= value
;
1598 /* FIXME: Instrumentation we insert makes ipa-reference bitmaps
1599 quadratic. Disable the pass until better memory representation
1601 if (!opts_set
->x_flag_ipa_reference
&& opts
->x_in_lto_p
)
1602 opts
->x_flag_ipa_reference
= false;
1605 case OPT_fshow_column
:
1606 dc
->show_column
= value
;
1609 case OPT_frandom_seed
:
1610 /* The real switch is -fno-random-seed. */
1616 case OPT_frandom_seed_
:
1620 case OPT_fsched_verbose_
:
1621 #ifdef INSN_SCHEDULING
1622 /* Handled with Var in common.opt. */
1628 case OPT_fsched_stalled_insns_
:
1629 opts
->x_flag_sched_stalled_insns
= value
;
1630 if (opts
->x_flag_sched_stalled_insns
== 0)
1631 opts
->x_flag_sched_stalled_insns
= -1;
1634 case OPT_fsched_stalled_insns_dep_
:
1635 opts
->x_flag_sched_stalled_insns_dep
= value
;
1638 case OPT_fstack_check_
:
1639 if (!strcmp (arg
, "no"))
1640 opts
->x_flag_stack_check
= NO_STACK_CHECK
;
1641 else if (!strcmp (arg
, "generic"))
1642 /* This is the old stack checking method. */
1643 opts
->x_flag_stack_check
= STACK_CHECK_BUILTIN
1644 ? FULL_BUILTIN_STACK_CHECK
1645 : GENERIC_STACK_CHECK
;
1646 else if (!strcmp (arg
, "specific"))
1647 /* This is the new stack checking method. */
1648 opts
->x_flag_stack_check
= STACK_CHECK_BUILTIN
1649 ? FULL_BUILTIN_STACK_CHECK
1650 : STACK_CHECK_STATIC_BUILTIN
1651 ? STATIC_BUILTIN_STACK_CHECK
1652 : GENERIC_STACK_CHECK
;
1654 warning_at (loc
, 0, "unknown stack check parameter \"%s\"", arg
);
1657 case OPT_fstack_limit
:
1658 /* The real switch is -fno-stack-limit. */
1664 case OPT_fstack_limit_register_
:
1665 case OPT_fstack_limit_symbol_
:
1669 case OPT_fstack_usage
:
1670 opts
->x_flag_stack_usage
= value
;
1671 opts
->x_flag_stack_usage_info
= value
!= 0;
1674 case OPT_ftree_vectorizer_verbose_
:
1675 vect_set_verbosity_level (opts
, value
);
1679 set_debug_level (NO_DEBUG
, DEFAULT_GDB_EXTENSIONS
, arg
, opts
, opts_set
,
1684 set_debug_level (SDB_DEBUG
, false, arg
, opts
, opts_set
, loc
);
1688 if (value
< 2 || value
> 4)
1689 error_at (loc
, "dwarf version %d is not supported", value
);
1691 opts
->x_dwarf_version
= value
;
1692 set_debug_level (DWARF2_DEBUG
, false, "", opts
, opts_set
, loc
);
1696 set_debug_level (NO_DEBUG
, 2, arg
, opts
, opts_set
, loc
);
1701 set_debug_level (DBX_DEBUG
, code
== OPT_gstabs_
, arg
, opts
, opts_set
,
1706 set_debug_level (VMS_DEBUG
, false, arg
, opts
, opts_set
, loc
);
1711 set_debug_level (XCOFF_DEBUG
, code
== OPT_gxcoff_
, arg
, opts
, opts_set
,
1715 case OPT_pedantic_errors
:
1716 dc
->pedantic_errors
= 1;
1717 control_warning_option (OPT_Wpedantic
, DK_ERROR
, value
,
1719 handlers
, opts
, opts_set
,
1724 opts
->x_flag_lto
= value
? "" : NULL
;
1728 dc
->dc_inhibit_warnings
= true;
1731 case OPT_fmax_errors_
:
1732 dc
->max_errors
= value
;
1735 case OPT_fuse_linker_plugin
:
1736 /* No-op. Used by the driver and passed to us because it starts with f.*/
1740 /* If the flag was handled in a standard way, assume the lack of
1741 processing here is intentional. */
1742 gcc_assert (option_flag_var (scode
, opts
));
1746 common_handle_option_auto (opts
, opts_set
, decoded
, lang_mask
, kind
,
1751 /* Handle --param NAME=VALUE. */
1753 handle_param (struct gcc_options
*opts
, struct gcc_options
*opts_set
,
1754 location_t loc
, const char *carg
)
1759 arg
= xstrdup (carg
);
1760 equal
= strchr (arg
, '=');
1762 error_at (loc
, "%s: --param arguments should be of the form NAME=VALUE",
1766 value
= integral_argument (equal
+ 1);
1768 error_at (loc
, "invalid --param value %qs", equal
+ 1);
1772 set_param_value (arg
, value
,
1773 opts
->x_param_values
, opts_set
->x_param_values
);
1780 /* Used to set the level of strict aliasing warnings in OPTS,
1781 when no level is specified (i.e., when -Wstrict-aliasing, and not
1782 -Wstrict-aliasing=level was given).
1783 ONOFF is assumed to take value 1 when -Wstrict-aliasing is specified,
1784 and 0 otherwise. After calling this function, wstrict_aliasing will be
1785 set to the default value of -Wstrict_aliasing=level, currently 3. */
1787 set_Wstrict_aliasing (struct gcc_options
*opts
, int onoff
)
1789 gcc_assert (onoff
== 0 || onoff
== 1);
1791 opts
->x_warn_strict_aliasing
= 3;
1793 opts
->x_warn_strict_aliasing
= 0;
1796 /* The following routines are useful in setting all the flags that
1797 -ffast-math and -fno-fast-math imply. */
1799 set_fast_math_flags (struct gcc_options
*opts
, int set
)
1801 if (!opts
->frontend_set_flag_unsafe_math_optimizations
)
1803 opts
->x_flag_unsafe_math_optimizations
= set
;
1804 set_unsafe_math_optimizations_flags (opts
, set
);
1806 if (!opts
->frontend_set_flag_finite_math_only
)
1807 opts
->x_flag_finite_math_only
= set
;
1808 if (!opts
->frontend_set_flag_errno_math
)
1809 opts
->x_flag_errno_math
= !set
;
1812 if (!opts
->frontend_set_flag_signaling_nans
)
1813 opts
->x_flag_signaling_nans
= 0;
1814 if (!opts
->frontend_set_flag_rounding_math
)
1815 opts
->x_flag_rounding_math
= 0;
1816 if (!opts
->frontend_set_flag_cx_limited_range
)
1817 opts
->x_flag_cx_limited_range
= 1;
1821 /* When -funsafe-math-optimizations is set the following
1822 flags are set as well. */
1824 set_unsafe_math_optimizations_flags (struct gcc_options
*opts
, int set
)
1826 if (!opts
->frontend_set_flag_trapping_math
)
1827 opts
->x_flag_trapping_math
= !set
;
1828 if (!opts
->frontend_set_flag_signed_zeros
)
1829 opts
->x_flag_signed_zeros
= !set
;
1830 if (!opts
->frontend_set_flag_associative_math
)
1831 opts
->x_flag_associative_math
= set
;
1832 if (!opts
->frontend_set_flag_reciprocal_math
)
1833 opts
->x_flag_reciprocal_math
= set
;
1836 /* Return true iff flags in OPTS are set as if -ffast-math. */
1838 fast_math_flags_set_p (const struct gcc_options
*opts
)
1840 return (!opts
->x_flag_trapping_math
1841 && opts
->x_flag_unsafe_math_optimizations
1842 && opts
->x_flag_finite_math_only
1843 && !opts
->x_flag_signed_zeros
1844 && !opts
->x_flag_errno_math
);
1847 /* Return true iff flags are set as if -ffast-math but using the flags stored
1848 in the struct cl_optimization structure. */
1850 fast_math_flags_struct_set_p (struct cl_optimization
*opt
)
1852 return (!opt
->x_flag_trapping_math
1853 && opt
->x_flag_unsafe_math_optimizations
1854 && opt
->x_flag_finite_math_only
1855 && !opt
->x_flag_signed_zeros
1856 && !opt
->x_flag_errno_math
);
1859 /* Handle a debug output -g switch for options OPTS
1860 (OPTS_SET->x_write_symbols storing whether a debug type was passed
1861 explicitly), location LOC. EXTENDED is true or false to support
1862 extended output (2 is special and means "-ggdb" was given). */
1864 set_debug_level (enum debug_info_type type
, int extended
, const char *arg
,
1865 struct gcc_options
*opts
, struct gcc_options
*opts_set
,
1868 opts
->x_use_gnu_debug_info_extensions
= extended
;
1870 if (type
== NO_DEBUG
)
1872 if (opts
->x_write_symbols
== NO_DEBUG
)
1874 opts
->x_write_symbols
= PREFERRED_DEBUGGING_TYPE
;
1878 #ifdef DWARF2_DEBUGGING_INFO
1879 opts
->x_write_symbols
= DWARF2_DEBUG
;
1880 #elif defined DBX_DEBUGGING_INFO
1881 opts
->x_write_symbols
= DBX_DEBUG
;
1885 if (opts
->x_write_symbols
== NO_DEBUG
)
1886 warning_at (loc
, 0, "target system does not support debug output");
1891 /* Does it conflict with an already selected type? */
1892 if (opts_set
->x_write_symbols
!= NO_DEBUG
1893 && opts
->x_write_symbols
!= NO_DEBUG
1894 && type
!= opts
->x_write_symbols
)
1895 error_at (loc
, "debug format \"%s\" conflicts with prior selection",
1896 debug_type_names
[type
]);
1897 opts
->x_write_symbols
= type
;
1898 opts_set
->x_write_symbols
= type
;
1901 /* A debug flag without a level defaults to level 2. */
1904 if (!opts
->x_debug_info_level
)
1905 opts
->x_debug_info_level
= DINFO_LEVEL_NORMAL
;
1909 int argval
= integral_argument (arg
);
1911 error_at (loc
, "unrecognised debug output level \"%s\"", arg
);
1912 else if (argval
> 3)
1913 error_at (loc
, "debug output level %s is too high", arg
);
1915 opts
->x_debug_info_level
= (enum debug_info_levels
) argval
;
1919 /* Arrange to dump core on error for diagnostic context DC. (The
1920 regular error message is still printed first, except in the case of
1924 setup_core_dumping (diagnostic_context
*dc
)
1927 signal (SIGABRT
, SIG_DFL
);
1929 #if defined(HAVE_SETRLIMIT)
1932 if (getrlimit (RLIMIT_CORE
, &rlim
) != 0)
1933 fatal_error ("getting core file size maximum limit: %m");
1934 rlim
.rlim_cur
= rlim
.rlim_max
;
1935 if (setrlimit (RLIMIT_CORE
, &rlim
) != 0)
1936 fatal_error ("setting core file size limit to maximum: %m");
1939 diagnostic_abort_on_error (dc
);
1942 /* Parse a -d<ARG> command line switch for OPTS, location LOC,
1943 diagnostic context DC. */
1946 decode_d_option (const char *arg
, struct gcc_options
*opts
,
1947 location_t loc
, diagnostic_context
*dc
)
1955 opts
->x_flag_debug_asm
= 1;
1958 opts
->x_flag_print_asm_name
= 1;
1961 opts
->x_flag_dump_rtl_in_asm
= 1;
1962 opts
->x_flag_print_asm_name
= 1;
1965 opts
->x_graph_dump_format
= vcg
;
1968 opts
->x_rtl_dump_and_exit
= 1;
1970 case 'D': /* These are handled by the preprocessor. */
1977 setup_core_dumping (dc
);
1980 opts
->x_flag_dump_all_passed
= true;
1984 warning_at (loc
, 0, "unrecognized gcc debugging option: %c", c
);
1989 /* Enable (or disable if VALUE is 0) a warning option ARG (language
1990 mask LANG_MASK, option handlers HANDLERS) as an error for option
1991 structures OPTS and OPTS_SET, diagnostic context DC (possibly
1992 NULL), location LOC. This is used by -Werror=. */
1995 enable_warning_as_error (const char *arg
, int value
, unsigned int lang_mask
,
1996 const struct cl_option_handlers
*handlers
,
1997 struct gcc_options
*opts
,
1998 struct gcc_options
*opts_set
,
1999 location_t loc
, diagnostic_context
*dc
)
2004 new_option
= XNEWVEC (char, strlen (arg
) + 2);
2005 new_option
[0] = 'W';
2006 strcpy (new_option
+ 1, arg
);
2007 option_index
= find_opt (new_option
, lang_mask
);
2008 if (option_index
== OPT_SPECIAL_unknown
)
2010 error_at (loc
, "-Werror=%s: no option -%s", arg
, new_option
);
2014 const diagnostic_t kind
= value
? DK_ERROR
: DK_WARNING
;
2016 control_warning_option (option_index
, (int) kind
, value
,
2018 handlers
, opts
, opts_set
, dc
);
2023 /* Return malloced memory for the name of the option OPTION_INDEX
2024 which enabled a diagnostic (context CONTEXT), originally of type
2025 ORIG_DIAG_KIND but possibly converted to DIAG_KIND by options such
2029 option_name (diagnostic_context
*context
, int option_index
,
2030 diagnostic_t orig_diag_kind
, diagnostic_t diag_kind
)
2034 /* A warning classified as an error. */
2035 if ((orig_diag_kind
== DK_WARNING
|| orig_diag_kind
== DK_PEDWARN
)
2036 && diag_kind
== DK_ERROR
)
2037 return concat (cl_options
[OPT_Werror_
].opt_text
,
2038 /* Skip over "-W". */
2039 cl_options
[option_index
].opt_text
+ 2,
2041 /* A warning with option. */
2043 return xstrdup (cl_options
[option_index
].opt_text
);
2045 /* A warning without option classified as an error. */
2046 else if (orig_diag_kind
== DK_WARNING
|| orig_diag_kind
== DK_PEDWARN
2047 || diag_kind
== DK_WARNING
)
2049 if (context
->warning_as_error_requested
)
2050 return xstrdup (cl_options
[OPT_Werror
].opt_text
);
2052 return xstrdup (_("enabled by default"));