CbC/CbC_gcc: gcc/opts-common.c annotate

annotate gcc/opts-common.c @ 158:494b0b89df80 default tip

...

author	Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date	Mon, 25 May 2020 18:13:55 +0900
parents	1830386684a0
children

rev	line source
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1 /* Command line option handling.
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	2 Copyright (C) 2006-2020 Free Software Foundation, Inc.
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	3
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	4 This file is part of GCC.
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	5
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	6 GCC is free software; you can redistribute it and/or modify it under
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	7 the terms of the GNU General Public License as published by the Free
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	8 Software Foundation; either version 3, or (at your option) any later
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	9 version.
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	10
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	14 for more details.
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	15
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	16 You should have received a copy of the GNU General Public License
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	17 along with GCC; see the file COPYING3. If not see
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	18 <http://www.gnu.org/licenses/>. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	19
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	20 #include "config.h"
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	21 #include "system.h"
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	22 #include "intl.h"
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	23 #include "coretypes.h"
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	24 #include "opts.h"
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	25 #include "options.h"
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	26 #include "diagnostic.h"
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	27 #include "spellcheck.h"
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	28
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	29 static void prune_options (struct cl_decoded_option *, unsigned int );
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	30
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	31 /* An option that is undocumented, that takes a joined argument, and
04ced10e8804 gcc 7 kono parents: 67 diff changeset	32 that doesn't fit any of the classes of uses (language/common,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	33 driver, target) is assumed to be a prefix used to catch
04ced10e8804 gcc 7 kono parents: 67 diff changeset	34 e.g. negated options, and stop them from being further shortened to
04ced10e8804 gcc 7 kono parents: 67 diff changeset	35 a prefix that could use the negated option as an argument. For
04ced10e8804 gcc 7 kono parents: 67 diff changeset	36 example, we want -gno-statement-frontiers to be taken as a negation
04ced10e8804 gcc 7 kono parents: 67 diff changeset	37 of -gstatement-frontiers, but without catching the gno- prefix and
04ced10e8804 gcc 7 kono parents: 67 diff changeset	38 signaling it's to be used for option remapping, it would end up
04ced10e8804 gcc 7 kono parents: 67 diff changeset	39 backtracked to g with no-statemnet-frontiers as the debug level. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	40
04ced10e8804 gcc 7 kono parents: 67 diff changeset	41 static bool
04ced10e8804 gcc 7 kono parents: 67 diff changeset	42 remapping_prefix_p (const struct cl_option *opt)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	43 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	44 return opt->flags & CL_UNDOCUMENTED
04ced10e8804 gcc 7 kono parents: 67 diff changeset	45 && opt->flags & CL_JOINED
04ced10e8804 gcc 7 kono parents: 67 diff changeset	46 && !(opt->flags & (CL_DRIVER \| CL_TARGET \| CL_COMMON \| CL_LANG_ALL));
04ced10e8804 gcc 7 kono parents: 67 diff changeset	47 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	48
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	49 /* Perform a binary search to find which option the command-line INPUT
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	50 matches. Returns its index in the option array, and
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	51 OPT_SPECIAL_unknown on failure.
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	52
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53 This routine is quite subtle. A normal binary search is not good
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 enough because some options can be suffixed with an argument, and
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55 multiple sub-matches can occur, e.g. input of "-pedantic" matching
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56 the initial substring of "-pedantic-errors".
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 A more complicated example is -gstabs. It should match "-g" with
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	59 an argument of "stabs". Suppose, however, that the number and list
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	60 of switches are such that the binary search tests "-gen-decls"
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 before having tested "-g". This doesn't match, and as "-gen-decls"
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	62 is less than "-gstabs", it will become the lower bound of the
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	63 binary search range, and "-g" will never be seen. To resolve this
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64 issue, 'optc-gen.awk' makes "-gen-decls" point, via the back_chain member,
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	65 to "-g" so that failed searches that end between "-gen-decls" and
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	66 the lexicographically subsequent switch know to go back and see if
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67 "-g" causes a match (which it does in this example).
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 This search is done in such a way that the longest match for the
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70 front end in question wins. If there is no match for the current
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71 front end, the longest match for a different front end is returned
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72 (or N_OPTS if none) and the caller emits an error message. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 size_t
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	74 find_opt (const char *input, unsigned int lang_mask)
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	75 {
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	76 size_t mn, mn_orig, mx, md, opt_len;
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	77 size_t match_wrong_lang;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	78 int comp;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80 mn = 0;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81 mx = cl_options_count;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	83 /* Find mn such this lexicographical inequality holds:
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	84 cl_options[mn] <= input < cl_options[mn + 1]. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	85 while (mx - mn > 1)
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	86 {
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	87 md = (mn + mx) / 2;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88 opt_len = cl_options[md].opt_len;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	89 comp = strncmp (input, cl_options[md].opt_text + 1, opt_len);
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	91 if (comp < 0)
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	92 mx = md;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 else
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94 mn = md;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95 }
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	96
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	97 mn_orig = mn;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	98
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	99 /* This is the switch that is the best match but for a different
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	100 front end, or OPT_SPECIAL_unknown if there is no match at all. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	101 match_wrong_lang = OPT_SPECIAL_unknown;
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	102
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	103 /* Backtrace the chain of possible matches, returning the longest
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 one, if any, that fits best. With current GCC switches, this
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105 loop executes at most twice. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	106 do
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	107 {
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 const struct cl_option *opt = &cl_options[mn];
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	109
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	110 /* Is the input either an exact match or a prefix that takes a
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	111 joined argument? */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 if (!strncmp (input, opt->opt_text + 1, opt->opt_len)
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113 && (input[opt->opt_len] == '\0' \|\| (opt->flags & CL_JOINED)))
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114 {
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	115 /* If language is OK, return it. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 if (opt->flags & lang_mask)
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 return mn;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	119 if (remapping_prefix_p (opt))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	120 return OPT_SPECIAL_unknown;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	121
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 /* If we haven't remembered a prior match, remember this
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	123 one. Any prior match is necessarily better. */
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	124 if (match_wrong_lang == OPT_SPECIAL_unknown)
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125 match_wrong_lang = mn;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	126 }
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 /* Try the next possibility. This is cl_options_count if there
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 are no more. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	130 mn = opt->back_chain;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	131 }
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	132 while (mn != cl_options_count);
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	133
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	134 if (match_wrong_lang == OPT_SPECIAL_unknown && input[0] == '-')
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	135 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	136 /* Long options, starting "--", may be abbreviated if the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	137 abbreviation is unambiguous. This only applies to options
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	138 not taking a joined argument, and abbreviations of "--option"
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	139 are permitted even if there is a variant "--option=". */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	140 size_t mnc = mn_orig + 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	141 size_t cmp_len = strlen (input);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	142 while (mnc < cl_options_count
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	143 && strncmp (input, cl_options[mnc].opt_text + 1, cmp_len) == 0)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	144 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	145 /* Option matching this abbreviation. OK if it is the first
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	146 match and that does not take a joined argument, or the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	147 second match, taking a joined argument and with only '='
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	148 added to the first match; otherwise considered
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	149 ambiguous. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	150 if (mnc == mn_orig + 1
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	151 && !(cl_options[mnc].flags & CL_JOINED))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	152 match_wrong_lang = mnc;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	153 else if (mnc == mn_orig + 2
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	154 && match_wrong_lang == mn_orig + 1
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	155 && (cl_options[mnc].flags & CL_JOINED)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	156 && (cl_options[mnc].opt_len
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	157 == cl_options[mn_orig + 1].opt_len + 1)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	158 && strncmp (cl_options[mnc].opt_text + 1,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	159 cl_options[mn_orig + 1].opt_text + 1,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	160 cl_options[mn_orig + 1].opt_len) == 0)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	161 ; /* OK, as long as there are no more matches. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	162 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	163 return OPT_SPECIAL_unknown;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	164 mnc++;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	165 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	166 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	167
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	168 /* Return the best wrong match, or OPT_SPECIAL_unknown if none. */
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 return match_wrong_lang;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 }
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	172 /* If ARG is a non-negative decimal or hexadecimal integer representable
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	173 in HOST_WIDE_INT return its value, otherwise return -1. If ERR is not
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	174 null set *ERR to zero on success or to EINVAL or to the value of errno
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	175 otherwise. */
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	176
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	177 HOST_WIDE_INT
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	178 integral_argument (const char arg, int err, bool byte_size_suffix)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	179 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	180 if (!err)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	181 err = &errno;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	182
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	183 if (!ISDIGIT (*arg))
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	184 {
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	185 *err = EINVAL;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	186 return -1;
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	187 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	188
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	189 *err = 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	190 errno = 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	191
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	192 char *end = NULL;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	193 unsigned HOST_WIDE_INT unit = 1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	194 unsigned HOST_WIDE_INT value = strtoull (arg, &end, 10);
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	195
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	196 /* If the value is too large to be represented use the maximum
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	197 representable value that strtoull sets VALUE to (setting
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	198 errno to ERANGE). */
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	199
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	200 if (end && *end)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	201 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	202 if (!byte_size_suffix)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	203 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	204 errno = 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	205 value = strtoull (arg, &end, 0);
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	206 if (*end)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	207 {
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	208 if (errno)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	209 *err = errno;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	210 else
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	211 *err = EINVAL;
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	212 return -1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	213 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	214
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	215 return value;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	216 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	217
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	218 /* Numeric option arguments are at most INT_MAX. Make it
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	219 possible to specify a larger value by accepting common
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	220 suffixes. */
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	221 if (!strcmp (end, "kB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	222 unit = 1000;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	223 else if (!strcasecmp (end, "KiB") \|\| !strcmp (end, "KB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	224 unit = 1024;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	225 else if (!strcmp (end, "MB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	226 unit = HOST_WIDE_INT_UC (1000) * 1000;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	227 else if (!strcasecmp (end, "MiB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	228 unit = HOST_WIDE_INT_UC (1024) * 1024;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	229 else if (!strcasecmp (end, "GB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	230 unit = HOST_WIDE_INT_UC (1000) * 1000 * 1000;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	231 else if (!strcasecmp (end, "GiB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	232 unit = HOST_WIDE_INT_UC (1024) * 1024 * 1024;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	233 else if (!strcasecmp (end, "TB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	234 unit = HOST_WIDE_INT_UC (1000) * 1000 * 1000 * 1000;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	235 else if (!strcasecmp (end, "TiB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	236 unit = HOST_WIDE_INT_UC (1024) * 1024 * 1024 * 1024;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	237 else if (!strcasecmp (end, "PB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	238 unit = HOST_WIDE_INT_UC (1000) * 1000 * 1000 * 1000 * 1000;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	239 else if (!strcasecmp (end, "PiB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	240 unit = HOST_WIDE_INT_UC (1024) * 1024 * 1024 * 1024 * 1024;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	241 else if (!strcasecmp (end, "EB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	242 unit = HOST_WIDE_INT_UC (1000) * 1000 * 1000 * 1000 * 1000
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	243 * 1000;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	244 else if (!strcasecmp (end, "EiB"))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	245 unit = HOST_WIDE_INT_UC (1024) * 1024 * 1024 * 1024 * 1024
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	246 * 1024;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	247 else
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	248 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	249 /* This could mean an unknown suffix or a bad prefix, like
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	250 "+-1". */
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	251 *err = EINVAL;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	252 return -1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	253 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	254 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	255
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	256 if (unit)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	257 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	258 unsigned HOST_WIDE_INT prod = value * unit;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	259 value = prod < value ? HOST_WIDE_INT_M1U : prod;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	260 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	261
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	262 return value;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	263 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	264
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	265 /* Return whether OPTION is OK for the language given by
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	266 LANG_MASK. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	267 static bool
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	268 option_ok_for_language (const struct cl_option *option,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	269 unsigned int lang_mask)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	270 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	271 if (!(option->flags & lang_mask))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	272 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	273 else if ((option->flags & CL_TARGET)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	274 && (option->flags & (CL_LANG_ALL \| CL_DRIVER))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	275 && !(option->flags & (lang_mask & ~CL_COMMON & ~CL_TARGET)))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	276 /* Complain for target flag language mismatches if any languages
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	277 are specified. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	278 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	279 return true;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	280 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	281
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	282 /* Return whether ENUM_ARG is OK for the language given by
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	283 LANG_MASK. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	284
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	285 static bool
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	286 enum_arg_ok_for_language (const struct cl_enum_arg *enum_arg,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	287 unsigned int lang_mask)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	288 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	289 return (lang_mask & CL_DRIVER) \|\| !(enum_arg->flags & CL_ENUM_DRIVER_ONLY);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	290 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	291
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	292 /* Look up ARG in ENUM_ARGS for language LANG_MASK, returning true and
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	293 storing the value in *VALUE if found, and returning false without
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	294 modifying VALUE if not found. /
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	295
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	296 static bool
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	297 enum_arg_to_value (const struct cl_enum_arg *enum_args,
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	298 const char arg, HOST_WIDE_INT value,
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	299 unsigned int lang_mask)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	300 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	301 unsigned int i;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	302
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	303 for (i = 0; enum_args[i].arg != NULL; i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	304 if (strcmp (arg, enum_args[i].arg) == 0
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	305 && enum_arg_ok_for_language (&enum_args[i], lang_mask))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	306 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	307 *value = enum_args[i].value;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	308 return true;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	309 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	310
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	311 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	312 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	313
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	314 /* Look up ARG in the enum used by option OPT_INDEX for language
04ced10e8804 gcc 7 kono parents: 67 diff changeset	315 LANG_MASK, returning true and storing the value in *VALUE if found,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	316 and returning false without modifying VALUE if not found. /
04ced10e8804 gcc 7 kono parents: 67 diff changeset	317
04ced10e8804 gcc 7 kono parents: 67 diff changeset	318 bool
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	319 opt_enum_arg_to_value (size_t opt_index, const char *arg,
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	320 int *value, unsigned int lang_mask)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	321 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	322 const struct cl_option *option = &cl_options[opt_index];
04ced10e8804 gcc 7 kono parents: 67 diff changeset	323
04ced10e8804 gcc 7 kono parents: 67 diff changeset	324 gcc_assert (option->var_type == CLVC_ENUM);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	325
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	326 HOST_WIDE_INT wideval;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	327 if (enum_arg_to_value (cl_enums[option->var_enum].values, arg,
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	328 &wideval, lang_mask))
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	329 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	330 *value = wideval;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	331 return true;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	332 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	333
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	334 return false;
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	335 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	336
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	337 /* Look of VALUE in ENUM_ARGS for language LANG_MASK and store the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	338 corresponding string in *ARGP, returning true if the found string
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	339 was marked as canonical, false otherwise. If VALUE is not found
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	340 (which may be the case for uninitialized values if the relevant
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	341 option has not been passed), set *ARGP to NULL and return
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	342 false. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	343
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	344 bool
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	345 enum_value_to_arg (const struct cl_enum_arg *enum_args,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	346 const char **argp, int value, unsigned int lang_mask)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	347 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	348 unsigned int i;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	349
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	350 for (i = 0; enum_args[i].arg != NULL; i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	351 if (enum_args[i].value == value
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	352 && (enum_args[i].flags & CL_ENUM_CANONICAL)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	353 && enum_arg_ok_for_language (&enum_args[i], lang_mask))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	354 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	355 *argp = enum_args[i].arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	356 return true;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	357 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	358
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	359 for (i = 0; enum_args[i].arg != NULL; i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	360 if (enum_args[i].value == value
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	361 && enum_arg_ok_for_language (&enum_args[i], lang_mask))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	362 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	363 *argp = enum_args[i].arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	364 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	365 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	366
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	367 *argp = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	368 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	369 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	370
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	371 /* Fill in the canonical option part of *DECODED with an option
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	372 described by OPT_INDEX, ARG and VALUE. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	373
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	374 static void
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	375 generate_canonical_option (size_t opt_index, const char *arg,
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	376 HOST_WIDE_INT value,
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	377 struct cl_decoded_option *decoded)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	378 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	379 const struct cl_option *option = &cl_options[opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	380 const char *opt_text = option->opt_text;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	381
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	382 if (value == 0
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	383 && !option->cl_reject_negative
04ced10e8804 gcc 7 kono parents: 67 diff changeset	384 && (opt_text[1] == 'W' \|\| opt_text[1] == 'f'
04ced10e8804 gcc 7 kono parents: 67 diff changeset	385 \|\| opt_text[1] == 'g' \|\| opt_text[1] == 'm'))
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	386 {
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	387 char *t = XOBNEWVEC (&opts_obstack, char, option->opt_len + 5);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	388 t[0] = '-';
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	389 t[1] = opt_text[1];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	390 t[2] = 'n';
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	391 t[3] = 'o';
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	392 t[4] = '-';
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	393 memcpy (t + 5, opt_text + 2, option->opt_len);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	394 opt_text = t;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	395 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	396
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	397 decoded->canonical_option[2] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	398 decoded->canonical_option[3] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	399
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	400 if (arg)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	401 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	402 if ((option->flags & CL_SEPARATE)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	403 && !option->cl_separate_alias)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	404 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	405 decoded->canonical_option[0] = opt_text;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	406 decoded->canonical_option[1] = arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	407 decoded->canonical_option_num_elements = 2;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	408 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	409 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	410 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	411 gcc_assert (option->flags & CL_JOINED);
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	412 decoded->canonical_option[0] = opts_concat (opt_text, arg, NULL);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	413 decoded->canonical_option[1] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	414 decoded->canonical_option_num_elements = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	415 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	416 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	417 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	418 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	419 decoded->canonical_option[0] = opt_text;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	420 decoded->canonical_option[1] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	421 decoded->canonical_option_num_elements = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	422 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	423 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	424
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	425 /* Structure describing mappings from options on the command line to
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	426 options to look up with find_opt. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	427 struct option_map
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	428 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	429 /* Prefix of the option on the command line. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	430 const char *opt0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	431 /* If two argv elements are considered to be merged into one option,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	432 prefix for the second element, otherwise NULL. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	433 const char *opt1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	434 /* The new prefix to map to. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	435 const char *new_prefix;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	436 /* Whether at least one character is needed following opt1 or opt0
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	437 for this mapping to be used. (--optimize= is valid for -O, but
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	438 --warn- is not valid for -W.) */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	439 bool another_char_needed;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	440 /* Whether the original option is a negated form of the option
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	441 resulting from this map. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	442 bool negated;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	443 };
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	444 static const struct option_map option_map[] =
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	445 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	446 { "-Wno-", NULL, "-W", false, true },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	447 { "-fno-", NULL, "-f", false, true },
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	448 { "-gno-", NULL, "-g", false, true },
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	449 { "-mno-", NULL, "-m", false, true },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	450 { "--debug=", NULL, "-g", false, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	451 { "--machine-", NULL, "-m", true, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	452 { "--machine-no-", NULL, "-m", false, true },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	453 { "--machine=", NULL, "-m", false, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	454 { "--machine=no-", NULL, "-m", false, true },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	455 { "--machine", "", "-m", false, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	456 { "--machine", "no-", "-m", false, true },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	457 { "--optimize=", NULL, "-O", false, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	458 { "--std=", NULL, "-std=", false, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	459 { "--std", "", "-std=", false, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	460 { "--warn-", NULL, "-W", true, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	461 { "--warn-no-", NULL, "-W", false, true },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	462 { "--", NULL, "-f", true, false },
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	463 { "--no-", NULL, "-f", false, true }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	464 };
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	465
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	466 /* Helper function for gcc.c's driver::suggest_option, for populating the
04ced10e8804 gcc 7 kono parents: 67 diff changeset	467 vec of suggestions for misspelled options.
04ced10e8804 gcc 7 kono parents: 67 diff changeset	468
04ced10e8804 gcc 7 kono parents: 67 diff changeset	469 option_map above provides various prefixes for spelling command-line
04ced10e8804 gcc 7 kono parents: 67 diff changeset	470 options, which decode_cmdline_option uses to map spellings of options
04ced10e8804 gcc 7 kono parents: 67 diff changeset	471 to specific options. We want to do the reverse: to find all the ways
04ced10e8804 gcc 7 kono parents: 67 diff changeset	472 that a user could validly spell an option.
04ced10e8804 gcc 7 kono parents: 67 diff changeset	473
04ced10e8804 gcc 7 kono parents: 67 diff changeset	474 Given valid OPT_TEXT (with a leading dash) for OPTION, add it and all
04ced10e8804 gcc 7 kono parents: 67 diff changeset	475 of its valid variant spellings to CANDIDATES, each without a leading
04ced10e8804 gcc 7 kono parents: 67 diff changeset	476 dash.
04ced10e8804 gcc 7 kono parents: 67 diff changeset	477
04ced10e8804 gcc 7 kono parents: 67 diff changeset	478 For example, given "-Wabi-tag", the following are added to CANDIDATES:
04ced10e8804 gcc 7 kono parents: 67 diff changeset	479 "Wabi-tag"
04ced10e8804 gcc 7 kono parents: 67 diff changeset	480 "Wno-abi-tag"
04ced10e8804 gcc 7 kono parents: 67 diff changeset	481 "-warn-abi-tag"
04ced10e8804 gcc 7 kono parents: 67 diff changeset	482 "-warn-no-abi-tag".
04ced10e8804 gcc 7 kono parents: 67 diff changeset	483
04ced10e8804 gcc 7 kono parents: 67 diff changeset	484 The added strings must be freed using free. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	485
04ced10e8804 gcc 7 kono parents: 67 diff changeset	486 void
04ced10e8804 gcc 7 kono parents: 67 diff changeset	487 add_misspelling_candidates (auto_vec<char > candidates,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	488 const struct cl_option *option,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	489 const char *opt_text)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	490 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	491 gcc_assert (candidates);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	492 gcc_assert (option);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	493 gcc_assert (opt_text);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	494 if (remapping_prefix_p (option))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	495 return;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	496 candidates->safe_push (xstrdup (opt_text + 1));
04ced10e8804 gcc 7 kono parents: 67 diff changeset	497 for (unsigned i = 0; i < ARRAY_SIZE (option_map); i++)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	498 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	499 const char *opt0 = option_map[i].opt0;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	500 const char *new_prefix = option_map[i].new_prefix;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	501 size_t new_prefix_len = strlen (new_prefix);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	502
04ced10e8804 gcc 7 kono parents: 67 diff changeset	503 if (option->cl_reject_negative && option_map[i].negated)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	504 continue;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	505
04ced10e8804 gcc 7 kono parents: 67 diff changeset	506 if (strncmp (opt_text, new_prefix, new_prefix_len) == 0)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	507 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	508 char *alternative = concat (opt0 + 1, opt_text + new_prefix_len,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	509 NULL);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	510 candidates->safe_push (alternative);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	511 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	512 }
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	513
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	514 /* For all params (e.g. --param=key=value),
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	515 include also '--param key=value'. */
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	516 const char *prefix = "--param=";
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	517 if (strstr (opt_text, prefix) == opt_text)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	518 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	519 char *param = xstrdup (opt_text + 1);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	520 gcc_assert (param[6] == '=');
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	521 param[6] = ' ';
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	522 candidates->safe_push (param);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	523 }
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	524 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	525
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	526 /* Decode the switch beginning at ARGV for the language indicated by
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	527 LANG_MASK (including CL_COMMON and CL_TARGET if applicable), into
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	528 the structure *DECODED. Returns the number of switches
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	529 consumed. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	530
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	531 static unsigned int
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	532 decode_cmdline_option (const char **argv, unsigned int lang_mask,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	533 struct cl_decoded_option *decoded)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	534 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	535 size_t opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	536 const char *arg = 0;
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	537 HOST_WIDE_INT value = 1;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	538 unsigned int result = 1, i, extra_args, separate_args = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	539 int adjust_len = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	540 size_t total_len;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	541 char *p;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	542 const struct cl_option *option;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	543 int errors = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	544 const char *warn_message = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	545 bool separate_arg_flag;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	546 bool joined_arg_flag;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	547 bool have_separate_arg = false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	548
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	549 extra_args = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	550
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	551 const char *opt_value = argv[0] + 1;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	552 opt_index = find_opt (opt_value, lang_mask);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	553 i = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	554 while (opt_index == OPT_SPECIAL_unknown
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	555 && i < ARRAY_SIZE (option_map))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	556 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	557 const char *opt0 = option_map[i].opt0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	558 const char *opt1 = option_map[i].opt1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	559 const char *new_prefix = option_map[i].new_prefix;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	560 bool another_char_needed = option_map[i].another_char_needed;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	561 size_t opt0_len = strlen (opt0);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	562 size_t opt1_len = (opt1 == NULL ? 0 : strlen (opt1));
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	563 size_t optn_len = (opt1 == NULL ? opt0_len : opt1_len);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	564 size_t new_prefix_len = strlen (new_prefix);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	565
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	566 extra_args = (opt1 == NULL ? 0 : 1);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	567 value = !option_map[i].negated;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	568
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	569 if (strncmp (argv[0], opt0, opt0_len) == 0
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	570 && (opt1 == NULL
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	571 \|\| (argv[1] != NULL && strncmp (argv[1], opt1, opt1_len) == 0))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	572 && (!another_char_needed
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	573 \|\| argv[extra_args][optn_len] != 0))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	574 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	575 size_t arglen = strlen (argv[extra_args]);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	576 char *dup;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	577
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	578 adjust_len = (int) optn_len - (int) new_prefix_len;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	579 dup = XNEWVEC (char, arglen + 1 - adjust_len);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	580 memcpy (dup, new_prefix, new_prefix_len);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	581 memcpy (dup + new_prefix_len, argv[extra_args] + optn_len,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	582 arglen - optn_len + 1);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	583 opt_index = find_opt (dup + 1, lang_mask);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	584 free (dup);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	585 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	586 i++;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	587 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	588
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	589 if (opt_index == OPT_SPECIAL_unknown)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	590 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	591 arg = argv[0];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	592 extra_args = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	593 value = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	594 goto done;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	595 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	596
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	597 option = &cl_options[opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	598
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	599 /* Reject negative form of switches that don't take negatives as
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	600 unrecognized. */
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	601 if (!value && option->cl_reject_negative)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	602 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	603 opt_index = OPT_SPECIAL_unknown;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	604 errors \|= CL_ERR_NEGATIVE;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	605 arg = argv[0];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	606 goto done;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	607 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	608
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	609 /* Clear the initial value for size options (it will be overwritten
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	610 later based on the Init(value) specification in the opt file. */
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	611 if (option->var_type == CLVC_SIZE)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	612 value = 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	613
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	614 result = extra_args + 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	615 warn_message = option->warn_message;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	616
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	617 /* Check to see if the option is disabled for this configuration. */
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	618 if (option->cl_disabled)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	619 errors \|= CL_ERR_DISABLED;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	620
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	621 /* Determine whether there may be a separate argument based on
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	622 whether this option is being processed for the driver, and, if
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	623 so, how many such arguments. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	624 separate_arg_flag = ((option->flags & CL_SEPARATE)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	625 && !(option->cl_no_driver_arg
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	626 && (lang_mask & CL_DRIVER)));
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	627 separate_args = (separate_arg_flag
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	628 ? option->cl_separate_nargs + 1
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	629 : 0);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	630 joined_arg_flag = (option->flags & CL_JOINED) != 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	631
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	632 /* Sort out any argument the switch takes. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	633 if (joined_arg_flag)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	634 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	635 /* Have arg point to the original switch. This is because
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	636 some code, such as disable_builtin_function, expects its
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	637 argument to be persistent until the program exits. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	638 arg = argv[extra_args] + cl_options[opt_index].opt_len + 1 + adjust_len;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	639
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	640 if (*arg == '\0' && !option->cl_missing_ok)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	641 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	642 if (separate_arg_flag)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	643 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	644 arg = argv[extra_args + 1];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	645 result = extra_args + 2;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	646 if (arg == NULL)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	647 result = extra_args + 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	648 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	649 have_separate_arg = true;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	650 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	651 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	652 /* Missing argument. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	653 arg = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	654 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	655 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	656 else if (separate_arg_flag)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	657 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	658 arg = argv[extra_args + 1];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	659 for (i = 0; i < separate_args; i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	660 if (argv[extra_args + 1 + i] == NULL)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	661 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	662 errors \|= CL_ERR_MISSING_ARG;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	663 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	664 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	665 result = extra_args + 1 + i;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	666 if (arg != NULL)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	667 have_separate_arg = true;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	668 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	669
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	670 if (arg == NULL && (separate_arg_flag \|\| joined_arg_flag))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	671 errors \|= CL_ERR_MISSING_ARG;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	672
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	673 /* Is this option an alias (or an ignored option, marked as an alias
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	674 of OPT_SPECIAL_ignore)? */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	675 if (option->alias_target != N_OPTS
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	676 && (!option->cl_separate_alias \|\| have_separate_arg))
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	677 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	678 size_t new_opt_index = option->alias_target;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	679
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	680 if (new_opt_index == OPT_SPECIAL_ignore
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	681 \|\| new_opt_index == OPT_SPECIAL_warn_removed)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	682 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	683 gcc_assert (option->alias_arg == NULL);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	684 gcc_assert (option->neg_alias_arg == NULL);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	685 opt_index = new_opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	686 arg = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	687 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	688 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	689 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	690 const struct cl_option *new_option = &cl_options[new_opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	691
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	692 /* The new option must not be an alias itself. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	693 gcc_assert (new_option->alias_target == N_OPTS
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	694 \|\| new_option->cl_separate_alias);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	695
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	696 if (option->neg_alias_arg)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	697 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	698 gcc_assert (option->alias_arg != NULL);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	699 gcc_assert (arg == NULL);
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	700 gcc_assert (!option->cl_negative_alias);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	701 if (value)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	702 arg = option->alias_arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	703 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	704 arg = option->neg_alias_arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	705 value = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	706 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	707 else if (option->alias_arg)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	708 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	709 gcc_assert (value == 1);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	710 gcc_assert (arg == NULL);
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	711 gcc_assert (!option->cl_negative_alias);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	712 arg = option->alias_arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	713 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	714
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	715 if (option->cl_negative_alias)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	716 value = !value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	717
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	718 opt_index = new_opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	719 option = new_option;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	720
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	721 if (value == 0)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	722 gcc_assert (!option->cl_reject_negative);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	723
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	724 /* Recompute what arguments are allowed. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	725 separate_arg_flag = ((option->flags & CL_SEPARATE)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	726 && !(option->cl_no_driver_arg
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	727 && (lang_mask & CL_DRIVER)));
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	728 joined_arg_flag = (option->flags & CL_JOINED) != 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	729
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	730 if (separate_args > 1 \|\| option->cl_separate_nargs)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	731 gcc_assert (separate_args
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	732 == (unsigned int) option->cl_separate_nargs + 1);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	733
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	734 if (!(errors & CL_ERR_MISSING_ARG))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	735 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	736 if (separate_arg_flag \|\| joined_arg_flag)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	737 {
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	738 if (option->cl_missing_ok && arg == NULL)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	739 arg = "";
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	740 gcc_assert (arg != NULL);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	741 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	742 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	743 gcc_assert (arg == NULL);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	744 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	745
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	746 /* Recheck for warnings and disabled options. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	747 if (option->warn_message)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	748 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	749 gcc_assert (warn_message == NULL);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	750 warn_message = option->warn_message;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	751 }
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	752 if (option->cl_disabled)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	753 errors \|= CL_ERR_DISABLED;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	754 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	755 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	756
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	757 /* Check if this is a switch for a different front end. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	758 if (!option_ok_for_language (option, lang_mask))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	759 errors \|= CL_ERR_WRONG_LANG;
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	760 else if (strcmp (option->opt_text, "-Werror=") == 0
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	761 && strchr (opt_value, ',') == NULL)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	762 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	763 /* Verify that -Werror argument is a valid warning
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	764 for a language. */
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	765 char *werror_arg = xstrdup (opt_value + 6);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	766 werror_arg[0] = 'W';
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	767
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	768 size_t warning_index = find_opt (werror_arg, lang_mask);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	769 if (warning_index != OPT_SPECIAL_unknown)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	770 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	771 const struct cl_option *warning_option
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	772 = &cl_options[warning_index];
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	773 if (!option_ok_for_language (warning_option, lang_mask))
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	774 errors \|= CL_ERR_WRONG_LANG;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	775 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	776 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	777
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	778 /* Convert the argument to lowercase if appropriate. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	779 if (arg && option->cl_tolower)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	780 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	781 size_t j;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	782 size_t len = strlen (arg);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	783 char *arg_lower = XOBNEWVEC (&opts_obstack, char, len + 1);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	784
04ced10e8804 gcc 7 kono parents: 67 diff changeset	785 for (j = 0; j < len; j++)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	786 arg_lower[j] = TOLOWER ((unsigned char) arg[j]);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	787 arg_lower[len] = 0;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	788 arg = arg_lower;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	789 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	790
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	791 /* If the switch takes an integer argument, convert it. */
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	792 if (arg && (option->cl_uinteger \|\| option->cl_host_wide_int))
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	793 {
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	794 int error = 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	795 value = *arg ? integral_argument (arg, &error, option->cl_byte_size) : 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	796 if (error)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	797 errors \|= CL_ERR_UINT_ARG;
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	798
04ced10e8804 gcc 7 kono parents: 67 diff changeset	799 /* Reject value out of a range. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	800 if (option->range_max != -1
04ced10e8804 gcc 7 kono parents: 67 diff changeset	801 && (value < option->range_min \|\| value > option->range_max))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	802 errors \|= CL_ERR_INT_RANGE_ARG;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	803 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	804
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	805 /* If the switch takes an enumerated argument, convert it. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	806 if (arg && (option->var_type == CLVC_ENUM))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	807 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	808 const struct cl_enum *e = &cl_enums[option->var_enum];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	809
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	810 gcc_assert (value == 1);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	811 if (enum_arg_to_value (e->values, arg, &value, lang_mask))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	812 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	813 const char *carg = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	814
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	815 if (enum_value_to_arg (e->values, &carg, value, lang_mask))
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	816 arg = carg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	817 gcc_assert (carg != NULL);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	818 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	819 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	820 errors \|= CL_ERR_ENUM_ARG;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	821 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	822
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	823 done:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	824 decoded->opt_index = opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	825 decoded->arg = arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	826 decoded->value = value;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	827 decoded->errors = errors;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	828 decoded->warn_message = warn_message;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	829
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	830 if (opt_index == OPT_SPECIAL_unknown)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	831 gcc_assert (result == 1);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	832
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	833 gcc_assert (result >= 1 && result <= ARRAY_SIZE (decoded->canonical_option));
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	834 decoded->canonical_option_num_elements = result;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	835 total_len = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	836 for (i = 0; i < ARRAY_SIZE (decoded->canonical_option); i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	837 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	838 if (i < result)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	839 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	840 size_t len;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	841 if (opt_index == OPT_SPECIAL_unknown)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	842 decoded->canonical_option[i] = argv[i];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	843 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	844 decoded->canonical_option[i] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	845 len = strlen (argv[i]);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	846 /* If the argument is an empty string, we will print it as "" in
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	847 orig_option_with_args_text. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	848 total_len += (len != 0 ? len : 2) + 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	849 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	850 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	851 decoded->canonical_option[i] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	852 }
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	853 if (opt_index != OPT_SPECIAL_unknown && opt_index != OPT_SPECIAL_ignore
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	854 && opt_index != OPT_SPECIAL_warn_removed)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	855 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	856 generate_canonical_option (opt_index, arg, value, decoded);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	857 if (separate_args > 1)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	858 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	859 for (i = 0; i < separate_args; i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	860 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	861 if (argv[extra_args + 1 + i] == NULL)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	862 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	863 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	864 decoded->canonical_option[1 + i] = argv[extra_args + 1 + i];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	865 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	866 gcc_assert (result == 1 + i);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	867 decoded->canonical_option_num_elements = result;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	868 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	869 }
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	870 decoded->orig_option_with_args_text
04ced10e8804 gcc 7 kono parents: 67 diff changeset	871 = p = XOBNEWVEC (&opts_obstack, char, total_len);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	872 for (i = 0; i < result; i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	873 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	874 size_t len = strlen (argv[i]);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	875
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	876 /* Print the empty string verbally. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	877 if (len == 0)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	878 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	879 *p++ = '"';
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	880 *p++ = '"';
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	881 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	882 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	883 memcpy (p, argv[i], len);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	884 p += len;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	885 if (i == result - 1)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	886 *p++ = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	887 else
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	888 *p++ = ' ';
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	889 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	890
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	891 return result;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	892 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	893
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	894 /* Obstack for option strings. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	895
04ced10e8804 gcc 7 kono parents: 67 diff changeset	896 struct obstack opts_obstack;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	897
04ced10e8804 gcc 7 kono parents: 67 diff changeset	898 /* Like libiberty concat, but allocate using opts_obstack. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	899
04ced10e8804 gcc 7 kono parents: 67 diff changeset	900 char *
04ced10e8804 gcc 7 kono parents: 67 diff changeset	901 opts_concat (const char *first, ...)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	902 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	903 char newstr, end;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	904 size_t length = 0;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	905 const char *arg;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	906 va_list ap;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	907
04ced10e8804 gcc 7 kono parents: 67 diff changeset	908 /* First compute the size of the result and get sufficient memory. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	909 va_start (ap, first);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	910 for (arg = first; arg; arg = va_arg (ap, const char *))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	911 length += strlen (arg);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	912 newstr = XOBNEWVEC (&opts_obstack, char, length + 1);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	913 va_end (ap);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	914
04ced10e8804 gcc 7 kono parents: 67 diff changeset	915 /* Now copy the individual pieces to the result string. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	916 va_start (ap, first);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	917 for (arg = first, end = newstr; arg; arg = va_arg (ap, const char *))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	918 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	919 length = strlen (arg);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	920 memcpy (end, arg, length);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	921 end += length;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	922 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	923 *end = '\0';
04ced10e8804 gcc 7 kono parents: 67 diff changeset	924 va_end (ap);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	925 return newstr;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	926 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	927
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	928 /* Decode command-line options (ARGC and ARGV being the arguments of
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	929 main) into an array, setting *DECODED_OPTIONS to a pointer to that
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	930 array and *DECODED_OPTIONS_COUNT to the number of entries in the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	931 array. The first entry in the array is always one for the program
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	932 name (OPT_SPECIAL_program_name). LANG_MASK indicates the language
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	933 flags applicable for decoding (including CL_COMMON and CL_TARGET if
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	934 those options should be considered applicable). Do not produce any
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	935 diagnostics or set state outside of these variables. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	936
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	937 void
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	938 decode_cmdline_options_to_array (unsigned int argc, const char **argv,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	939 unsigned int lang_mask,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	940 struct cl_decoded_option **decoded_options,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	941 unsigned int *decoded_options_count)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	942 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	943 unsigned int n, i;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	944 struct cl_decoded_option *opt_array;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	945 unsigned int num_decoded_options;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	946
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	947 opt_array = XNEWVEC (struct cl_decoded_option, argc);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	948
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	949 opt_array[0].opt_index = OPT_SPECIAL_program_name;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	950 opt_array[0].warn_message = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	951 opt_array[0].arg = argv[0];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	952 opt_array[0].orig_option_with_args_text = argv[0];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	953 opt_array[0].canonical_option_num_elements = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	954 opt_array[0].canonical_option[0] = argv[0];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	955 opt_array[0].canonical_option[1] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	956 opt_array[0].canonical_option[2] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	957 opt_array[0].canonical_option[3] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	958 opt_array[0].value = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	959 opt_array[0].errors = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	960 num_decoded_options = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	961
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	962 for (i = 1; i < argc; i += n)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	963 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	964 const char *opt = argv[i];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	965
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	966 /* Interpret "-" or a non-switch as a file name. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	967 if (opt[0] != '-' \|\| opt[1] == '\0')
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	968 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	969 generate_option_input_file (opt, &opt_array[num_decoded_options]);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	970 num_decoded_options++;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	971 n = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	972 continue;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	973 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	974
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	975 /* Interpret "--param" "key=name" as "--param=key=name". */
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	976 const char *needle = "--param";
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	977 if (i + 1 < argc && strcmp (opt, needle) == 0)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	978 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	979 const char *replacement
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	980 = opts_concat (needle, "=", argv[i + 1], NULL);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	981 argv[++i] = replacement;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	982 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	983
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	984 n = decode_cmdline_option (argv + i, lang_mask,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	985 &opt_array[num_decoded_options]);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	986 num_decoded_options++;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	987 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	988
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	989 *decoded_options = opt_array;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	990 *decoded_options_count = num_decoded_options;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	991 prune_options (decoded_options, decoded_options_count);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	992 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	993
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	994 /* Return true if NEXT_OPT_IDX cancels OPT_IDX. Return false if the
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	995 next one is the same as ORIG_NEXT_OPT_IDX. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	996
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	997 static bool
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	998 cancel_option (int opt_idx, int next_opt_idx, int orig_next_opt_idx)
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	999 {
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1000 /* An option can be canceled by the same option or an option with
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1001 Negative. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1002 if (cl_options [next_opt_idx].neg_index == opt_idx)
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1003 return true;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1004
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1005 if (cl_options [next_opt_idx].neg_index != orig_next_opt_idx)
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1006 return cancel_option (opt_idx, cl_options [next_opt_idx].neg_index,
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1007 orig_next_opt_idx);
55 77e2b8dfacca update it from 4.4.3 to 4.5.0 ryoma <e075725@ie.u-ryukyu.ac.jp> parents: 0 diff changeset	1008
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1009 return false;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1010 }
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1011
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1012 /* Filter out options canceled by the ones after them. */
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1013
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1014 static void
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1015 prune_options (struct cl_decoded_option **decoded_options,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1016 unsigned int *decoded_options_count)
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1017 {
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1018 unsigned int old_decoded_options_count = *decoded_options_count;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1019 struct cl_decoded_option old_decoded_options = decoded_options;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1020 unsigned int new_decoded_options_count;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1021 struct cl_decoded_option *new_decoded_options
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1022 = XNEWVEC (struct cl_decoded_option, old_decoded_options_count);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1023 unsigned int i;
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1024 const struct cl_option *option;
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1025 unsigned int fdiagnostics_color_idx = 0;
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1026
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1027 /* Remove arguments which are negated by others after them. */
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1028 new_decoded_options_count = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1029 for (i = 0; i < old_decoded_options_count; i++)
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1030 {
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1031 unsigned int j, opt_idx, next_opt_idx;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1032
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1033 if (old_decoded_options[i].errors & ~CL_ERR_WRONG_LANG)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1034 goto keep;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1035
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1036 opt_idx = old_decoded_options[i].opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1037 switch (opt_idx)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1038 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1039 case OPT_SPECIAL_unknown:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1040 case OPT_SPECIAL_ignore:
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1041 case OPT_SPECIAL_warn_removed:
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1042 case OPT_SPECIAL_program_name:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1043 case OPT_SPECIAL_input_file:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1044 goto keep;
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1045
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1046 /* Do not save OPT_fdiagnostics_color_, just remember the last one. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1047 case OPT_fdiagnostics_color_:
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1048 fdiagnostics_color_idx = i;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1049 continue;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1050
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1051 default:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1052 gcc_assert (opt_idx < cl_options_count);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1053 option = &cl_options[opt_idx];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1054 if (option->neg_index < 0)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1055 goto keep;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1056
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1057 /* Skip joined switches. */
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1058 if ((option->flags & CL_JOINED)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1059 && (!option->cl_reject_negative
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1060 \|\| (unsigned int) option->neg_index != opt_idx))
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1061 goto keep;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1062
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1063 for (j = i + 1; j < old_decoded_options_count; j++)
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1064 {
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1065 if (old_decoded_options[j].errors & ~CL_ERR_WRONG_LANG)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1066 continue;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1067 next_opt_idx = old_decoded_options[j].opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1068 if (next_opt_idx >= cl_options_count)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1069 continue;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1070 if (cl_options[next_opt_idx].neg_index < 0)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1071 continue;
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1072 if ((cl_options[next_opt_idx].flags & CL_JOINED)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1073 && (!cl_options[next_opt_idx].cl_reject_negative
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1074 \|\| ((unsigned int) cl_options[next_opt_idx].neg_index
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1075 != next_opt_idx)))
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1076 continue;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1077 if (cancel_option (opt_idx, next_opt_idx, next_opt_idx))
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1078 break;
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1079 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1080 if (j == old_decoded_options_count)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1081 {
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1082 keep:
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1083 new_decoded_options[new_decoded_options_count]
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1084 = old_decoded_options[i];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1085 new_decoded_options_count++;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1086 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1087 break;
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1088 }
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1089 }
a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1090
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1091 if (fdiagnostics_color_idx >= 1)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1092 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1093 /* We put the last -fdiagnostics-color= at the first position
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1094 after argv[0] so it can take effect immediately. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1095 memmove (new_decoded_options + 2, new_decoded_options + 1,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1096 sizeof (struct cl_decoded_option)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1097 * (new_decoded_options_count - 1));
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1098 new_decoded_options[1] = old_decoded_options[fdiagnostics_color_idx];
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1099 new_decoded_options_count++;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1100 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1101
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1102 free (old_decoded_options);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1103 new_decoded_options = XRESIZEVEC (struct cl_decoded_option,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1104 new_decoded_options,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1105 new_decoded_options_count);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1106 *decoded_options = new_decoded_options;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1107 *decoded_options_count = new_decoded_options_count;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1108 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1109
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1110 /* Handle option DECODED for the language indicated by LANG_MASK,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1111 using the handlers in HANDLERS and setting fields in OPTS and
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1112 OPTS_SET. KIND is the diagnostic_t if this is a diagnostics
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1113 option, DK_UNSPECIFIED otherwise, and LOC is the location of the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1114 option for options from the source file, UNKNOWN_LOCATION
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1115 otherwise. GENERATED_P is true for an option generated as part of
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1116 processing another option or otherwise generated internally, false
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1117 for one explicitly passed by the user. control_warning_option
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1118 generated options are considered explicitly passed by the user.
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1119 Returns false if the switch was invalid. DC is the diagnostic
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1120 context for options affecting diagnostics state, or NULL. */
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1121
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1122 static bool
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1123 handle_option (struct gcc_options *opts,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1124 struct gcc_options *opts_set,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1125 const struct cl_decoded_option *decoded,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1126 unsigned int lang_mask, int kind, location_t loc,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1127 const struct cl_option_handlers *handlers,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1128 bool generated_p, diagnostic_context *dc)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1129 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1130 size_t opt_index = decoded->opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1131 const char *arg = decoded->arg;
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1132 HOST_WIDE_INT value = decoded->value;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1133 const struct cl_option *option = &cl_options[opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1134 void *flag_var = option_flag_var (opt_index, opts);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1135 size_t i;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1136
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1137 if (flag_var)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1138 set_option (opts, (generated_p ? NULL : opts_set),
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1139 opt_index, value, arg, kind, loc, dc);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1140
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1141 for (i = 0; i < handlers->num_handlers; i++)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1142 if (option->flags & handlers->handlers[i].mask)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1143 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1144 if (!handlers->handlers[i].handler (opts, opts_set, decoded,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1145 lang_mask, kind, loc,
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1146 handlers, dc,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1147 handlers->target_option_override_hook))
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1148 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1149 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1150
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1151 return true;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1152 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1153
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1154 /* Like handle_option, but OPT_INDEX, ARG and VALUE describe the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1155 option instead of DECODED. This is used for callbacks when one
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1156 option implies another instead of an option being decoded from the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1157 command line. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1158
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1159 bool
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1160 handle_generated_option (struct gcc_options *opts,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1161 struct gcc_options *opts_set,
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1162 size_t opt_index, const char *arg, HOST_WIDE_INT value,
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1163 unsigned int lang_mask, int kind, location_t loc,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1164 const struct cl_option_handlers *handlers,
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1165 bool generated_p, diagnostic_context *dc)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1166 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1167 struct cl_decoded_option decoded;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1168
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1169 generate_option (opt_index, arg, value, lang_mask, &decoded);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1170 return handle_option (opts, opts_set, &decoded, lang_mask, kind, loc,
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1171 handlers, generated_p, dc);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1172 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1173
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1174 /* Fill in *DECODED with an option described by OPT_INDEX, ARG and
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1175 VALUE for a front end using LANG_MASK. This is used when the
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1176 compiler generates options internally. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1177
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1178 void
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1179 generate_option (size_t opt_index, const char *arg, HOST_WIDE_INT value,
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1180 unsigned int lang_mask, struct cl_decoded_option *decoded)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1181 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1182 const struct cl_option *option = &cl_options[opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1183
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1184 decoded->opt_index = opt_index;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1185 decoded->warn_message = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1186 decoded->arg = arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1187 decoded->value = value;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1188 decoded->errors = (option_ok_for_language (option, lang_mask)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1189 ? 0
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1190 : CL_ERR_WRONG_LANG);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1191
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1192 generate_canonical_option (opt_index, arg, value, decoded);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1193 switch (decoded->canonical_option_num_elements)
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1194 {
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1195 case 1:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1196 decoded->orig_option_with_args_text = decoded->canonical_option[0];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1197 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1198
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1199 case 2:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1200 decoded->orig_option_with_args_text
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1201 = opts_concat (decoded->canonical_option[0], " ",
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1202 decoded->canonical_option[1], NULL);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1203 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1204
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1205 default:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1206 gcc_unreachable ();
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1207 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1208 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1209
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1210 /* Fill in DECODED with an option for input file FILE. /
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1211
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1212 void
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1213 generate_option_input_file (const char *file,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1214 struct cl_decoded_option *decoded)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1215 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1216 decoded->opt_index = OPT_SPECIAL_input_file;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1217 decoded->warn_message = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1218 decoded->arg = file;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1219 decoded->orig_option_with_args_text = file;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1220 decoded->canonical_option_num_elements = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1221 decoded->canonical_option[0] = file;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1222 decoded->canonical_option[1] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1223 decoded->canonical_option[2] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1224 decoded->canonical_option[3] = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1225 decoded->value = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1226 decoded->errors = 0;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1227 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1228
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1229 /* Helper function for listing valid choices and hint for misspelled
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1230 value. CANDIDATES is a vector containing all valid strings,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1231 STR is set to a heap allocated string that contains all those
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1232 strings concatenated, separated by spaces, and the return value
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1233 is the closest string from those to ARG, or NULL if nothing is
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1234 close enough. Callers should XDELETEVEC (STR) after using it
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1235 to avoid memory leaks. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1236
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1237 const char *
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1238 candidates_list_and_hint (const char arg, char &str,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1239 const auto_vec <const char *> &candidates)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1240 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1241 size_t len = 0;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1242 int i;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1243 const char *candidate;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1244 char *p;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1245
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1246 FOR_EACH_VEC_ELT (candidates, i, candidate)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1247 len += strlen (candidate) + 1;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1248
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1249 str = p = XNEWVEC (char, len);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1250 FOR_EACH_VEC_ELT (candidates, i, candidate)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1251 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1252 len = strlen (candidate);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1253 memcpy (p, candidate, len);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1254 p[len] = ' ';
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1255 p += len + 1;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1256 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1257 p[-1] = '\0';
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1258 return find_closest_string (arg, &candidates);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1259 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1260
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1261 /* Perform diagnostics for read_cmdline_option and control_warning_option
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1262 functions. Returns true if an error has been diagnosed.
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1263 LOC and LANG_MASK arguments like in read_cmdline_option.
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1264 OPTION is the option to report diagnostics for, OPT the name
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1265 of the option as text, ARG the argument of the option (for joined
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1266 options), ERRORS is bitmask of CL_ERR_* values. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1267
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1268 static bool
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1269 cmdline_handle_error (location_t loc, const struct cl_option *option,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1270 const char opt, const char arg, int errors,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1271 unsigned int lang_mask)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1272 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1273 if (errors & CL_ERR_DISABLED)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1274 {
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1275 error_at (loc, "command-line option %qs"
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1276 " is not supported by this configuration", opt);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1277 return true;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1278 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1279
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1280 if (errors & CL_ERR_MISSING_ARG)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1281 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1282 if (option->missing_argument_error)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1283 error_at (loc, option->missing_argument_error, opt);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1284 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1285 error_at (loc, "missing argument to %qs", opt);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1286 return true;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1287 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1288
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1289 if (errors & CL_ERR_UINT_ARG)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1290 {
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1291 if (option->cl_byte_size)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1292 error_at (loc, "argument to %qs should be a non-negative integer "
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1293 "optionally followed by a size unit",
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1294 option->opt_text);
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1295 else
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1296 error_at (loc, "argument to %qs should be a non-negative integer",
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1297 option->opt_text);
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1298 return true;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1299 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1300
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1301 if (errors & CL_ERR_INT_RANGE_ARG)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1302 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1303 error_at (loc, "argument to %qs is not between %d and %d",
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1304 option->opt_text, option->range_min, option->range_max);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1305 return true;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1306 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1307
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1308 if (errors & CL_ERR_ENUM_ARG)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1309 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1310 const struct cl_enum *e = &cl_enums[option->var_enum];
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1311 unsigned int i;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1312 char *s;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1313
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1314 auto_diagnostic_group d;
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1315 if (e->unknown_error)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1316 error_at (loc, e->unknown_error, arg);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1317 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1318 error_at (loc, "unrecognized argument in option %qs", opt);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1319
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1320 auto_vec <const char *> candidates;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1321 for (i = 0; e->values[i].arg != NULL; i++)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1322 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1323 if (!enum_arg_ok_for_language (&e->values[i], lang_mask))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1324 continue;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1325 candidates.safe_push (e->values[i].arg);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1326 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1327 const char *hint = candidates_list_and_hint (arg, s, candidates);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1328 if (hint)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1329 inform (loc, "valid arguments to %qs are: %s; did you mean %qs?",
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1330 option->opt_text, s, hint);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1331 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1332 inform (loc, "valid arguments to %qs are: %s", option->opt_text, s);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1333 XDELETEVEC (s);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1334
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1335 return true;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1336 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1337
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1338 return false;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1339 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1340
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1341 /* Handle the switch DECODED (location LOC) for the language indicated
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1342 by LANG_MASK, using the handlers in *HANDLERS and setting fields in
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1343 OPTS and OPTS_SET and using diagnostic context DC (if not NULL) for
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1344 diagnostic options. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1345
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1346 void
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1347 read_cmdline_option (struct gcc_options *opts,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1348 struct gcc_options *opts_set,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1349 struct cl_decoded_option *decoded,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1350 location_t loc,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1351 unsigned int lang_mask,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1352 const struct cl_option_handlers *handlers,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1353 diagnostic_context *dc)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1354 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1355 const struct cl_option *option;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1356 const char *opt = decoded->orig_option_with_args_text;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1357
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1358 if (decoded->warn_message)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1359 warning_at (loc, 0, decoded->warn_message, opt);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1360
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1361 if (decoded->opt_index == OPT_SPECIAL_unknown)
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1362 {
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1363 if (handlers->unknown_option_callback (decoded))
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1364 error_at (loc, "unrecognized command-line option %qs", decoded->arg);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1365 return;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1366 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1367
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1368 if (decoded->opt_index == OPT_SPECIAL_ignore)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1369 return;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1370
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1371 if (decoded->opt_index == OPT_SPECIAL_warn_removed)
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1372 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1373 /* Warn only about positive ignored options. */
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1374 if (decoded->value)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1375 warning_at (loc, 0, "switch %qs is no longer supported", opt);
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1376 return;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1377 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1378
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1379 option = &cl_options[decoded->opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1380
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1381 if (decoded->errors
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1382 && cmdline_handle_error (loc, option, opt, decoded->arg,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1383 decoded->errors, lang_mask))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1384 return;
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1385
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1386 if (decoded->errors & CL_ERR_WRONG_LANG)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1387 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1388 handlers->wrong_lang_callback (decoded, lang_mask);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1389 return;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1390 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1391
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1392 gcc_assert (!decoded->errors);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1393
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1394 if (!handle_option (opts, opts_set, decoded, lang_mask, DK_UNSPECIFIED,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1395 loc, handlers, false, dc))
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1396 error_at (loc, "unrecognized command-line option %qs", opt);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1397 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1398
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1399 /* Set any field in OPTS, and OPTS_SET if not NULL, for option
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1400 OPT_INDEX according to VALUE and ARG, diagnostic kind KIND,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1401 location LOC, using diagnostic context DC if not NULL for
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1402 diagnostic classification. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1403
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1404 void
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1405 set_option (struct gcc_options opts, struct gcc_options opts_set,
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1406 int opt_index, HOST_WIDE_INT value, const char *arg, int kind,
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1407 location_t loc, diagnostic_context *dc)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1408 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1409 const struct cl_option *option = &cl_options[opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1410 void *flag_var = option_flag_var (opt_index, opts);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1411 void *set_flag_var = NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1412
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1413 if (!flag_var)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1414 return;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1415
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1416 if ((diagnostic_t) kind != DK_UNSPECIFIED && dc != NULL)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1417 diagnostic_classify_diagnostic (dc, opt_index, (diagnostic_t) kind, loc);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1418
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1419 if (opts_set != NULL)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1420 set_flag_var = option_flag_var (opt_index, opts_set);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1421
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1422 switch (option->var_type)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1423 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1424 case CLVC_BOOLEAN:
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1425 if (option->cl_host_wide_int)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1426 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1427 (HOST_WIDE_INT ) flag_var = value;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1428 if (set_flag_var)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1429 (HOST_WIDE_INT ) set_flag_var = 1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1430 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1431 else
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1432 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1433 (int ) flag_var = value;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1434 if (set_flag_var)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1435 (int ) set_flag_var = 1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1436 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1437
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1438 break;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1439
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1440 case CLVC_SIZE:
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1441 if (option->cl_host_wide_int)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1442 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1443 (HOST_WIDE_INT ) flag_var = value;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1444 if (set_flag_var)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1445 (HOST_WIDE_INT ) set_flag_var = value;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1446 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1447 else
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1448 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1449 (int ) flag_var = value;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1450 if (set_flag_var)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1451 (int ) set_flag_var = value;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1452 }
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1453
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1454 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1455
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1456 case CLVC_EQUAL:
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1457 if (option->cl_host_wide_int)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1458 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1459 (HOST_WIDE_INT ) flag_var = (value
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1460 ? option->var_value
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1461 : !option->var_value);
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1462 if (set_flag_var)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1463 (HOST_WIDE_INT ) set_flag_var = 1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1464 }
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1465 else
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1466 {
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1467 (int ) flag_var = (value
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1468 ? option->var_value
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1469 : !option->var_value);
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1470 if (set_flag_var)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1471 (int ) set_flag_var = 1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1472 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1473 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1474
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1475 case CLVC_BIT_CLEAR:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1476 case CLVC_BIT_SET:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1477 if ((value != 0) == (option->var_type == CLVC_BIT_SET))
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1478 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1479 if (option->cl_host_wide_int)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1480 (HOST_WIDE_INT ) flag_var \|= option->var_value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1481 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1482 (int ) flag_var \|= option->var_value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1483 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1484 else
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1485 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1486 if (option->cl_host_wide_int)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1487 (HOST_WIDE_INT ) flag_var &= ~option->var_value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1488 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1489 (int ) flag_var &= ~option->var_value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1490 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1491 if (set_flag_var)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1492 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1493 if (option->cl_host_wide_int)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1494 (HOST_WIDE_INT ) set_flag_var \|= option->var_value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1495 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1496 (int ) set_flag_var \|= option->var_value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1497 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1498 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1499
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1500 case CLVC_STRING:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1501 (const char *) flag_var = arg;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1502 if (set_flag_var)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1503 (const char *) set_flag_var = "";
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1504 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1505
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1506 case CLVC_ENUM:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1507 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1508 const struct cl_enum *e = &cl_enums[option->var_enum];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1509
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1510 e->set (flag_var, value);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1511 if (set_flag_var)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1512 e->set (set_flag_var, 1);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1513 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1514 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1515
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1516 case CLVC_DEFER:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1517 {
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1518 vec<cl_deferred_option> *v
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1519 = (vec<cl_deferred_option> ) (void **) flag_var;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1520 cl_deferred_option p = {opt_index, arg, value};
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1521 if (!v)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1522 v = XCNEW (vec<cl_deferred_option>);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1523 v->safe_push (p);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1524 (void *) flag_var = v;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1525 if (set_flag_var)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1526 (void *) set_flag_var = v;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1527 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1528 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1529 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1530 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1531
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1532 /* Return the address of the flag variable for option OPT_INDEX in
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1533 options structure OPTS, or NULL if there is no flag variable. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1534
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1535 void *
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1536 option_flag_var (int opt_index, struct gcc_options *opts)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1537 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1538 const struct cl_option *option = &cl_options[opt_index];
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1539
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1540 if (option->flag_var_offset == (unsigned short) -1)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1541 return NULL;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1542 return (void )(((char ) opts) + option->flag_var_offset);
0 a06113de4d67 first commit kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1543 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1544
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1545 /* Return 1 if option OPT_IDX is enabled in OPTS, 0 if it is disabled,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1546 or -1 if it isn't a simple on-off switch. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1547
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1548 int
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1549 option_enabled (int opt_idx, unsigned lang_mask, void *opts)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1550 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1551 const struct cl_option *option = &(cl_options[opt_idx]);
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1552
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1553 /* A language-specific option can only be considered enabled when it's
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1554 valid for the current language. */
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1555 if (!(option->flags & CL_COMMON)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1556 && (option->flags & CL_LANG_ALL)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1557 && !(option->flags & lang_mask))
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1558 return 0;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1559
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1560 struct gcc_options optsg = (struct gcc_options ) opts;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1561 void *flag_var = option_flag_var (opt_idx, optsg);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1562
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1563 if (flag_var)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1564 switch (option->var_type)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1565 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1566 case CLVC_BOOLEAN:
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1567 if (option->cl_host_wide_int)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1568 return (HOST_WIDE_INT ) flag_var != 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1569 else
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1570 return (int ) flag_var != 0;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1571
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1572 case CLVC_EQUAL:
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1573 if (option->cl_host_wide_int)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1574 return (HOST_WIDE_INT ) flag_var == option->var_value;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1575 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1576 return (int ) flag_var == option->var_value;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1577
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1578 case CLVC_BIT_CLEAR:
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1579 if (option->cl_host_wide_int)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1580 return ((HOST_WIDE_INT ) flag_var & option->var_value) == 0;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1581 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1582 return ((int ) flag_var & option->var_value) == 0;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1583
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1584 case CLVC_BIT_SET:
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1585 if (option->cl_host_wide_int)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1586 return ((HOST_WIDE_INT ) flag_var & option->var_value) != 0;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1587 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1588 return ((int ) flag_var & option->var_value) != 0;
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1589
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1590 case CLVC_SIZE:
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1591 if (option->cl_host_wide_int)
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1592 return (HOST_WIDE_INT ) flag_var != -1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1593 else
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1594 return (int ) flag_var != -1;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1595
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1596 case CLVC_STRING:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1597 case CLVC_ENUM:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1598 case CLVC_DEFER:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1599 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1600 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1601 return -1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1602 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1603
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1604 /* Fill STATE with the current state of option OPTION in OPTS. Return
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1605 true if there is some state to store. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1606
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1607 bool
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1608 get_option_state (struct gcc_options *opts, int option,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1609 struct cl_option_state *state)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1610 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1611 void *flag_var = option_flag_var (option, opts);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1612
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1613 if (flag_var == 0)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1614 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1615
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1616 switch (cl_options[option].var_type)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1617 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1618 case CLVC_BOOLEAN:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1619 case CLVC_EQUAL:
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1620 case CLVC_SIZE:
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1621 state->data = flag_var;
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1622 state->size = (cl_options[option].cl_host_wide_int
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1623 ? sizeof (HOST_WIDE_INT)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1624 : sizeof (int));
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1625 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1626
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1627 case CLVC_BIT_CLEAR:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1628 case CLVC_BIT_SET:
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1629 state->ch = option_enabled (option, -1, opts);
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1630 state->data = &state->ch;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1631 state->size = 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1632 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1633
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1634 case CLVC_STRING:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1635 state->data = (const char *) flag_var;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1636 if (state->data == 0)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1637 state->data = "";
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1638 state->size = strlen ((const char *) state->data) + 1;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1639 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1640
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1641 case CLVC_ENUM:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1642 state->data = flag_var;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1643 state->size = cl_enums[cl_options[option].var_enum].var_size;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1644 break;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1645
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1646 case CLVC_DEFER:
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1647 return false;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1648 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1649 return true;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1650 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1651
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1652 /* Set a warning option OPT_INDEX (language mask LANG_MASK, option
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1653 handlers HANDLERS) to have diagnostic kind KIND for option
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1654 structures OPTS and OPTS_SET and diagnostic context DC (possibly
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1655 NULL), at location LOC (UNKNOWN_LOCATION for -Werror=). ARG is the
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1656 argument of the option for joined options, or NULL otherwise. If IMPLY,
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1657 the warning option in question is implied at this point. This is
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1658 used by -Werror= and #pragma GCC diagnostic. */
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1659
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1660 void
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1661 control_warning_option (unsigned int opt_index, int kind, const char *arg,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1662 bool imply, location_t loc, unsigned int lang_mask,
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1663 const struct cl_option_handlers *handlers,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1664 struct gcc_options *opts,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1665 struct gcc_options *opts_set,
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1666 diagnostic_context *dc)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1667 {
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1668 if (cl_options[opt_index].alias_target != N_OPTS)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1669 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1670 gcc_assert (!cl_options[opt_index].cl_separate_alias
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1671 && !cl_options[opt_index].cl_negative_alias);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1672 if (cl_options[opt_index].alias_arg)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1673 arg = cl_options[opt_index].alias_arg;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1674 opt_index = cl_options[opt_index].alias_target;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1675 }
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1676 if (opt_index == OPT_SPECIAL_ignore \|\| opt_index == OPT_SPECIAL_warn_removed)
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1677 return;
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1678 if (dc)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1679 diagnostic_classify_diagnostic (dc, opt_index, (diagnostic_t) kind, loc);
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1680 if (imply)
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1681 {
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1682 const struct cl_option *option = &cl_options[opt_index];
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1683
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1684 /* -Werror=foo implies -Wfoo. */
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1685 if (option->var_type == CLVC_BOOLEAN
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1686 \|\| option->var_type == CLVC_ENUM
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1687 \|\| option->var_type == CLVC_SIZE)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1688 {
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1689 HOST_WIDE_INT value = 1;
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1690
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1691 if (arg && *arg == '\0' && !option->cl_missing_ok)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1692 arg = NULL;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1693
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1694 if ((option->flags & CL_JOINED) && arg == NULL)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1695 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1696 cmdline_handle_error (loc, option, option->opt_text, arg,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1697 CL_ERR_MISSING_ARG, lang_mask);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1698 return;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1699 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1700
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1701 /* If the switch takes an integer argument, convert it. */
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1702 if (arg && (option->cl_uinteger \|\| option->cl_host_wide_int))
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1703 {
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1704 int error = 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1705 value = *arg ? integral_argument (arg, &error,
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1706 option->cl_byte_size) : 0;
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1707 if (error)
111 04ced10e8804 gcc 7 kono parents: 67 diff changeset	1708 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1709 cmdline_handle_error (loc, option, option->opt_text, arg,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1710 CL_ERR_UINT_ARG, lang_mask);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1711 return;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1712 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1713 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1714
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1715 /* If the switch takes an enumerated argument, convert it. */
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1716 if (arg && option->var_type == CLVC_ENUM)
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1717 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1718 const struct cl_enum *e = &cl_enums[option->var_enum];
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1719
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1720 if (enum_arg_to_value (e->values, arg, &value, lang_mask))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1721 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1722 const char *carg = NULL;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1723
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1724 if (enum_value_to_arg (e->values, &carg, value, lang_mask))
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1725 arg = carg;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1726 gcc_assert (carg != NULL);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1727 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1728 else
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1729 {
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1730 cmdline_handle_error (loc, option, option->opt_text, arg,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1731 CL_ERR_ENUM_ARG, lang_mask);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1732 return;
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1733 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1734 }
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1735
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1736 handle_generated_option (opts, opts_set,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1737 opt_index, arg, value, lang_mask,
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1738 kind, loc, handlers, false, dc);
04ced10e8804 gcc 7 kono parents: 67 diff changeset	1739 }
67 f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1740 }
f6334be47118 update gcc from gcc-4.6-20100522 to gcc-4.6-20110318 nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> parents: 55 diff changeset	1741 }

Mercurial > hg > CbC > CbC_gcc

annotate gcc/opts-common.c @ 158:494b0b89df80 default tip