1 /* Command line option handling.
2 Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007
3 Free Software Foundation, Inc.
4 Contributed by Neil Booth.
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
25 #include "coretypes.h"
31 #include "langhooks.h"
37 #include "diagnostic.h"
38 #include "tm_p.h" /* For OPTIMIZATION_OPTIONS. */
39 #include "insn-attr.h" /* For INSN_SCHEDULING. */
41 #include "tree-pass.h"
45 /* Value of the -G xx switch, and whether it was passed or not. */
46 unsigned HOST_WIDE_INT g_switch_value
;
49 /* True if we should exit after parsing options. */
50 bool exit_after_options
;
52 /* Print various extra warnings. -W/-Wextra. */
55 /* True to warn about any objects definitions whose size is larger
56 than N bytes. Also want about function definitions whose returned
57 values are larger than N bytes, where N is `larger_than_size'. */
58 bool warn_larger_than
;
59 HOST_WIDE_INT larger_than_size
;
61 /* Hack for cooperation between set_Wunused and set_Wextra. */
62 static bool maybe_warn_unused_parameter
;
64 /* Type(s) of debugging information we are producing (if any). See
65 flags.h for the definitions of the different possible types of
66 debugging information. */
67 enum debug_info_type write_symbols
= NO_DEBUG
;
69 /* Level of debugging information we are producing. See flags.h for
70 the definitions of the different possible levels. */
71 enum debug_info_level debug_info_level
= DINFO_LEVEL_NONE
;
73 /* A major contribution to object and executable size is debug
74 information size. A major contribution to debug information size
75 is struct descriptions replicated in several object files. The
76 following flags attempt to reduce this information. The basic
77 idea is to not emit struct debugging information in the current
78 compilation unit when that information will be generated by
79 another compilation unit.
81 Debug information for a struct defined in the current source
82 file should be generated in the object file. Likewise the
83 debug information for a struct defined in a header should be
84 generated in the object file of the corresponding source file.
85 Both of these case are handled when the base name of the file of
86 the struct definition matches the base name of the source file
87 of the current compilation unit. This matching emits minimal
88 struct debugging information.
90 The base file name matching rule above will fail to emit debug
91 information for structs defined in system headers. So a second
92 category of files includes system headers in addition to files
95 The remaining types of files are library headers and application
96 headers. We cannot currently distinguish these two types. */
98 enum debug_struct_file
100 DINFO_STRUCT_FILE_NONE
, /* Debug no structs. */
101 DINFO_STRUCT_FILE_BASE
, /* Debug structs defined in files with the
102 same base name as the compilation unit. */
103 DINFO_STRUCT_FILE_SYS
, /* Also debug structs defined in system
105 DINFO_STRUCT_FILE_ANY
/* Debug structs defined in all files. */
108 /* Generic structs (e.g. templates not explicitly specialized)
109 may not have a compilation unit associated with them, and so
110 may need to be treated differently from ordinary structs.
112 Structs only handled by reference (indirectly), will also usually
113 not need as much debugging information. */
115 static enum debug_struct_file debug_struct_ordinary
[DINFO_USAGE_NUM_ENUMS
]
116 = { DINFO_STRUCT_FILE_ANY
, DINFO_STRUCT_FILE_ANY
, DINFO_STRUCT_FILE_ANY
};
117 static enum debug_struct_file debug_struct_generic
[DINFO_USAGE_NUM_ENUMS
]
118 = { DINFO_STRUCT_FILE_ANY
, DINFO_STRUCT_FILE_ANY
, DINFO_STRUCT_FILE_ANY
};
120 /* Parse the -femit-struct-debug-detailed option value
121 and set the flag variables. */
123 #define MATCH( prefix, string ) \
124 ((strncmp (prefix, string, sizeof prefix - 1) == 0) \
125 ? ((string += sizeof prefix - 1), 1) : 0)
128 set_struct_debug_option (const char *spec
)
130 /* various labels for comparison */
131 static char dfn_lbl
[] = "dfn:", dir_lbl
[] = "dir:", ind_lbl
[] = "ind:";
132 static char ord_lbl
[] = "ord:", gen_lbl
[] = "gen:";
133 static char none_lbl
[] = "none", any_lbl
[] = "any";
134 static char base_lbl
[] = "base", sys_lbl
[] = "sys";
136 enum debug_struct_file files
= DINFO_STRUCT_FILE_ANY
;
137 /* Default is to apply to as much as possible. */
138 enum debug_info_usage usage
= DINFO_USAGE_NUM_ENUMS
;
139 int ord
= 1, gen
= 1;
142 if (MATCH (dfn_lbl
, spec
))
143 usage
= DINFO_USAGE_DFN
;
144 else if (MATCH (dir_lbl
, spec
))
145 usage
= DINFO_USAGE_DIR_USE
;
146 else if (MATCH (ind_lbl
, spec
))
147 usage
= DINFO_USAGE_IND_USE
;
149 /* Generics or not? */
150 if (MATCH (ord_lbl
, spec
))
152 else if (MATCH (gen_lbl
, spec
))
155 /* What allowable environment? */
156 if (MATCH (none_lbl
, spec
))
157 files
= DINFO_STRUCT_FILE_NONE
;
158 else if (MATCH (any_lbl
, spec
))
159 files
= DINFO_STRUCT_FILE_ANY
;
160 else if (MATCH (sys_lbl
, spec
))
161 files
= DINFO_STRUCT_FILE_SYS
;
162 else if (MATCH (base_lbl
, spec
))
163 files
= DINFO_STRUCT_FILE_BASE
;
165 error ("argument %qs to %<-femit-struct-debug-detailed%> not recognized",
168 /* Effect the specification. */
169 if (usage
== DINFO_USAGE_NUM_ENUMS
)
173 debug_struct_ordinary
[DINFO_USAGE_DFN
] = files
;
174 debug_struct_ordinary
[DINFO_USAGE_DIR_USE
] = files
;
175 debug_struct_ordinary
[DINFO_USAGE_IND_USE
] = files
;
179 debug_struct_generic
[DINFO_USAGE_DFN
] = files
;
180 debug_struct_generic
[DINFO_USAGE_DIR_USE
] = files
;
181 debug_struct_generic
[DINFO_USAGE_IND_USE
] = files
;
187 debug_struct_ordinary
[usage
] = files
;
189 debug_struct_generic
[usage
] = files
;
193 set_struct_debug_option (spec
+1);
196 /* No more -femit-struct-debug-detailed specifications.
199 error ("argument %qs to %<-femit-struct-debug-detailed%> unknown",
201 if (debug_struct_ordinary
[DINFO_USAGE_DIR_USE
]
202 < debug_struct_ordinary
[DINFO_USAGE_IND_USE
]
203 || debug_struct_generic
[DINFO_USAGE_DIR_USE
]
204 < debug_struct_generic
[DINFO_USAGE_IND_USE
])
205 error ("%<-femit-struct-debug-detailed=dir:...%> must allow at least"
206 " as much as %<-femit-struct-debug-detailed=ind:...%>");
210 /* Find the base name of a path, stripping off both directories and
211 a single final extension. */
213 base_of_path (const char *path
, const char **base_out
)
215 const char *base
= path
;
217 const char *p
= path
;
221 if (IS_DIR_SEPARATOR(c
))
236 /* Match the base name of a file to the base name of a compilation unit. */
238 static const char *main_input_basename
;
239 static int main_input_baselength
;
242 matches_main_base (const char *path
)
244 /* Cache the last query. */
245 static const char *last_path
= NULL
;
246 static int last_match
= 0;
247 if (path
!= last_path
)
250 int length
= base_of_path (path
, &base
);
252 last_match
= (length
== main_input_baselength
253 && memcmp (base
, main_input_basename
, length
) == 0);
258 #ifdef DEBUG_DEBUG_STRUCT
261 dump_struct_debug (tree type
, enum debug_info_usage usage
,
262 enum debug_struct_file criterion
, int generic
,
263 int matches
, int result
)
265 /* Find the type name. */
266 tree type_decl
= TYPE_STUB_DECL (type
);
268 const char *name
= 0;
269 if (TREE_CODE (t
) == TYPE_DECL
)
272 name
= IDENTIFIER_POINTER (t
);
274 fprintf (stderr
, " struct %d %s %s %s %s %d %p %s\n",
276 DECL_IN_SYSTEM_HEADER (type_decl
) ? "sys" : "usr",
277 matches
? "bas" : "hdr",
278 generic
? "gen" : "ord",
279 usage
== DINFO_USAGE_DFN
? ";" :
280 usage
== DINFO_USAGE_DIR_USE
? "." : "*",
282 (void*) type_decl
, name
);
285 #define DUMP_GSTRUCT(type, usage, criterion, generic, matches, result) \
286 dump_struct_debug (type, usage, criterion, generic, matches, result)
290 #define DUMP_GSTRUCT(type, usage, criterion, generic, matches, result) \
297 should_emit_struct_debug (tree type
, enum debug_info_usage usage
)
299 enum debug_struct_file criterion
;
301 bool generic
= lang_hooks
.types
.generic_p (type
);
304 criterion
= debug_struct_generic
[usage
];
306 criterion
= debug_struct_ordinary
[usage
];
308 if (criterion
== DINFO_STRUCT_FILE_NONE
)
309 return DUMP_GSTRUCT (type
, usage
, criterion
, generic
, false, false);
310 if (criterion
== DINFO_STRUCT_FILE_ANY
)
311 return DUMP_GSTRUCT (type
, usage
, criterion
, generic
, false, true);
313 type_decl
= TYPE_STUB_DECL (type
);
315 if (criterion
== DINFO_STRUCT_FILE_SYS
&& DECL_IN_SYSTEM_HEADER (type_decl
))
316 return DUMP_GSTRUCT (type
, usage
, criterion
, generic
, false, true);
318 if (matches_main_base (DECL_SOURCE_FILE (type_decl
)))
319 return DUMP_GSTRUCT (type
, usage
, criterion
, generic
, true, true);
320 return DUMP_GSTRUCT (type
, usage
, criterion
, generic
, false, false);
323 /* Nonzero means use GNU-only extensions in the generated symbolic
324 debugging information. Currently, this only has an effect when
325 write_symbols is set to DBX_DEBUG, XCOFF_DEBUG, or DWARF_DEBUG. */
326 bool use_gnu_debug_info_extensions
;
328 /* The default visibility for all symbols (unless overridden) */
329 enum symbol_visibility default_visibility
= VISIBILITY_DEFAULT
;
331 /* Disable unit-at-a-time for frontends that might be still broken in this
334 bool no_unit_at_a_time_default
;
336 /* Global visibility options. */
337 struct visibility_flags visibility_options
;
339 /* What to print when a switch has no documentation. */
340 static const char undocumented_msg
[] = N_("This switch lacks documentation");
342 /* Used for bookkeeping on whether user set these flags so
343 -fprofile-use/-fprofile-generate does not use them. */
344 static bool profile_arc_flag_set
, flag_profile_values_set
;
345 static bool flag_unroll_loops_set
, flag_tracer_set
;
346 static bool flag_value_profile_transformations_set
;
347 static bool flag_peel_loops_set
, flag_branch_probabilities_set
;
348 static bool flag_inline_functions_set
;
350 /* Functions excluded from profiling. */
352 typedef char *char_p
; /* For DEF_VEC_P. */
354 DEF_VEC_ALLOC_P(char_p
,heap
);
356 static VEC(char_p
,heap
) *flag_instrument_functions_exclude_functions
;
357 static VEC(char_p
,heap
) *flag_instrument_functions_exclude_files
;
359 /* Input file names. */
360 const char **in_fnames
;
361 unsigned num_in_fnames
;
363 static int common_handle_option (size_t scode
, const char *arg
, int value
,
364 unsigned int lang_mask
);
365 static void handle_param (const char *);
366 static void set_Wextra (int);
367 static unsigned int handle_option (const char **argv
, unsigned int lang_mask
);
368 static char *write_langs (unsigned int lang_mask
);
369 static void complain_wrong_lang (const char *, const struct cl_option
*,
370 unsigned int lang_mask
);
371 static void handle_options (unsigned int, const char **, unsigned int);
372 static void set_debug_level (enum debug_info_type type
, int extended
,
375 /* If ARG is a non-negative integer made up solely of digits, return its
376 value, otherwise return -1. */
378 integral_argument (const char *arg
)
382 while (*p
&& ISDIGIT (*p
))
391 /* Return a malloced slash-separated list of languages in MASK. */
393 write_langs (unsigned int mask
)
395 unsigned int n
= 0, len
= 0;
396 const char *lang_name
;
399 for (n
= 0; (lang_name
= lang_names
[n
]) != 0; n
++)
400 if (mask
& (1U << n
))
401 len
+= strlen (lang_name
) + 1;
403 result
= XNEWVEC (char, len
);
405 for (n
= 0; (lang_name
= lang_names
[n
]) != 0; n
++)
406 if (mask
& (1U << n
))
410 strcpy (result
+ len
, lang_name
);
411 len
+= strlen (lang_name
);
419 /* Complain that switch OPT_INDEX does not apply to this front end. */
421 complain_wrong_lang (const char *text
, const struct cl_option
*option
,
422 unsigned int lang_mask
)
424 char *ok_langs
, *bad_lang
;
426 ok_langs
= write_langs (option
->flags
);
427 bad_lang
= write_langs (lang_mask
);
429 /* Eventually this should become a hard error IMO. */
430 warning (0, "command line option \"%s\" is valid for %s but not for %s",
431 text
, ok_langs
, bad_lang
);
437 /* Handle the switch beginning at ARGV for the language indicated by
438 LANG_MASK. Returns the number of switches consumed. */
440 handle_option (const char **argv
, unsigned int lang_mask
)
443 const char *opt
, *arg
= 0;
446 unsigned int result
= 0;
447 const struct cl_option
*option
;
451 opt_index
= find_opt (opt
+ 1, lang_mask
| CL_COMMON
| CL_TARGET
);
452 if (opt_index
== cl_options_count
453 && (opt
[1] == 'W' || opt
[1] == 'f' || opt
[1] == 'm')
454 && opt
[2] == 'n' && opt
[3] == 'o' && opt
[4] == '-')
456 /* Drop the "no-" from negative switches. */
457 size_t len
= strlen (opt
) - 3;
459 dup
= XNEWVEC (char, len
+ 1);
462 memcpy (dup
+ 2, opt
+ 5, len
- 2 + 1);
465 opt_index
= find_opt (opt
+ 1, lang_mask
| CL_COMMON
| CL_TARGET
);
468 if (opt_index
== cl_options_count
)
471 option
= &cl_options
[opt_index
];
473 /* Reject negative form of switches that don't take negatives as
475 if (!value
&& (option
->flags
& CL_REJECT_NEGATIVE
))
478 /* We've recognized this switch. */
481 /* Check to see if the option is disabled for this configuration. */
482 if (option
->flags
& CL_DISABLED
)
484 error ("command line option %qs"
485 " is not supported by this configuration", opt
);
489 /* Sort out any argument the switch takes. */
490 if (option
->flags
& CL_JOINED
)
492 /* Have arg point to the original switch. This is because
493 some code, such as disable_builtin_function, expects its
494 argument to be persistent until the program exits. */
495 arg
= argv
[0] + cl_options
[opt_index
].opt_len
+ 1;
497 arg
+= strlen ("no-");
499 if (*arg
== '\0' && !(option
->flags
& CL_MISSING_OK
))
501 if (option
->flags
& CL_SEPARATE
)
507 /* Missing argument. */
511 else if (option
->flags
& CL_SEPARATE
)
517 /* Now we've swallowed any potential argument, complain if this
518 is a switch for a different front end. */
519 if (!(option
->flags
& (lang_mask
| CL_COMMON
| CL_TARGET
)))
521 complain_wrong_lang (argv
[0], option
, lang_mask
);
524 else if ((option
->flags
& CL_TARGET
)
525 && (option
->flags
& CL_LANG_ALL
)
526 && !(option
->flags
& lang_mask
))
528 /* Complain for target flag language mismatches if any languages
530 complain_wrong_lang (argv
[0], option
, lang_mask
);
534 if (arg
== NULL
&& (option
->flags
& (CL_JOINED
| CL_SEPARATE
)))
536 if (!lang_hooks
.missing_argument (opt
, opt_index
))
537 error ("missing argument to \"%s\"", opt
);
541 /* If the switch takes an integer, convert it. */
542 if (arg
&& (option
->flags
& CL_UINTEGER
))
544 value
= integral_argument (arg
);
547 error ("argument to \"%s\" should be a non-negative integer",
553 if (option
->flag_var
)
554 switch (option
->var_type
)
557 *(int *) option
->flag_var
= value
;
561 *(int *) option
->flag_var
= (value
563 : !option
->var_value
);
568 if ((value
!= 0) == (option
->var_type
== CLVC_BIT_SET
))
569 *(int *) option
->flag_var
|= option
->var_value
;
571 *(int *) option
->flag_var
&= ~option
->var_value
;
572 if (option
->flag_var
== &target_flags
)
573 target_flags_explicit
|= option
->var_value
;
577 *(const char **) option
->flag_var
= arg
;
581 if (option
->flags
& lang_mask
)
582 if (lang_hooks
.handle_option (opt_index
, arg
, value
) == 0)
585 if (result
&& (option
->flags
& CL_COMMON
))
586 if (common_handle_option (opt_index
, arg
, value
, lang_mask
) == 0)
589 if (result
&& (option
->flags
& CL_TARGET
))
590 if (!targetm
.handle_option (opt_index
, arg
, value
))
599 /* Handle FILENAME from the command line. */
601 add_input_filename (const char *filename
)
604 in_fnames
= xrealloc (in_fnames
, num_in_fnames
* sizeof (in_fnames
[0]));
605 in_fnames
[num_in_fnames
- 1] = filename
;
608 /* Add functions or file names to a vector of names to exclude from
612 add_instrument_functions_exclude_list (VEC(char_p
,heap
) **pvec
,
620 /* We never free this string. */
633 VEC_safe_push (char_p
, heap
, *pvec
, token_start
);
636 if (*r
== '\\' && r
[1] == ',')
644 if (*token_start
!= '\0')
645 VEC_safe_push (char_p
, heap
, *pvec
, token_start
);
648 /* Return whether we should exclude FNDECL from instrumentation. */
651 flag_instrument_functions_exclude_p (tree fndecl
)
653 if (VEC_length (char_p
, flag_instrument_functions_exclude_functions
) > 0)
659 name
= lang_hooks
.decl_printable_name (fndecl
, 0);
661 VEC_iterate (char_p
, flag_instrument_functions_exclude_functions
,
665 if (strstr (name
, s
) != NULL
)
670 if (VEC_length (char_p
, flag_instrument_functions_exclude_files
) > 0)
676 name
= DECL_SOURCE_FILE (fndecl
);
678 VEC_iterate (char_p
, flag_instrument_functions_exclude_files
, i
, s
);
681 if (strstr (name
, s
) != NULL
)
689 /* Decode and handle the vector of command line options. LANG_MASK
690 contains has a single bit set representing the current
693 handle_options (unsigned int argc
, const char **argv
, unsigned int lang_mask
)
697 for (i
= 1; i
< argc
; i
+= n
)
699 const char *opt
= argv
[i
];
701 /* Interpret "-" or a non-switch as a file name. */
702 if (opt
[0] != '-' || opt
[1] == '\0')
704 if (main_input_filename
== NULL
)
706 main_input_filename
= opt
;
707 main_input_baselength
708 = base_of_path (main_input_filename
, &main_input_basename
);
710 add_input_filename (opt
);
715 n
= handle_option (argv
+ i
, lang_mask
);
720 error ("unrecognized command line option \"%s\"", opt
);
725 /* Parse command line options and set default flag values. Do minimal
726 options processing. */
728 decode_options (unsigned int argc
, const char **argv
)
730 unsigned int i
, lang_mask
;
732 /* Perform language-specific options initialization. */
733 lang_mask
= lang_hooks
.init_options (argc
, argv
);
735 lang_hooks
.initialize_diagnostics (global_dc
);
737 /* Scan to see what optimization level has been specified. That will
738 determine the default value of many flags. */
739 for (i
= 1; i
< argc
; i
++)
741 if (!strcmp (argv
[i
], "-O"))
746 else if (argv
[i
][0] == '-' && argv
[i
][1] == 'O')
748 /* Handle -Os, -O2, -O3, -O69, ... */
749 const char *p
= &argv
[i
][2];
751 if ((p
[0] == 's') && (p
[1] == 0))
755 /* Optimizing for size forces optimize to be 2. */
760 const int optimize_val
= read_integral_parameter (p
, p
- 2, -1);
761 if (optimize_val
!= -1)
763 optimize
= optimize_val
;
772 flag_merge_constants
= 0;
779 flag_delayed_branch
= 1;
781 #ifdef CAN_DEBUG_WITHOUT_FP
782 flag_omit_frame_pointer
= 1;
784 flag_guess_branch_prob
= 1;
785 flag_cprop_registers
= 1;
786 flag_if_conversion
= 1;
787 flag_if_conversion2
= 1;
788 flag_ipa_pure_const
= 1;
789 flag_ipa_reference
= 1;
790 flag_split_wide_types
= 1;
797 flag_tree_copyrename
= 1;
799 flag_tree_copy_prop
= 1;
801 flag_tree_salias
= 1;
802 if (!no_unit_at_a_time_default
)
803 flag_unit_at_a_time
= 1;
807 /* Loop header copying usually increases size of the code. This used
808 not to be true, since quite often it is possible to verify that
809 the condition is satisfied in the first iteration and therefore
810 to eliminate it. Jump threading handles these cases now. */
817 flag_inline_small_functions
= 1;
818 flag_thread_jumps
= 1;
819 flag_crossjumping
= 1;
820 flag_optimize_sibling_calls
= 1;
821 flag_forward_propagate
= 1;
822 flag_cse_follow_jumps
= 1;
824 flag_expensive_optimizations
= 1;
825 flag_rerun_cse_after_loop
= 1;
826 flag_caller_saves
= 1;
828 #ifdef INSN_SCHEDULING
829 flag_schedule_insns
= 1;
830 flag_schedule_insns_after_reload
= 1;
833 flag_strict_aliasing
= 1;
834 flag_strict_overflow
= 1;
835 flag_delete_null_pointer_checks
= 1;
836 flag_reorder_blocks
= 1;
837 flag_reorder_functions
= 1;
838 flag_tree_store_ccp
= 1;
843 /* PRE tends to generate bigger code. */
847 /* Allow more virtual operators to increase alias precision. */
848 set_param_value ("max-aliased-vops", 500);
853 flag_predictive_commoning
= 1;
854 flag_inline_functions
= 1;
855 flag_unswitch_loops
= 1;
856 flag_gcse_after_reload
= 1;
857 flag_tree_vectorize
= 1;
859 /* Allow even more virtual operators. */
860 set_param_value ("max-aliased-vops", 1000);
861 set_param_value ("avg-aliased-vops", 3);
864 if (optimize
< 2 || optimize_size
)
871 /* Don't reorder blocks when optimizing for size because extra
872 jump insns may be created; also barrier may create extra padding.
874 More correctly we should have a block reordering mode that tried
875 to minimize the combined size of all the jumps. This would more
876 or less automatically remove extra jumps, but would also try to
877 use more short jumps instead of long jumps. */
878 flag_reorder_blocks
= 0;
879 flag_reorder_blocks_and_partition
= 0;
884 /* Inlining of functions reducing size is a good idea regardless
885 of them being declared inline. */
886 flag_inline_functions
= 1;
888 /* We want to crossjump as much as possible. */
889 set_param_value ("min-crossjump-insns", 1);
892 /* Initialize whether `char' is signed. */
893 flag_signed_char
= DEFAULT_SIGNED_CHAR
;
894 /* Set this to a special "uninitialized" value. The actual default is set
895 after target options have been processed. */
896 flag_short_enums
= 2;
898 /* Initialize target_flags before OPTIMIZATION_OPTIONS so the latter can
900 target_flags
= targetm
.default_target_flags
;
902 /* Some tagets have ABI-specified unwind tables. */
903 flag_unwind_tables
= targetm
.unwind_tables_default
;
905 #ifdef OPTIMIZATION_OPTIONS
906 /* Allow default optimizations to be specified on a per-machine basis. */
907 OPTIMIZATION_OPTIONS (optimize
, optimize_size
);
910 handle_options (argc
, argv
, lang_mask
);
914 if (flag_pic
&& !flag_pie
)
917 if (flag_no_inline
== 2)
920 flag_really_no_inline
= flag_no_inline
;
922 /* Set flag_no_inline before the post_options () hook. The C front
923 ends use it to determine tree inlining defaults. FIXME: such
924 code should be lang-independent when all front ends use tree
925 inlining, in which case it, and this condition, should be moved
926 to the top of process_options() instead. */
929 /* Inlining does not work if not optimizing,
930 so force it not to be done. */
934 /* The c_decode_option function and decode_option hook set
935 this to `2' if -Wall is used, so we can avoid giving out
936 lots of errors for people who don't realize what -Wall does. */
937 if (warn_uninitialized
== 1)
938 warning (OPT_Wuninitialized
,
939 "-Wuninitialized is not supported without -O");
942 if (flag_really_no_inline
== 2)
943 flag_really_no_inline
= flag_no_inline
;
945 /* Inlining of functions called just once will only work if we can look
946 at the complete translation unit. */
947 if (flag_inline_functions_called_once
&& !flag_unit_at_a_time
)
949 flag_inline_functions_called_once
= 0;
950 warning (OPT_Wdisabled_optimization
,
951 "-funit-at-a-time is required for inlining of functions "
952 "that are only called once");
955 /* The optimization to partition hot and cold basic blocks into separate
956 sections of the .o and executable files does not work (currently)
957 with exception handling. This is because there is no support for
958 generating unwind info. If flag_exceptions is turned on we need to
959 turn off the partitioning optimization. */
961 if (flag_exceptions
&& flag_reorder_blocks_and_partition
)
964 ("-freorder-blocks-and-partition does not work with exceptions");
965 flag_reorder_blocks_and_partition
= 0;
966 flag_reorder_blocks
= 1;
969 /* If user requested unwind info, then turn off the partitioning
972 if (flag_unwind_tables
&& ! targetm
.unwind_tables_default
973 && flag_reorder_blocks_and_partition
)
975 inform ("-freorder-blocks-and-partition does not support unwind info");
976 flag_reorder_blocks_and_partition
= 0;
977 flag_reorder_blocks
= 1;
980 /* If the target requested unwind info, then turn off the partitioning
981 optimization with a different message. Likewise, if the target does not
982 support named sections. */
984 if (flag_reorder_blocks_and_partition
985 && (!targetm
.have_named_sections
986 || (flag_unwind_tables
&& targetm
.unwind_tables_default
)))
989 ("-freorder-blocks-and-partition does not work on this architecture");
990 flag_reorder_blocks_and_partition
= 0;
991 flag_reorder_blocks
= 1;
994 #ifndef IRA_COVER_CLASSES
997 inform ("-fira does not work on this architecture");
1003 #define LEFT_COLUMN 27
1005 /* Output ITEM, of length ITEM_WIDTH, in the left column,
1006 followed by word-wrapped HELP in a second column. */
1008 wrap_help (const char *help
,
1010 unsigned int item_width
,
1011 unsigned int columns
)
1013 unsigned int col_width
= LEFT_COLUMN
;
1014 unsigned int remaining
, room
, len
;
1016 remaining
= strlen (help
);
1020 room
= columns
- 3 - MAX (col_width
, item_width
);
1029 for (i
= 0; help
[i
]; i
++)
1031 if (i
>= room
&& len
!= remaining
)
1035 else if ((help
[i
] == '-' || help
[i
] == '/')
1036 && help
[i
+ 1] != ' '
1037 && i
> 0 && ISALPHA (help
[i
- 1]))
1042 printf( " %-*.*s %.*s\n", col_width
, item_width
, item
, len
, help
);
1044 while (help
[len
] == ' ')
1052 /* Print help for a specific front-end, etc. */
1054 print_filtered_help (unsigned int include_flags
,
1055 unsigned int exclude_flags
,
1056 unsigned int any_flags
,
1057 unsigned int columns
)
1061 static char *printed
= NULL
;
1063 bool displayed
= false;
1065 if (include_flags
== CL_PARAMS
)
1067 for (i
= 0; i
< LAST_PARAM
; i
++)
1069 const char *param
= compiler_params
[i
].option
;
1071 help
= compiler_params
[i
].help
;
1072 if (help
== NULL
|| *help
== '\0')
1074 if (exclude_flags
& CL_UNDOCUMENTED
)
1076 help
= undocumented_msg
;
1079 /* Get the translation. */
1082 wrap_help (help
, param
, strlen (param
), columns
);
1089 printed
= xcalloc (1, cl_options_count
);
1091 for (i
= 0; i
< cl_options_count
; i
++)
1093 static char new_help
[128];
1094 const struct cl_option
*option
= cl_options
+ i
;
1099 if (include_flags
== 0
1100 || ((option
->flags
& include_flags
) != include_flags
))
1102 if ((option
->flags
& any_flags
) == 0)
1106 /* Skip unwanted switches. */
1107 if ((option
->flags
& exclude_flags
) != 0)
1111 /* Skip switches that have already been printed. */
1117 help
= option
->help
;
1120 if (exclude_flags
& CL_UNDOCUMENTED
)
1122 help
= undocumented_msg
;
1125 /* Get the translation. */
1128 /* Find the gap between the name of the
1129 option and its descriptive text. */
1130 tab
= strchr (help
, '\t');
1139 opt
= option
->opt_text
;
1143 /* With the -Q option enabled we change the descriptive text associated
1144 with an option to be an indication of its current setting. */
1147 if (len
< (LEFT_COLUMN
+ 2))
1148 strcpy (new_help
, "\t\t");
1150 strcpy (new_help
, "\t");
1152 if (option
->flag_var
!= NULL
)
1154 if (option
->flags
& CL_JOINED
)
1156 if (option
->var_type
== CLVC_STRING
)
1158 if (* (const char **) option
->flag_var
!= NULL
)
1159 snprintf (new_help
+ strlen (new_help
),
1160 sizeof (new_help
) - strlen (new_help
),
1161 * (const char **) option
->flag_var
);
1164 sprintf (new_help
+ strlen (new_help
),
1165 "%#x", * (int *) option
->flag_var
);
1168 strcat (new_help
, option_enabled (i
)
1169 ? _("[enabled]") : _("[disabled]"));
1175 wrap_help (help
, opt
, len
, columns
);
1180 printf (_(" No options with the desired characteristics were found\n"));
1181 else if (! displayed
)
1182 printf (_(" All options with the desired characteristics have already been displayed\n"));
1187 /* Display help for a specified type of option.
1188 The options must have ALL of the INCLUDE_FLAGS set
1189 ANY of the flags in the ANY_FLAGS set
1190 and NONE of the EXCLUDE_FLAGS set. */
1192 print_specific_help (unsigned int include_flags
,
1193 unsigned int exclude_flags
,
1194 unsigned int any_flags
)
1196 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1197 const char * description
= NULL
;
1198 const char * descrip_extra
= "";
1201 static unsigned int columns
= 0;
1203 /* Sanity check: Make sure that we do not have more
1204 languages than we have bits available to enumerate them. */
1205 gcc_assert ((1U << cl_lang_count
) < CL_MIN_OPTION_CLASS
);
1207 /* If we have not done so already, obtain
1208 the desired maximum width of the output. */
1213 GET_ENVIRONMENT (p
, "COLUMNS");
1216 int value
= atoi (p
);
1223 /* Use a reasonable default. */
1227 /* Decide upon the title for the options that we are going to display. */
1228 for (i
= 0, flag
= 1; flag
<= CL_MAX_OPTION_CLASS
; flag
<<= 1, i
++)
1230 switch (flag
& include_flags
)
1236 description
= _("The following options are target specific");
1239 description
= _("The following options control compiler warning messages");
1241 case CL_OPTIMIZATION
:
1242 description
= _("The following options control optimizations");
1245 description
= _("The following options are language-independent");
1248 description
= _("The --param option recognizes the following as parameters");
1251 if (i
>= cl_lang_count
)
1253 if ((exclude_flags
& ((1U << cl_lang_count
) - 1)) != 0)
1255 description
= _("The following options are specific to the language ");
1256 descrip_extra
= lang_names
[i
];
1259 description
= _("The following options are supported by the language ");
1260 descrip_extra
= lang_names
[i
];
1265 if (description
== NULL
)
1269 if (include_flags
== CL_UNDOCUMENTED
)
1270 description
= _("The following options are not documented");
1273 internal_error ("unrecognized include_flags 0x%x passed to print_specific_help",
1280 if (any_flags
& all_langs_mask
)
1281 description
= _("The following options are language-related");
1283 description
= _("The following options are language-independent");
1287 printf ("%s%s:\n", description
, descrip_extra
);
1288 print_filtered_help (include_flags
, exclude_flags
, any_flags
, columns
);
1291 /* Handle target- and language-independent options. Return zero to
1292 generate an "unknown option" message. Only options that need
1293 extra handling need to be listed here; if you simply want
1294 VALUE assigned to a variable, it happens automatically. */
1297 common_handle_option (size_t scode
, const char *arg
, int value
,
1298 unsigned int lang_mask
)
1300 enum opt_code code
= (enum opt_code
) scode
;
1311 unsigned int all_langs_mask
= (1U << cl_lang_count
) - 1;
1312 unsigned int undoc_mask
;
1315 undoc_mask
= extra_warnings
? 0 : CL_UNDOCUMENTED
;
1316 /* First display any single language specific options. */
1317 for (i
= 0; i
< cl_lang_count
; i
++)
1319 (1U << i
, (all_langs_mask
& (~ (1U << i
))) | undoc_mask
, 0);
1320 /* Next display any multi language specific options. */
1321 print_specific_help (0, undoc_mask
, all_langs_mask
);
1322 /* Then display any remaining, non-language options. */
1323 for (i
= CL_MIN_OPTION_CLASS
; i
<= CL_MAX_OPTION_CLASS
; i
<<= 1)
1324 print_specific_help (i
, undoc_mask
, 0);
1325 exit_after_options
= true;
1329 case OPT_ftarget_help
:
1330 case OPT__target_help
:
1331 print_specific_help (CL_TARGET
, CL_UNDOCUMENTED
, 0);
1332 exit_after_options
= true;
1334 /* Allow the target a chance to give the user some additional information. */
1335 if (targetm
.target_help
)
1336 targetm
.target_help ();
1342 const char * a
= arg
;
1343 unsigned int include_flags
= 0;
1344 /* Note - by default we include undocumented options when listing
1345 specific classes. If you only want to see documented options
1346 then add ",^undocumented" to the --help= option. e.g.:
1348 --help=target,^undocumented */
1349 unsigned int exclude_flags
= 0;
1351 /* Walk along the argument string, parsing each word in turn.
1353 arg = [^]{word}[,{arg}]
1354 word = {optimizers|target|warnings|undocumented|
1355 params|common|<language>} */
1360 const char * string
;
1365 { "optimizers", CL_OPTIMIZATION
},
1366 { "target", CL_TARGET
},
1367 { "warnings", CL_WARNING
},
1368 { "undocumented", CL_UNDOCUMENTED
},
1369 { "params", CL_PARAMS
},
1370 { "joined", CL_JOINED
},
1371 { "separate", CL_SEPARATE
},
1372 { "common", CL_COMMON
},
1375 unsigned int * pflags
;
1383 pflags
= & exclude_flags
;
1386 pflags
= & include_flags
;
1388 comma
= strchr (a
, ',');
1394 for (i
= 0; specifics
[i
].string
!= NULL
; i
++)
1395 if (strncasecmp (a
, specifics
[i
].string
, len
) == 0)
1397 * pflags
|= specifics
[i
].flag
;
1401 if (specifics
[i
].string
== NULL
)
1403 /* Check to see if the string matches a language name. */
1404 for (i
= 0; i
< cl_lang_count
; i
++)
1405 if (strncasecmp (a
, lang_names
[i
], len
) == 0)
1407 * pflags
|= 1U << i
;
1411 if (i
== cl_lang_count
)
1413 "warning: unrecognized argument to --help= switch: %.*s\n",
1423 print_specific_help (include_flags
, exclude_flags
, 0);
1424 exit_after_options
= true;
1429 print_version (stderr
, "");
1430 exit_after_options
= true;
1434 g_switch_value
= value
;
1435 g_switch_set
= true;
1440 /* Currently handled in a prescan. */
1444 /* For backward compatibility, -W is the same as -Wextra. */
1449 enable_warning_as_error (arg
, value
, lang_mask
);
1456 case OPT_Wlarger_than_
:
1457 larger_than_size
= value
;
1458 warn_larger_than
= value
!= -1;
1461 case OPT_Wstrict_aliasing
:
1462 set_Wstrict_aliasing (value
);
1465 case OPT_Wstrict_aliasing_
:
1466 warn_strict_aliasing
= value
;
1469 case OPT_Wstrict_overflow
:
1470 warn_strict_overflow
= (value
1471 ? (int) WARN_STRICT_OVERFLOW_CONDITIONAL
1475 case OPT_Wstrict_overflow_
:
1476 warn_strict_overflow
= value
;
1480 set_Wunused (value
);
1485 aux_info_file_name
= arg
;
1486 flag_gen_aux_info
= 1;
1490 aux_base_name
= arg
;
1493 case OPT_auxbase_strip
:
1495 char *tmp
= xstrdup (arg
);
1496 strip_off_ending (tmp
, strlen (tmp
));
1498 aux_base_name
= tmp
;
1503 decode_d_option (arg
);
1507 dump_base_name
= arg
;
1510 case OPT_falign_functions_
:
1511 align_functions
= value
;
1514 case OPT_falign_jumps_
:
1515 align_jumps
= value
;
1518 case OPT_falign_labels_
:
1519 align_labels
= value
;
1522 case OPT_falign_loops_
:
1523 align_loops
= value
;
1526 case OPT_fbranch_probabilities
:
1527 flag_branch_probabilities_set
= true;
1530 case OPT_fcall_used_
:
1531 fix_register (arg
, 0, 1);
1534 case OPT_fcall_saved_
:
1535 fix_register (arg
, 0, 0);
1539 dbg_cnt_process_opt (arg
);
1542 case OPT_fdbg_cnt_list
:
1543 dbg_cnt_list_all_counters ();
1546 case OPT_fdebug_prefix_map_
:
1547 add_debug_prefix_map (arg
);
1550 case OPT_fdiagnostics_show_location_
:
1551 if (!strcmp (arg
, "once"))
1552 diagnostic_prefixing_rule (global_dc
) = DIAGNOSTICS_SHOW_PREFIX_ONCE
;
1553 else if (!strcmp (arg
, "every-line"))
1554 diagnostic_prefixing_rule (global_dc
)
1555 = DIAGNOSTICS_SHOW_PREFIX_EVERY_LINE
;
1560 case OPT_fdiagnostics_show_option
:
1561 global_dc
->show_option_requested
= true;
1565 if (!dump_switch_p (arg
))
1569 case OPT_ffast_math
:
1570 set_fast_math_flags (value
);
1573 case OPT_funsafe_math_optimizations
:
1574 set_unsafe_math_optimizations_flags (value
);
1578 fix_register (arg
, 1, 1);
1581 case OPT_finline_limit_
:
1582 case OPT_finline_limit_eq
:
1583 set_param_value ("max-inline-insns-single", value
/ 2);
1584 set_param_value ("max-inline-insns-auto", value
/ 2);
1587 case OPT_finstrument_functions_exclude_function_list_
:
1588 add_instrument_functions_exclude_list
1589 (&flag_instrument_functions_exclude_functions
, arg
);
1592 case OPT_finstrument_functions_exclude_file_list_
:
1593 add_instrument_functions_exclude_list
1594 (&flag_instrument_functions_exclude_files
, arg
);
1597 case OPT_fmessage_length_
:
1598 pp_set_line_maximum_length (global_dc
->printer
, value
);
1601 case OPT_fpack_struct_
:
1602 if (value
<= 0 || (value
& (value
- 1)) || value
> 16)
1603 error ("structure alignment must be a small power of two, not %d", value
);
1606 initial_max_fld_align
= value
;
1607 maximum_field_alignment
= value
* BITS_PER_UNIT
;
1611 case OPT_fpeel_loops
:
1612 flag_peel_loops_set
= true;
1615 case OPT_fprofile_arcs
:
1616 profile_arc_flag_set
= true;
1619 case OPT_finline_functions
:
1620 flag_inline_functions_set
= true;
1623 case OPT_fprofile_use
:
1624 if (!flag_branch_probabilities_set
)
1625 flag_branch_probabilities
= value
;
1626 if (!flag_profile_values_set
)
1627 flag_profile_values
= value
;
1628 if (!flag_unroll_loops_set
)
1629 flag_unroll_loops
= value
;
1630 if (!flag_peel_loops_set
)
1631 flag_peel_loops
= value
;
1632 if (!flag_tracer_set
)
1633 flag_tracer
= value
;
1634 if (!flag_value_profile_transformations_set
)
1635 flag_value_profile_transformations
= value
;
1636 if (!flag_inline_functions_set
)
1637 flag_inline_functions
= value
;
1640 case OPT_fprofile_generate
:
1641 if (!profile_arc_flag_set
)
1642 profile_arc_flag
= value
;
1643 if (!flag_profile_values_set
)
1644 flag_profile_values
= value
;
1645 if (!flag_value_profile_transformations_set
)
1646 flag_value_profile_transformations
= value
;
1647 if (!flag_inline_functions_set
)
1648 flag_inline_functions
= value
;
1651 case OPT_fprofile_values
:
1652 flag_profile_values_set
= true;
1655 case OPT_fvisibility_
:
1657 if (!strcmp(arg
, "default"))
1658 default_visibility
= VISIBILITY_DEFAULT
;
1659 else if (!strcmp(arg
, "internal"))
1660 default_visibility
= VISIBILITY_INTERNAL
;
1661 else if (!strcmp(arg
, "hidden"))
1662 default_visibility
= VISIBILITY_HIDDEN
;
1663 else if (!strcmp(arg
, "protected"))
1664 default_visibility
= VISIBILITY_PROTECTED
;
1666 error ("unrecognized visibility value \"%s\"", arg
);
1671 flag_value_profile_transformations_set
= true;
1674 case OPT_frandom_seed
:
1675 /* The real switch is -fno-random-seed. */
1678 set_random_seed (NULL
);
1681 case OPT_frandom_seed_
:
1682 set_random_seed (arg
);
1685 case OPT_fsched_verbose_
:
1686 #ifdef INSN_SCHEDULING
1687 fix_sched_param ("verbose", arg
);
1693 case OPT_fsched_stalled_insns_
:
1694 flag_sched_stalled_insns
= value
;
1695 if (flag_sched_stalled_insns
== 0)
1696 flag_sched_stalled_insns
= -1;
1699 case OPT_fsched_stalled_insns_dep_
:
1700 flag_sched_stalled_insns_dep
= value
;
1703 case OPT_fstack_limit
:
1704 /* The real switch is -fno-stack-limit. */
1707 stack_limit_rtx
= NULL_RTX
;
1710 case OPT_fstack_limit_register_
:
1712 int reg
= decode_reg_name (arg
);
1714 error ("unrecognized register name \"%s\"", arg
);
1716 stack_limit_rtx
= gen_rtx_REG (Pmode
, reg
);
1720 case OPT_fstack_limit_symbol_
:
1721 stack_limit_rtx
= gen_rtx_SYMBOL_REF (Pmode
, ggc_strdup (arg
));
1724 case OPT_ftree_vectorizer_verbose_
:
1725 vect_set_verbosity_level (arg
);
1728 case OPT_ftls_model_
:
1729 if (!strcmp (arg
, "global-dynamic"))
1730 flag_tls_default
= TLS_MODEL_GLOBAL_DYNAMIC
;
1731 else if (!strcmp (arg
, "local-dynamic"))
1732 flag_tls_default
= TLS_MODEL_LOCAL_DYNAMIC
;
1733 else if (!strcmp (arg
, "initial-exec"))
1734 flag_tls_default
= TLS_MODEL_INITIAL_EXEC
;
1735 else if (!strcmp (arg
, "local-exec"))
1736 flag_tls_default
= TLS_MODEL_LOCAL_EXEC
;
1738 warning (0, "unknown tls-model \"%s\"", arg
);
1741 case OPT_fira_algorithm_
:
1742 if (!strcmp (arg
, "regional"))
1743 flag_ira_algorithm
= IRA_ALGORITHM_REGIONAL
;
1744 else if (!strcmp (arg
, "CB"))
1745 flag_ira_algorithm
= IRA_ALGORITHM_CB
;
1746 else if (!strcmp (arg
, "mixed"))
1747 flag_ira_algorithm
= IRA_ALGORITHM_MIXED
;
1749 warning (0, "unknown ira algorithm \"%s\"", arg
);
1752 case OPT_fira_verbose_
:
1753 flag_ira_verbose
= value
;
1757 flag_tracer_set
= true;
1760 case OPT_funroll_loops
:
1761 flag_unroll_loops_set
= true;
1765 set_debug_level (NO_DEBUG
, DEFAULT_GDB_EXTENSIONS
, arg
);
1769 set_debug_level (SDB_DEBUG
, false, arg
);
1773 set_debug_level (DWARF2_DEBUG
, false, arg
);
1777 set_debug_level (NO_DEBUG
, 2, arg
);
1782 set_debug_level (DBX_DEBUG
, code
== OPT_gstabs_
, arg
);
1786 set_debug_level (VMS_DEBUG
, false, arg
);
1791 set_debug_level (XCOFF_DEBUG
, code
== OPT_gxcoff_
, arg
);
1795 asm_file_name
= arg
;
1798 case OPT_pedantic_errors
:
1799 flag_pedantic_errors
= pedantic
= 1;
1802 case OPT_floop_optimize
:
1803 case OPT_frerun_loop_opt
:
1804 case OPT_fstrength_reduce
:
1805 case OPT_ftree_store_copy_prop
:
1806 case OPT_fforce_addr
:
1807 /* These are no-ops, preserved for backward compatibility. */
1811 /* If the flag was handled in a standard way, assume the lack of
1812 processing here is intentional. */
1813 gcc_assert (cl_options
[scode
].flag_var
);
1820 /* Handle --param NAME=VALUE. */
1822 handle_param (const char *carg
)
1827 arg
= xstrdup (carg
);
1828 equal
= strchr (arg
, '=');
1830 error ("%s: --param arguments should be of the form NAME=VALUE", arg
);
1833 value
= integral_argument (equal
+ 1);
1835 error ("invalid --param value %qs", equal
+ 1);
1839 set_param_value (arg
, value
);
1846 /* Handle -W and -Wextra. */
1848 set_Wextra (int setting
)
1850 extra_warnings
= setting
;
1851 warn_unused_parameter
= (setting
&& maybe_warn_unused_parameter
);
1853 /* We save the value of warn_uninitialized, since if they put
1854 -Wuninitialized on the command line, we need to generate a
1855 warning about not using it without also specifying -O. */
1857 warn_uninitialized
= 0;
1858 else if (warn_uninitialized
!= 1)
1859 warn_uninitialized
= 2;
1862 /* Initialize unused warning flags. */
1864 set_Wunused (int setting
)
1866 warn_unused_function
= setting
;
1867 warn_unused_label
= setting
;
1868 /* Unused function parameter warnings are reported when either
1869 ``-Wextra -Wunused'' or ``-Wunused-parameter'' is specified.
1870 Thus, if -Wextra has already been seen, set warn_unused_parameter;
1871 otherwise set maybe_warn_extra_parameter, which will be picked up
1873 maybe_warn_unused_parameter
= setting
;
1874 warn_unused_parameter
= (setting
&& extra_warnings
);
1875 warn_unused_variable
= setting
;
1876 warn_unused_value
= setting
;
1879 /* Used to set the level of strict aliasing warnings,
1880 when no level is specified (i.e., when -Wstrict-aliasing, and not
1881 -Wstrict-aliasing=level was given).
1882 ONOFF is assumed to take value 1 when -Wstrict-aliasing is specified,
1883 and 0 otherwise. After calling this function, wstrict_aliasing will be
1884 set to the default value of -Wstrict_aliasing=level, currently 3. */
1886 set_Wstrict_aliasing (int onoff
)
1888 gcc_assert (onoff
== 0 || onoff
== 1);
1890 warn_strict_aliasing
= 3;
1893 /* The following routines are useful in setting all the flags that
1894 -ffast-math and -fno-fast-math imply. */
1896 set_fast_math_flags (int set
)
1898 flag_unsafe_math_optimizations
= set
;
1899 set_unsafe_math_optimizations_flags (set
);
1900 flag_finite_math_only
= set
;
1901 flag_errno_math
= !set
;
1904 flag_signaling_nans
= 0;
1905 flag_rounding_math
= 0;
1906 flag_cx_limited_range
= 1;
1910 /* When -funsafe-math-optimizations is set the following
1911 flags are set as well. */
1913 set_unsafe_math_optimizations_flags (int set
)
1915 flag_trapping_math
= !set
;
1916 flag_signed_zeros
= !set
;
1917 flag_associative_math
= set
;
1918 flag_reciprocal_math
= set
;
1921 /* Return true iff flags are set as if -ffast-math. */
1923 fast_math_flags_set_p (void)
1925 return (!flag_trapping_math
1926 && flag_unsafe_math_optimizations
1927 && flag_finite_math_only
1928 && !flag_signed_zeros
1929 && !flag_errno_math
);
1932 /* Handle a debug output -g switch. EXTENDED is true or false to support
1933 extended output (2 is special and means "-ggdb" was given). */
1935 set_debug_level (enum debug_info_type type
, int extended
, const char *arg
)
1937 static bool type_explicit
;
1939 use_gnu_debug_info_extensions
= extended
;
1941 if (type
== NO_DEBUG
)
1943 if (write_symbols
== NO_DEBUG
)
1945 write_symbols
= PREFERRED_DEBUGGING_TYPE
;
1949 #ifdef DWARF2_DEBUGGING_INFO
1950 write_symbols
= DWARF2_DEBUG
;
1951 #elif defined DBX_DEBUGGING_INFO
1952 write_symbols
= DBX_DEBUG
;
1956 if (write_symbols
== NO_DEBUG
)
1957 warning (0, "target system does not support debug output");
1962 /* Does it conflict with an already selected type? */
1963 if (type_explicit
&& write_symbols
!= NO_DEBUG
&& type
!= write_symbols
)
1964 error ("debug format \"%s\" conflicts with prior selection",
1965 debug_type_names
[type
]);
1966 write_symbols
= type
;
1967 type_explicit
= true;
1970 /* A debug flag without a level defaults to level 2. */
1973 if (!debug_info_level
)
1974 debug_info_level
= 2;
1978 debug_info_level
= integral_argument (arg
);
1979 if (debug_info_level
== (unsigned int) -1)
1980 error ("unrecognised debug output level \"%s\"", arg
);
1981 else if (debug_info_level
> 3)
1982 error ("debug output level %s is too high", arg
);
1986 /* Return 1 if OPTION is enabled, 0 if it is disabled, or -1 if it isn't
1987 a simple on-off switch. */
1990 option_enabled (int opt_idx
)
1992 const struct cl_option
*option
= &(cl_options
[opt_idx
]);
1994 if (option
->flag_var
)
1995 switch (option
->var_type
)
1998 return *(int *) option
->flag_var
!= 0;
2001 return *(int *) option
->flag_var
== option
->var_value
;
2003 case CLVC_BIT_CLEAR
:
2004 return (*(int *) option
->flag_var
& option
->var_value
) == 0;
2007 return (*(int *) option
->flag_var
& option
->var_value
) != 0;
2015 /* Fill STATE with the current state of option OPTION. Return true if
2016 there is some state to store. */
2019 get_option_state (int option
, struct cl_option_state
*state
)
2021 if (cl_options
[option
].flag_var
== 0)
2024 switch (cl_options
[option
].var_type
)
2028 state
->data
= cl_options
[option
].flag_var
;
2029 state
->size
= sizeof (int);
2032 case CLVC_BIT_CLEAR
:
2034 state
->ch
= option_enabled (option
);
2035 state
->data
= &state
->ch
;
2040 state
->data
= *(const char **) cl_options
[option
].flag_var
;
2041 if (state
->data
== 0)
2043 state
->size
= strlen (state
->data
) + 1;
2049 /* Enable a warning option as an error. This is used by -Werror= and
2050 also by legacy Werror-implicit-function-declaration. */
2053 enable_warning_as_error (const char *arg
, int value
, unsigned int lang_mask
)
2058 new_option
= XNEWVEC (char, strlen (arg
) + 2);
2059 new_option
[0] = 'W';
2060 strcpy (new_option
+ 1, arg
);
2061 option_index
= find_opt (new_option
, lang_mask
);
2062 if (option_index
== N_OPTS
)
2064 error ("-Werror=%s: No option -%s", arg
, new_option
);
2068 int kind
= value
? DK_ERROR
: DK_WARNING
;
2069 diagnostic_classify_diagnostic (global_dc
, option_index
, kind
);
2071 /* -Werror=foo implies -Wfoo. */
2072 if (cl_options
[option_index
].var_type
== CLVC_BOOLEAN
2073 && cl_options
[option_index
].flag_var
2074 && kind
== DK_ERROR
)
2075 *(int *) cl_options
[option_index
].flag_var
= 1;