Mercurial > hg > CbC > CbC_gcc
annotate gcc/opth-gen.awk @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
rev | line source |
---|---|
131 | 1 # Copyright (C) 2003-2018 Free Software Foundation, Inc. |
0 | 2 # Contributed by Kelley Cook, June 2004. |
3 # Original code from Neil Booth, May 2003. | |
4 # | |
5 # This program is free software; you can redistribute it and/or modify it | |
6 # under the terms of the GNU General Public License as published by the | |
7 # Free Software Foundation; either version 3, or (at your option) any | |
8 # later version. | |
9 # | |
10 # This program is distributed in the hope that it will be useful, | |
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 # GNU General Public License for more details. | |
14 # | |
15 # You should have received a copy of the GNU General Public License | |
16 # along with this program; see the file COPYING3. If not see | |
17 # <http://www.gnu.org/licenses/>. | |
18 | |
19 # This Awk script reads in the option records generated from | |
20 # opt-gather.awk, combines the flags of duplicate options and generates a | |
21 # C header file. | |
22 # | |
111 | 23 # This program uses functions from opt-functions.awk and code from |
24 # opt-read.awk. | |
25 # Usage: awk -f opt-functions.awk -f opt-read.awk -f opth-gen.awk \ | |
26 # < inputfile > options.h | |
0 | 27 |
28 # Dump out an enumeration into a .h file. | |
29 # Combine the flags of duplicate options. | |
30 END { | |
31 print "/* This file is auto-generated by opth-gen.awk. */" | |
32 print "" | |
33 print "#ifndef OPTIONS_H" | |
34 print "#define OPTIONS_H" | |
35 print "" | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
36 print "#include \"flag-types.h\"" |
0 | 37 print "" |
38 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
39 if (n_extra_h_includes > 0) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
40 for (i = 0; i < n_extra_h_includes; i++) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
41 print "#include " quote extra_h_includes[i] quote |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
42 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
43 print "" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
44 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
45 |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
46 print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS) && !defined(IN_RTS)" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
47 print "#ifndef GENERATOR_FILE" |
111 | 48 print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS)" |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
49 print "struct GTY(()) gcc_options" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
50 print "#else" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
51 print "struct gcc_options" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
52 print "#endif" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
53 print "{" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
54 print "#endif" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
55 |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
56 for (i = 0; i < n_extra_vars; i++) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
57 var = extra_vars[i] |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
58 sub(" *=.*", "", var) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
59 orig_var = var |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
60 name = var |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
61 type = var |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
62 type_after = var |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
63 sub("^.*[ *]", "", name) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
64 sub("\\[.*\\]$", "", name) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
65 sub("\\[.*\\]$", "", type) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
66 sub(" *" name "$", "", type) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
67 sub("^.*" name, "", type_after) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
68 var_seen[name] = 1 |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
69 print "#ifdef GENERATOR_FILE" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
70 print "extern " orig_var ";" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
71 print "#else" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
72 print " " type " x_" name type_after ";" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
73 print "#define " name " global_options.x_" name |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
74 print "#endif" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
75 } |
0 | 76 |
77 for (i = 0; i < n_opts; i++) { | |
78 if (flag_set_p("Save", flags[i])) | |
79 have_save = 1; | |
80 | |
81 name = var_name(flags[i]); | |
82 if (name == "") | |
83 continue; | |
84 | |
85 if (name in var_seen) | |
86 continue; | |
87 | |
88 var_seen[name] = 1; | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
89 print "#ifdef GENERATOR_FILE" |
0 | 90 print "extern " var_type(flags[i]) name ";" |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
91 print "#else" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
92 print " " var_type(flags[i]) "x_" name ";" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
93 print "#define " name " global_options.x_" name |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
94 print "#endif" |
0 | 95 } |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
96 for (i = 0; i < n_opts; i++) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
97 name = static_var(opts[i], flags[i]); |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
98 if (name != "") { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
99 print "#ifndef GENERATOR_FILE" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
100 print " " var_type(flags[i]) "x_" name ";" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
101 print "#define x_" name " do_not_use" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
102 print "#endif" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
103 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
104 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
105 for (i = 0; i < n_opts; i++) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
106 if (flag_set_p("SetByCombined", flags[i])) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
107 print "#ifndef GENERATOR_FILE" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
108 print " bool frontend_set_" var_name(flags[i]) ";" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
109 print "#endif" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
110 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
111 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
112 print "#ifndef GENERATOR_FILE" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
113 print "};" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
114 print "extern struct gcc_options global_options;" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
115 print "extern const struct gcc_options global_options_init;" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
116 print "extern struct gcc_options global_options_set;" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
117 print "#define target_flags_explicit global_options_set.x_target_flags" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
118 print "#endif" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
119 print "#endif" |
0 | 120 print "" |
121 | |
122 # All of the optimization switches gathered together so they can be saved and restored. | |
123 # This will allow attribute((cold)) to turn on space optimization. | |
124 | |
125 # Change the type of normal switches from int to unsigned char to save space. | |
126 # Also, order the structure so that pointer fields occur first, then int | |
127 # fields, and then char fields to provide the best packing. | |
128 | |
111 | 129 print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS) && !defined(IN_RTS)" |
0 | 130 print "" |
131 print "/* Structure to save/restore optimization and target specific options. */"; | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
132 print "struct GTY(()) cl_optimization"; |
0 | 133 print "{"; |
134 | |
111 | 135 n_opt_char = 3; |
0 | 136 n_opt_short = 0; |
137 n_opt_int = 0; | |
111 | 138 n_opt_enum = 0; |
0 | 139 n_opt_other = 0; |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
140 var_opt_char[0] = "unsigned char x_optimize"; |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
141 var_opt_char[1] = "unsigned char x_optimize_size"; |
111 | 142 var_opt_char[2] = "unsigned char x_optimize_debug"; |
0 | 143 |
144 for (i = 0; i < n_opts; i++) { | |
111 | 145 if (flag_set_p("(Optimization|PerFunction)", flags[i])) { |
0 | 146 name = var_name(flags[i]) |
147 if(name == "") | |
148 continue; | |
149 | |
150 if(name in var_opt_seen) | |
151 continue; | |
152 | |
153 var_opt_seen[name]++; | |
154 otype = var_type_struct(flags[i]); | |
155 if (otype ~ "^((un)?signed +)?int *$") | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
156 var_opt_int[n_opt_int++] = otype "x_" name; |
0 | 157 |
158 else if (otype ~ "^((un)?signed +)?short *$") | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
159 var_opt_short[n_opt_short++] = otype "x_" name; |
0 | 160 |
161 else if (otype ~ "^((un)?signed +)?char *$") | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
162 var_opt_char[n_opt_char++] = otype "x_" name; |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
163 |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
164 else if (otype ~ ("^enum +[_" alnum "]+ *$")) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
165 var_opt_enum[n_opt_enum++] = otype "x_" name; |
0 | 166 |
167 else | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
168 var_opt_other[n_opt_other++] = otype "x_" name; |
0 | 169 } |
170 } | |
171 | |
172 for (i = 0; i < n_opt_other; i++) { | |
173 print " " var_opt_other[i] ";"; | |
174 } | |
175 | |
176 for (i = 0; i < n_opt_int; i++) { | |
177 print " " var_opt_int[i] ";"; | |
178 } | |
179 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
180 for (i = 0; i < n_opt_enum; i++) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
181 print " " var_opt_enum[i] ";"; |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
182 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
183 |
0 | 184 for (i = 0; i < n_opt_short; i++) { |
185 print " " var_opt_short[i] ";"; | |
186 } | |
187 | |
188 for (i = 0; i < n_opt_char; i++) { | |
189 print " " var_opt_char[i] ";"; | |
190 } | |
191 | |
192 print "};"; | |
193 print ""; | |
194 | |
195 # Target and optimization save/restore/print functions. | |
196 print "/* Structure to save/restore selected target specific options. */"; | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
197 print "struct GTY(()) cl_target_option"; |
0 | 198 print "{"; |
199 | |
200 n_target_char = 0; | |
201 n_target_short = 0; | |
202 n_target_int = 0; | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
203 n_target_enum = 0; |
0 | 204 n_target_other = 0; |
205 | |
206 for (i = 0; i < n_target_save; i++) { | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
207 if (target_save_decl[i] ~ "^((un)?signed +)?int +[_" alnum "]+$") |
0 | 208 var_target_int[n_target_int++] = target_save_decl[i]; |
209 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
210 else if (target_save_decl[i] ~ "^((un)?signed +)?short +[_" alnum "]+$") |
0 | 211 var_target_short[n_target_short++] = target_save_decl[i]; |
212 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
213 else if (target_save_decl[i] ~ "^((un)?signed +)?char +[_ " alnum "]+$") |
0 | 214 var_target_char[n_target_char++] = target_save_decl[i]; |
215 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
216 else if (target_save_decl[i] ~ ("^enum +[_" alnum "]+ +[_" alnum "]+$")) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
217 var_target_enum[n_target_enum++] = target_save_decl[i]; |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
218 } |
0 | 219 else |
220 var_target_other[n_target_other++] = target_save_decl[i]; | |
221 } | |
222 | |
223 if (have_save) { | |
224 for (i = 0; i < n_opts; i++) { | |
225 if (flag_set_p("Save", flags[i])) { | |
226 name = var_name(flags[i]) | |
227 if(name == "") | |
228 name = "target_flags"; | |
229 | |
230 if(name in var_save_seen) | |
231 continue; | |
232 | |
233 var_save_seen[name]++; | |
234 otype = var_type_struct(flags[i]) | |
235 if (otype ~ "^((un)?signed +)?int *$") | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
236 var_target_int[n_target_int++] = otype "x_" name; |
0 | 237 |
238 else if (otype ~ "^((un)?signed +)?short *$") | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
239 var_target_short[n_target_short++] = otype "x_" name; |
0 | 240 |
241 else if (otype ~ "^((un)?signed +)?char *$") | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
242 var_target_char[n_target_char++] = otype "x_" name; |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
243 |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
244 else if (otype ~ ("^enum +[_" alnum "]+ +[_" alnum "]+")) |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
245 var_target_enum[n_target_enum++] = otype "x_" name; |
0 | 246 |
247 else | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
248 var_target_other[n_target_other++] = otype "x_" name; |
0 | 249 } |
250 } | |
251 } else { | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
252 var_target_int[n_target_int++] = "int x_target_flags"; |
0 | 253 } |
254 | |
255 for (i = 0; i < n_target_other; i++) { | |
256 print " " var_target_other[i] ";"; | |
257 } | |
258 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
259 for (i = 0; i < n_target_enum; i++) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
260 print " " var_target_enum[i] ";"; |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
261 } |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
262 |
0 | 263 for (i = 0; i < n_target_int; i++) { |
264 print " " var_target_int[i] ";"; | |
265 } | |
266 | |
267 for (i = 0; i < n_target_short; i++) { | |
268 print " " var_target_short[i] ";"; | |
269 } | |
270 | |
271 for (i = 0; i < n_target_char; i++) { | |
272 print " " var_target_char[i] ";"; | |
273 } | |
274 | |
275 print "};"; | |
276 print ""; | |
277 print ""; | |
278 print "/* Save optimization variables into a structure. */" | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
279 print "extern void cl_optimization_save (struct cl_optimization *, struct gcc_options *);"; |
0 | 280 print ""; |
281 print "/* Restore optimization variables from a structure. */"; | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
282 print "extern void cl_optimization_restore (struct gcc_options *, struct cl_optimization *);"; |
0 | 283 print ""; |
284 print "/* Print optimization variables from a structure. */"; | |
285 print "extern void cl_optimization_print (FILE *, int, struct cl_optimization *);"; | |
286 print ""; | |
111 | 287 print "/* Print different optimization variables from structures provided as arguments. */"; |
288 print "extern void cl_optimization_print_diff (FILE *, int, cl_optimization *ptr1, cl_optimization *ptr2);"; | |
289 print ""; | |
0 | 290 print "/* Save selected option variables into a structure. */" |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
291 print "extern void cl_target_option_save (struct cl_target_option *, struct gcc_options *);"; |
0 | 292 print ""; |
293 print "/* Restore selected option variables from a structure. */" | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
294 print "extern void cl_target_option_restore (struct gcc_options *, struct cl_target_option *);"; |
0 | 295 print ""; |
296 print "/* Print target option variables from a structure. */"; | |
297 print "extern void cl_target_option_print (FILE *, int, struct cl_target_option *);"; | |
111 | 298 print ""; |
299 print "/* Print different target option variables from structures provided as arguments. */"; | |
300 print "extern void cl_target_option_print_diff (FILE *, int, cl_target_option *ptr1, cl_target_option *ptr2);"; | |
301 print ""; | |
302 print "/* Compare two target option variables from a structure. */"; | |
303 print "extern bool cl_target_option_eq (const struct cl_target_option *, const struct cl_target_option *);"; | |
304 print ""; | |
305 print "/* Hash option variables from a structure. */"; | |
306 print "extern hashval_t cl_target_option_hash (const struct cl_target_option *);"; | |
307 print ""; | |
308 print "/* Hash optimization from a structure. */"; | |
309 print "extern hashval_t cl_optimization_hash (const struct cl_optimization *);"; | |
310 print ""; | |
131 | 311 print "/* Compare two optimization options. */"; |
312 print "extern bool cl_optimization_option_eq (cl_optimization const *ptr1, cl_optimization const *ptr2);" | |
313 print ""; | |
111 | 314 print "/* Generator files may not have access to location_t, and don't need these. */" |
315 print "#if defined(UNKNOWN_LOCATION)" | |
316 print "bool " | |
317 print "common_handle_option_auto (struct gcc_options *opts, " | |
318 print " struct gcc_options *opts_set, " | |
319 print " const struct cl_decoded_option *decoded, " | |
320 print " unsigned int lang_mask, int kind, " | |
321 print " location_t loc, " | |
322 print " const struct cl_option_handlers *handlers, " | |
323 print " diagnostic_context *dc); " | |
324 for (i = 0; i < n_langs; i++) { | |
325 lang_name = lang_sanitized_name(langs[i]); | |
131 | 326 print "bool" |
327 print lang_name "_handle_option_auto (struct gcc_options *opts," | |
328 print " struct gcc_options *opts_set," | |
329 print " size_t scode, const char *arg," | |
330 print " HOST_WIDE_INT value," | |
331 print " unsigned int lang_mask, int kind," | |
332 print " location_t loc," | |
333 print " const struct cl_option_handlers *handlers," | |
334 print " diagnostic_context *dc);" | |
111 | 335 } |
336 print "void cpp_handle_option_auto (const struct gcc_options * opts, size_t scode," | |
337 print " struct cpp_options * cpp_opts);" | |
338 print "void init_global_opts_from_cpp(struct gcc_options * opts, " | |
339 print " const struct cpp_options * cpp_opts);" | |
340 print "#endif"; | |
0 | 341 print "#endif"; |
342 print ""; | |
343 | |
344 for (i = 0; i < n_opts; i++) { | |
345 name = opt_args("Mask", flags[i]) | |
111 | 346 if (name == "") { |
347 opt = opt_args("InverseMask", flags[i]) | |
348 if (opt ~ ",") | |
349 name = nth_arg(0, opt) | |
350 else | |
351 name = opt | |
0 | 352 } |
111 | 353 if (name != "" && mask_bits[name] == 0) { |
354 mask_bits[name] = 1 | |
355 vname = var_name(flags[i]) | |
356 mask = "MASK_" | |
357 mask_1 = "1U" | |
358 if (vname != "") { | |
359 mask = "OPTION_MASK_" | |
360 if (host_wide_int[vname] == "yes") | |
361 mask_1 = "HOST_WIDE_INT_1U" | |
362 } else | |
363 extra_mask_bits[name] = 1 | |
364 print "#define " mask name " (" mask_1 " << " masknum[vname]++ ")" | |
365 } | |
0 | 366 } |
367 for (i = 0; i < n_extra_masks; i++) { | |
111 | 368 if (extra_mask_bits[extra_masks[i]] == 0) |
369 print "#define MASK_" extra_masks[i] " (1U << " masknum[""]++ ")" | |
0 | 370 } |
371 | |
372 for (var in masknum) { | |
111 | 373 if (var != "" && host_wide_int[var] == "yes") { |
374 print "#if defined(HOST_BITS_PER_WIDE_INT) && " masknum[var] " > HOST_BITS_PER_WIDE_INT" | |
375 print "#error too many masks for " var | |
376 print "#endif" | |
377 } | |
378 else if (masknum[var] > 32) { | |
0 | 379 if (var == "") |
380 print "#error too many target masks" | |
381 else | |
382 print "#error too many masks for " var | |
383 } | |
384 } | |
385 print "" | |
386 | |
387 for (i = 0; i < n_opts; i++) { | |
388 name = opt_args("Mask", flags[i]) | |
111 | 389 if (name == "") { |
390 opt = opt_args("InverseMask", flags[i]) | |
391 if (opt ~ ",") | |
392 name = nth_arg(0, opt) | |
393 else | |
394 name = opt | |
0 | 395 } |
111 | 396 if (name != "" && mask_macros[name] == 0) { |
397 mask_macros[name] = 1 | |
398 vname = var_name(flags[i]) | |
399 mask = "OPTION_MASK_" | |
400 if (vname == "") { | |
401 vname = "target_flags" | |
402 mask = "MASK_" | |
403 extra_mask_macros[name] = 1 | |
404 } | |
405 print "#define TARGET_" name \ | |
0 | 406 " ((" vname " & " mask name ") != 0)" |
111 | 407 print "#define TARGET_" name "_P(" vname ")" \ |
408 " (((" vname ") & " mask name ") != 0)" | |
409 } | |
0 | 410 } |
411 for (i = 0; i < n_extra_masks; i++) { | |
111 | 412 if (extra_mask_macros[extra_masks[i]] == 0) |
413 print "#define TARGET_" extra_masks[i] \ | |
414 " ((target_flags & MASK_" extra_masks[i] ") != 0)" | |
0 | 415 } |
416 print "" | |
417 | |
418 for (i = 0; i < n_opts; i++) { | |
419 opt = opt_args("InverseMask", flags[i]) | |
420 if (opt ~ ",") { | |
421 vname = var_name(flags[i]) | |
422 mask = "OPTION_MASK_" | |
423 if (vname == "") { | |
424 vname = "target_flags" | |
425 mask = "MASK_" | |
426 } | |
111 | 427 print "#define TARGET_" nth_arg(1, opt) \ |
0 | 428 " ((" vname " & " mask nth_arg(0, opt) ") == 0)" |
429 } | |
430 } | |
431 print "" | |
432 | |
433 for (i = 0; i < n_langs; i++) { | |
111 | 434 macros[i] = "CL_" lang_sanitized_name(langs[i]) |
0 | 435 s = substr(" ", length (macros[i])) |
111 | 436 print "#define " macros[i] s " (1U << " i ")" |
0 | 437 } |
111 | 438 print "#define CL_LANG_ALL ((1U << " n_langs ") - 1)" |
0 | 439 |
440 print "" | |
441 print "enum opt_code" | |
442 print "{" | |
443 | |
444 for (i = 0; i < n_opts; i++) | |
445 back_chain[i] = "N_OPTS"; | |
446 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
447 enum_value = 0 |
0 | 448 for (i = 0; i < n_opts; i++) { |
449 # Combine the flags of identical switches. Switches | |
450 # appear many times if they are handled by many front | |
451 # ends, for example. | |
452 while( i + 1 != n_opts && opts[i] == opts[i + 1] ) { | |
453 flags[i + 1] = flags[i] " " flags[i + 1]; | |
454 i++; | |
455 } | |
456 | |
457 len = length (opts[i]); | |
63
b7f97abdc517
update gcc from gcc-4.5.0 to gcc-4.6
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
458 enum = opt_enum(opts[i]) |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
459 enum_string = enum " = " enum_value "," |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
460 |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
461 # Aliases do not get enumeration names. |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
462 if ((flag_set_p("Alias.*", flags[i]) \ |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
463 && !flag_set_p("SeparateAlias", flags[i])) \ |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
464 || flag_set_p("Ignore", flags[i])) { |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
465 enum_string = "/* " enum_string " */" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
466 } |
0 | 467 |
468 # If this switch takes joined arguments, back-chain all | |
469 # subsequent switches to it for which it is a prefix. If | |
470 # a later switch S is a longer prefix of a switch T, T | |
471 # will be back-chained to S in a later iteration of this | |
472 # for() loop, which is what we want. | |
473 if (flag_set_p("Joined.*", flags[i])) { | |
474 for (j = i + 1; j < n_opts; j++) { | |
475 if (substr (opts[j], 1, len) != opts[i]) | |
476 break; | |
477 back_chain[j] = enum; | |
478 } | |
479 } | |
480 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
481 s = substr(" ", |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
482 length (enum_string)) |
0 | 483 |
484 if (help[i] == "") | |
485 hlp = "0" | |
486 else | |
487 hlp = "N_(\"" help[i] "\")"; | |
488 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
489 print " " enum_string s "/* -" opts[i] " */" |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
490 enum_value++ |
0 | 491 } |
492 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
493 print " N_OPTS," |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
494 print " 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:
63
diff
changeset
|
495 print " OPT_SPECIAL_ignore," |
131 | 496 print " OPT_SPECIAL_deprecated," |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
497 print " 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:
63
diff
changeset
|
498 print " OPT_SPECIAL_input_file" |
0 | 499 print "};" |
500 print "" | |
111 | 501 print "#ifdef GCC_C_COMMON_C" |
502 print "/* Mapping from cpp message reasons to the options that enable them. */" | |
503 print "#include <cpplib.h>" | |
504 print "struct cpp_reason_option_codes_t" | |
505 print "{" | |
131 | 506 print " /* cpplib message reason. */" |
507 print " const enum cpp_warning_reason reason;" | |
508 print " /* gcc option that controls this message. */" | |
509 print " const int option_code;" | |
111 | 510 print "};" |
511 print "" | |
512 print "static const struct cpp_reason_option_codes_t cpp_reason_option_codes[] = {" | |
513 for (i = 0; i < n_opts; i++) { | |
514 # With identical flags, pick only the last one. The | |
515 # earlier loop ensured that it has all flags merged, | |
516 # and a nonempty help text if one of the texts was nonempty. | |
517 while( i + 1 != n_opts && opts[i] == opts[i + 1] ) { | |
518 i++; | |
519 } | |
520 cpp_reason = nth_arg(0, opt_args("CppReason", flags[i])); | |
521 if (cpp_reason != "") { | |
522 cpp_reason = cpp_reason ","; | |
523 printf(" {%-40s %s},\n", cpp_reason, opt_enum(opts[i])) | |
524 } | |
525 } | |
526 printf(" {%-40s 0},\n", "CPP_W_NONE,") | |
527 print "};" | |
528 print "#endif" | |
529 print "" | |
0 | 530 print "#endif /* OPTIONS_H */" |
531 } |